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EDITOR’S PREFACE 


Jim C. Warren, Jr., Editor 


January 21, 1977 


First of all, some mundane details: this is not one of those 
“Best of. .. ” digests; it’s everything from the first year’s pub¬ 
lication of DDJ (except subscription forms & questionnaires, 
and propaganda concerning other PCC offerings .. . which we 
have managed to squeeze in at the end of the book). It con¬ 
tains all the rest of the content of the original issues—all ten 
issues of Volune 1. Please note that this includes now-obsolete 
product announcements, product pricing that is sometimes no 
longer valid, definitive predictions of things that didn’t happen, 
and all of our original, authentic typographical errors. We hope 
that you will also find that it contains considerable useful in¬ 
formation, program listings, and reference material. 

A Reference Periodical 

From the beginning, we have viewed Dr. Dobb’s Journal 
as a reference publication rather than merely as a periodical. 
Thus, as we ran out of back issues, we repeatedly reprinted 
them as the demand for them continued and increased. Now 
that a year of publication has passed, and we find a consider¬ 
able number of new subscribers requesting all back issues, we 
have chosen to bind Volume One into a more convenient form 
and continue to make it available. We expect to continue to 
reprint it, as long as there is a demand for it. We believe this 
is an appropriate policy for a reference periodical. 

A Year of Hindsight 

A more personal commentary: when Dennis Allison and 
Bob Albrecht first approached me about editing DDJ, I 
thought of it as an entertaining spare-time effort—an interest¬ 
ing project with which to diddle for a while. I’m an inveterate 
project phreaque, and had been a computer fanatic for most 
of a decade. I had been following the development of hobby 
computing ever since I stumbled into one of the early meetings 
of the Homebrew Computer Club in April, 1975, and had 
written a couple of obscure articles for some of the early 
issues of Byte. But, when I took over as Editor of Dr. Dobb’s, 

I actually did so with little foresight—little vision of where 
DDJ could go, and little vision of where personal computing 
could go. 

The vision remains misty, certainly, however some very exciting features are taking shape. The changes and growth that have 
taken place in this past year have been phenomenal, and they do little more than imply still greater development in the 
immediate future. 

At the most obvious level: hardware has gone from strictly glitchy kits to assembled and reliable complete units. Systems 
software has gone from virtually nonexistent, to where multitasking, multi-user soft-disc operating systems are being 
offered to the hobbyist community. Average memory capacity on home systems has probably doubled, and possibly 
quadrupled. Though applications have remained quite limited, awaiting adequate systems software, it appears certain that 
they will develop much more rapidly in 1977. 

The principal actors have also developed significantly. The customers — the hobbyists and users — have become more sophisticated 
and discriminating in their demands and their purchases. The vendors and manufacturers have, in many cases, overcome start-up prob¬ 
lems such as under-financing and inadequate customer service. Although there are still some highwaymen in this frontier community, 
most of the vendors are maturing into responsible, properly functioning organizations. As is the case with hardware and software, how¬ 
ever, there is still considerable room for further growth and development. 

The most exciting aspect of that hazy vision into the future, however, is my growing suspicion that personal and home computing 
well may have as significant an impact on the general public — the overall society — as has the automobile, the telephone, and tele¬ 
vision ... all of which were considered to be mere technical novelties of no practical value, when they were first developing. Having 
lived in the San Francisco Bay Area since the early 60’s, I have seen a number of attempts made at various forms of social utopias, and 
seen all of them fail — so I view this new potential utopia, “computer power to the people,” with a somewhat jaundiced eye. However, 
the more I see of it; the more I slowly come to believe that the massive information processing power which has traditionally been 
available only to the rich and powerful in government and large corporations will truly beocme available to the general public. And, I 
see that as having a tremendous democratizing potential, for most assuredly, information — data and the ability to organize and process 
it — is power. 

It is an exciting vision to me. I am honored to be a part of it. I wish to point out that you, who have chosen to read this book, 
must also be a part of that venture. This is a new and different kind of frontier. We are part of the small cadre of new frontiersmen 
who are exploring it. To the extent that we can blaze a trail to new and useful pastures, the larger society will follow, and hopefully 
the overall culture will benefit. So, pick up your eight-bit musket and forge onward. 
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STATUS LETTER 

by Dennis Allison 

The magic of a good language is the ease with which a 
particular idea may be expressed. The assembly language of most 
microcomputers is very complex, very powerful, and very hard to 
learn. The Tiny BASIC project at PCC represents our attempt to 
give the hobbyist a more human-oriented language or notation with 
which to encode his programs. This is done at some cost in space 
and/or time. As memory still is relatively expensive, we have chosen 
to trade features for space (and time for space) where we could. 

Our own implementation of Tiny BASIC has been very slow. I 
have provided technical direction only on a sporadic basis. The real 
work has been done by a number of volunteers; Bernard Greening 
has left the project. As might be guessed. Tiny BASIC is a tiny part 
of what we do regularly. (And volunteer labor is not the way to run 
a software project with any kind of deadline!) 

While we've been slow, several others have really been fast. In 
this issue we publish a version of Tiny BASIC done by Dick Whipple 
and John Arnold in Tyler, Texas. (And other versions can't be far 
behind.) 


Volume 1, Number 1 





MY, HOW TINY BASIC GROWED! 

Once upon a time, in PCC, Tiny BASIC started out to be: 

t a BASIC-like language for tiny kids, to be used for games, 
recreations, and the stuff you find in elementary school math books. 

t an exercise in getting people together to develop FREE soft¬ 
ware. 

t portable-machine independent. 

t open-ended-a toy for software tinkerers. 

t small. 

Then . . . (fanfare!) . . . along came Dick Whipple and John 
Arnold. They built Tiny BASIC Extended. It works. See pp 13-17 
and 19 in this issue for more information. More next issue. 

WANTED: More Tiny BASICs up and running. 

WANTED: More articles for this newsletter. 

WANTED: Tiny other languages. I might be able to live with Tiny 
FORTRAN but, I implore you, no Tiny COBOL! How about Tiny 
APL? Or Tiny PASCAL (whatever that is)? 

WANTED: Entirely new, never before seen, Tiny Languages, 
imported from another planet or invented here on Earth. Especially 
languages for kids using home computers that talk to tvs or play 
music or run model trains or .. . 


BASIC 

BASIC, Beginners' All-purpose Symbolic Instruction Code, was 
initially developed in 1963 and 1964 by Professors John Kemeny 
and Thomas Kurtz of Dartmouth College, with partial Isupport from 
the National Science Foundation under the terms of Grant NSF GE 
3864. For information on Dartmouth BASIC publications, get 
Publications List (TM 086) from Documents Clerk, Kiewit Compu¬ 
tation Center, Dartmouth College, Hanover NH 03755. Telephone 
603-646-2643. 

Try these: TM028 BASIC: A Specification $3.15 
TM075 BASIC $4.50 

/fs ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

It would help a lot if you would each send us a 3x5 card with your 
name, address (including zip), telephone number, and a rather 
complete description of your hardware. 

^ sl/ ^ <T/ sTz ^ ^G *T/ »4/ sT* sT» «J/ 

/ys 

DRAGON THOUGHTS 

t We promised three issues. After these are done, shall we 
continue? 

t If we do, we will change the name and include languages other 
than BASIC. 

t This newsletter is meant to be a sharing experience, intended to 
disseminate FREE software. It's OK to charge a few bucks for tape 
cassettes or paper tape or otherwise recover the cost of sharing. But 
please make documentation essentially free, including annotated 
source code. 

t If we do continue, we will have to charge about $1 per issue to 
recover our costs. In Xeroxed form, we can provide about 20-24 
pages per issue of tiny eye-strain stuff. If we get big bunches of 
subscriptions, we'll print it and expand the number of pages, 
depending on the number of subscribers. 

t So, let us know. . . shall we continue? 


For our new readers, and those who have been following 
articles on Tiny BASIC as they appeared in People’s 
Computer Company , we have reprinted on pages 3-12 the 
best of Tiny BASIC from PCC as an introduction, and as 
a reference. 
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TECHNIQUES & PRACNIQUES 
by Dennis Allison, 1 2/1 /75 

(This will be a continuing column of tricks, algorithms, and 
other good stuff everyone needs when writing software. Contribu¬ 
tions solicited.) 

16-BIT BINARY TO DECIMAL CONVERSION ROUTINE 

t saves characters on stack 

t performs zero suppressed conversion 

t uses multiplication by 0.1 to obtain n/10 and n mod 10 

I define crutch = OFFH; 


j declare n, u, v, t; BIT (16) 
; if n < 0 then 
do; 

n = -n; 

call outch('-'); 

end; 

I call push (crutch) 

repeat; 

v = shr (n,1); 
v = v + shr (v,1); 
v = v + shr (v,4); 
v = v + shr (v,8); 
v = shr (v,3); 


fl .fl_p_fi.8_aj). a enflBB B fla flBain ii taflflnaaaapfloooQOQooooooooof t 


These could be registers, or on the 
stack 


The crutch marks the end of num¬ 
ber on the stack 


These all are 16 bit shifts 
Computes [n/10] or [n/10] - 1 by 
multiplication 
Call it x 


t = v + v; 
u = t + t; 
u = u + u + t 
u = n - u 

if u ^ 10 then 
do; 

u = u - 10; 
n = v + 1; 

end 

else 

n = v; 

call push (u); 
until n = 0; 

ch = pop; 

do while < > crutch; 
call outch (ch + 030H); 

ch = pop; 


Computes 10 - x 

Byte only as high order must be 
equal 

Perhaps one could use a decimal 
feature here 

Corrects for case where ln/10] - 1 
is computed and creates [n/10] and 
n mod 10 

Saves result on stack 
Loop at least once 


Write result in reverse order 
Converts digits to ASCII 
0 = 030H 02 = 032H etc. 

Pop takes one word off the stack 


PCC Tiny BASIC Reorganizes. . 


Albr<>4. 

Oe/VY»ruS AUv 


end 

Ajt_aju)-fl-fl-a-fl.fl.fl.a.a a.a.fljLflJLfl-a.fl.fl.a.a.flji-fl.a-fl-fljLfl-fljLflju a a a a a.n.B_a_fl. 

f Letters from readers are most welcome. Unless they 
note otherwise, we will assume we are free to publish 
and share them. 

t We hereby assign reprint rights to all who wish to use 
Tiny BASIC Calisthenics & Orthodontia for non¬ 
commercial purposes. 

t To facilitate connection between our subscribers, we will 
in subsequent issues publish our subscriber list (including! 
addresses and equipment of access/interest). 


CL- 15 '*75 


^ee\s \vWc. 


^ 1 

VNot. -fec( U 


1 




v\e 


AeoJv, 

A,. 1 


C ura*. —j c ^\ ft CLw 


)r 




. . . and so we procede somewhat more slowly than some 
of our readers 

JLAOflUflflflflaaflflflflflflBBaflflaa ooo oooo. 
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BUILD YOUR OWN BASIC 
by Dennis Allison <& Others 

(reprinted from People’s Computer Company Vol. 3, No.4) 


A DO IT YOURSELF KIT FOR BASIC?? 

Yes, available from PCC with this newspaper and a lot of your time. This is 
the beginning of a series of articles in which we will work our way through the 
design and implementation of a reasonable BASIC system for your brand X 
computer. We’ll be working on computers based on the INTEL 8008 and 
8080 microprocessors. But it doesn’t make much difference - if your machine 
is the ZORT 9901 or ACME X you can still build a BASIC for it. But 
remember, it’s a hard job and will take lots of time particularly if you haven’t 
done it before. A good BASIC system could easily take one man six months! 
We’d like everyone interested to participate in the design. While we could do 
it all ourselves, (we have done it before) your ideas may be better than ours. 
Maybe we can save you, or you can save us, a lot of work or problems. Write 
us and we’ll publish your letter and comments. 

WHICH BASIC? 

There is not any one standard BASIC (yet). 

The question is which BASIC should we choose 
to implement. A smaller (fewer statements, 
fewer features) BASIC is easier to implement 
and (more important) takes less space in the 
computer. Memory is still expensive so the 
smaller the better. Yet maybe we can’t give 
up some goodies like string variables, dynamic 
array allocation, and so on. 

There is a standard version of BASIC which is 
to be the minimal language which can be called 
BASIC. It’s a pretty big language with lots of 
goodies. Maybe too big. Is there any advantage 
to being compatible with, say, the EDU BASICS? 

We don’t have to make any decision yet; but the 
time will come ... 


DATA STRUCTURES 

Data structures are places to put things so you can find them or use them later. 
BASIC has at least three important ones: a symbol table which looks up a pro¬ 
gram name' A or Z9 or AS, with its value. If we had a big computer where space 
was not a huge problem, we could simply preallocate all storage since BASIC 
provides for only 312 different names excluding arrays. When memory is so 
costly this doesn't make much sense. Somewhere, also, we’ve got to store the 
names which BASIC is going to need to know, names like LET and GO TO and 
IF. This table gets pretty big when there are lots of statements. 

Lastly, we need some information about what is a legal BASIC statement and 
which error to report when it isn't. These tables are called parsing tables since 
they control the decomposition of the program into its component parts. 


STRATEGY 

Divide and Conquer is the programmers maxim. BASIC will consist of a lot of 
smaller pieces which communicate with each other. These pieces themselves 
consist of smaller pieces which themselves consist of smaller pieces, and so forth 
down to the actual code. A large problem is made manageable by cutting it into 
pieces. 

What are the pieces, the building blocks of BASIC? We see a bunch of them: 

* a supervisor which determines what is to be done next. It receives control 
when BASIC is loaded. 

* a program and line editor. This program collects lines as they are entered 
from the keyboard and puts them into a part of computer memory for 
later use. 

*a line executor routine which executes a single BASIC statement, whatever 
that is. 

-*a line sequence which determines which line is to be executed next. 

♦a floating point package to provide floating point on a machine without the 
hardware. 

♦terminal I/O handler to input and output information from the Teletype and 
provide simple editing (backspace and line deletion). 

♦a function package to provide all the BASIC functions (RND, INT, TAB, etc.) 
span error handling routine (part of the supervisor). 

♦a memory management program which provides dynamic allocation data 
objects. 

These are the major ones. As we get futher into the system we’ll begin to see 
others and we’ll begin to be able to more fully define the function of each of 
these modules. 


COMPILER OR INTERPRETER? 

Vie favor using an interpreter. An interpreter is 
a program which will execute the BASIC program 
from its textual representation. The program 
you write is the one which gets executed. A com¬ 
piler converts the BASIC program into the ma¬ 
chine code for the machine it is to run on. Com¬ 
piled code is a lot faster, but requires more space 
and some kind of mass storage device (tape or 
disk). Interpretative BASIC is the most common 
on small machines. 


DIRECT MODE? 

Some kind of "desk calculator” mode of opera¬ 
tion would be nice. At least, we would like to 
be able to look at and set different variables in a 
program and restart execution at any given point. 
This feature makes it easier to find and gently 
terminate the existence of '‘bugs.” 


HOW MUCH MEMORY? AND ... WHAT KIND? 

Can we make some guesses about how big the BASIC system will be? Only 
if you don't hold us to it. Suppose we want to be able to run a SO line 
BASIC program. We need about 800 bytes to store the program, another 
60 or so bytes for storing program values (all numeric) without leaving any 
space for the interpreter and its special data. Past experience has shown 
that something like 6 to 8 Kbytes are needed for a minimum BASIC inter¬ 
preter and that at least 12K bytes are necessary for a comfortable system. 
That’s a lot of memory, but not too much more than you need to run the 
assembler. A lot of BASIC could be put into ROM (Read Only Memory) 
once developed and checked out. ROM is a lot cheaper than RAM (Read 
and Write) memory, but you can’t change it. It’s lots better to make sure 
everything works first. 

But... if we can agree on some chunks of code and get it properly checked 
out, some enterprising person out there might make a few thousand ROMs 
and save us all some $$$. Let's see now ... how about ROMs for floating 
point arithmetic, integer arithmetic, Teletype I/O ... 


TINY BASIC 

Pretend you are 7 years old and don’t care 
much about floating point arithmetic (what’s 
that?), logarithms, sines, matrix inversion, 
nuclear reactor calculations and stuff like 
that. 

And .. . your home computer is kinda small, 
not too much memory. Maybe its a MARK-8 
or an ALT AIR 8800 with less than 4K bytes 
and a TV typewriter for input and output. 

You would like to use it for homework, math 
recreations and games like NUMBER, STARS, 
TRAP, HURKLE, SNARK, BAGELS,... 

Consider then, TINY BASIC 

• Integer arithmetic only — 8 bits? 16 bits? 

» 26 variables: A, B, C, D,..., Z 

• The RND function — of course! 

• Seven BASIC statement types 

INPUT 

PRINT 

LET 

GOTO 

IF 

GOSUB 

RETURN 

■ Strings? OK in PRINT statements, not 

OK otherwise. 
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BUILD YOUR OWN BASIC-REVIVED the interpreter to users who desire these complex calcu¬ 

lation capabilities. A number of calculator chip 

/ . i r n i > /-> . ^ % # | a \| i \ proposals have been made, with the Sliding unit being 

(reprinted from People s Computer Company Vol. 4, No. 1) of the most interest 


WHAT IS TINY BASIC??? 

TINY BASIC is a very simplified form of BASIC which can be 
implemented easily on a microcomputer. Some of its features are: 


Integer arithmetic 16 bits only 

26 variables (A, B,. .Z) 

Seven BASIC statements 

INPUT PRINT LET GOTO 
IF GOSUB RETURN 

Strings only in PRINT statements 


'rvi Wic 
4>r Tl *1 




Only 256 line programs (if you’ve got that much memory) 

Only a few functions including RND 

It’s not really BASIC but it looks and acts a lot like it. I’ll be good 
to play with on your ALTAIR or whatever; better, you can change 
it to match your requirements and needs. 

TINY BASIC LIVES!!! 

We are working on a version of TINY BASIC to run on the INTEL 
8080. It will be an interpretive system designed to be as conservative 
of memory as possible. The interpreter will be programmed in 
assembly language, but we’ll try to provide adequate descriptions 
of our intent to allow the same system to be programmed for most any 
other machine. The next issue of PCC will devote a number of pages 
to this project. 

■Jf In the meantime, read one of these. 

Compiler Construction For Digital Computers, David Gries, Wiley, 1971 
493 pages, $14.95 

Theory & Application of a Bottom-Dp Syntax Directed Translator 
Harvey Abramson, Academic Press, 1973, 160 pages, $11.00 

Compiling Techniques, F.R.A. Hopgood, American Elsevier, 126 pages 
$6.50 

I BASIC Language Interpreter for the Intel 8008 Microprocessor 
\.(.. V\ caver, M.H. Tindall, R.L. Danielson. University of Illinois 
Computer Science Dept, Urbana 1L 61801. June 1974. Report No. 

I II CDCS-R-74-658. Distributed by National Technical Informa¬ 
tion Service, U.S. Commerce Dept, Springfield VA 22151. $4.25. 

A BASIC language interpreter has been designed for use in a 
microprocessor environment. This report discusses the develop¬ 
ment of 1) an elaborate text editor and 2) a table-driven interpre¬ 
ter. The entire system, including text editor, interpreter, user 
text bufter, and full Boating point arithmetic routines fits in 
16K 8-bit words. 

The TINY BASIC proposal for small home computers 
was of great interest to me. The lack of floating point 
arithmetic however, tends to limit its usefulness for my 
objectives. 

As a matter of a suggestion, consideration should be 
given to the optional inclusion of floating point 
arithmetic, logarithm and trigonmetric calculation 
capability via a scientific calculator chip interface.f 

The inclusion of such an option would tend to extend 


Thank you for the note of 13 June, regarding my letter 
on the Tiny BASIC article (PCC Vol. 3 No. 4). It was 
with regret that I learned that the series was not con¬ 
tinued in the next volume. Even though few responded 
to the article published, conceptually the knowledge 
and principles which would be disseminated regarding 
a limited lexicon, high level programming language 
are of importance to the independent avocational 
microcomputer community. 

At this time, PCC may not have a wide distribution in 
the avocation microcomputer community. This could 
be possibly the cause for the low number of respondies. 
Never the less, this should not detract from the dis¬ 
semination and importance of concepts and principles 
which are of significance. 

The thrust of my letter of 15 April, 1975, was to suggest 
a mechanism for the inclusion of F.P. in a limited 
lexicon and memory consumptive BASIC. 1 hope that 
the implication that F.P. must be included was not 
read into my letter. 

It is my interest that information, concepts and the 
principles of compiler/interpreter construction as it 
related to microcomputers be available to the limited 
budget avocational user. The MITS BASIC, which you 
brought up, appears from my viewpoint to be a licensed, 
blackbox program which is not currently available to: 

(a) 8008 users, (b) IMP-16 users, (c) independent 8080 
users (except at a very large expense) or (d) MC6800 
users who will shortly be on line. 

Presently it appears that microcomputer compiler 
interpreter function langauges will he coming available 
from a number of sources (MITS, NITS, Processor 
Technology and etc.). However, few will probably deal 
in the conceptualizations which are the basis of the 
interpreter. Information which will fill the void in the 
interpreter construction knowledge held by the avocation 
builder, should he made available. 

I strongly urge that the series started with Vol. 3 
No. 4 article be continued. Possibly the hardware, 
peripheral, machine programming difficulties incurred 
by the microcomputer builder, is prohibiting a major 
contribution at this time. However, I would expect 
that by Autumn a number of builders should have 
their construction and peripheral difficulties far enough 
along to start thinking about higher level languages. 

The previous objective for the article series sounds 
reasonable. It was*not my purpose in submitting the 
letter to detract from the objective of a very limited 
lexicon BASIC, ie., to be attractive and usable by the 
young and beginner due to its simplicity. 

If wives, children, neighbors or anyone who is not 
machine language or programming oriented is expected 
to use a home-base unit created under a restrained 

budget a high level language will be a necessity. It 

is with this foresight that I encourage the continuance 
of the “Build Your Own BASIC” series. 

This issue aside, I would like to encourage the PCC to 
continue the quite creditable activities which have 
been its order of business with regard to avocational 
computing. Michael Christoffer 

4139 12th NE No. 400 
Seattle, Wash. 98105 

t Please see Dr Robert Suding's article on p. 18 
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DESIGN NOTES FOR TINY BASIC 

by Dennis Allison, happy Lady, & friends 
(reprinted from People’s Computer Company Vol 

SOME MOTIVATIONS 

A lot of people have just gotten into having 
their own computer. Often they don't know too 
much about software and particularly systems 
software, but would like to be able to program in 
something other than machine language. The 
TINY BASIC project is aimed at you if you are 
one of these people. Our goals are very limited-- 
to provide a minimal BASIC-like language for 
writing simple programs. Later we may make 
it more complicated, but now the name of the 
game is keep it simple. That translates to a 
limited language (no floating point, no sines 
and cosines, no arrays, etc.) and even this is 
a pretty difficult undertaking. 

Originally we had planned to limit 
ourselves to the 8080, but with a variety of 
new machines appearing at very low prices, we 
have decided to try to make a portable TINY 
3ASIC system even at the cost of some effi¬ 
ciency. Most of the language processor will be 
written in a pseudo language which is good for 
writing interpreters like TINY BASIC. This 
pseudo language (which interprets TINY BASIC) 
will then itself be implemented interpretively. 

To implement TINY BASIC on a new machine, 
one simply writes a simple interpreter for this 
pseudo language and not a whole interpreter for 
TINY BASIC. 

We'd like this to be a participatory design 
project. This sequence of design notes follows the 
project which we are doing here at PCC. There may 
well be errors in content and concept. If you're 
making a BASIC along with us, we'd appreciate 
your help and your corrections. 

Incidentally, were we building a production 
interpreter or compiler, we would probably struc¬ 
ture the whole system quite differently. We chose 
this scheme because it is easy for people to change 
without access to specialized tools like parser 
generator programs. 


THE TINY BASIC LANGUAGE 

There isn't much to it TINY BASIC 
looks like BASIC but all variables are integers 
There are no functions yet (we plan to add RND, 
TAB, and some others later). Statement numbers 
must be between 1 and 255 so we can store them 
in a single byte. LIST only works on the whole 
program. There is no FOR-NEXT statement. We've 
tried to simplify the language to the point where it 
will fit into a vary small memory so impecunious. 
tyros can use the system. 

The boxes shown define the language. The 
guide gives a quick reference to what we will include. 
The formal grammar defines, exactly what is a legal 
TINY BASIC statement. The grammar is important 
because our interpreter design will be based upon it. 


. 4, No. 2) 


IT'S ALL DONE WITH MIRRORS- 

OR HOW TINY BASIC WORKS 

All the variables in TINY BASIC: the 
control information as to which statement is 
presently being executed and how the next state¬ 
ment is to be found, the returnaddressesof active 
GOSUBS-—all this information constitutes the 
state of the TINY BASIC interpreter. 

There are several procedures which act upon 
this state. One procedure knows how to execute 
any TINY BASIC statement. Given the starting 
point in memory of a TINY BASIC statement, it 
will execute it changing the state of the machine 
as required. For example, 

100 LET S = A+6 © 

would change the value of S to the sum of the con¬ 
tents of the variable A and the interger 6, and sets 
the next line counter to whatever line follows 100, 
if the line exists. 

A second procedure really controls the 
interpretation process by telling the line interpreter 
what to do. When TINY BASIC is loaded, this 
control routine performs some initialization, and 
then attempts to read a line of information from the 
console. The characters typed in are saved in a buffer. 
LBUF. It first checks to see if there is a leading 
line number. If there is, it incorporates the line 
into the program by first deleting the line with the 
same line number (if it is present) then inserting 
the new line if it is of nonzero length. If there is 
no line number present, it attempts to execute 
the line directly. With this strategy, all possible 
commands, even LIST and CLEAR and RUN are 
possible inside programs. Suicidal programs are 
also certainly possible. 


TINT BASIC GRAMMAR 


The things in bold face stand for themselves. The names in lower case 
represent classes of things. ': :=' is read 'is defined as'. The asterisk denotes 
zero or more occurances of the object to its immediate left. Parenthesis 
group objects. « is the empty set. | denotes the alternative (the 
exclusive-or). 

Iine::= number statement @ I statement © 
statement::= PRINT expr-list 

IF expression relop expression THEN statement 

GOTO expression 

INPUT var-list 

LET var = expression 

GOSUB expression 

RETURN 

CLEAR 

LIST 

RUN 

END 

expr-list: := (string I expression) (, (string I expression) *) 
var-list::= var (, var)* 

expression:^ (+1 - I£) term ( (+ | —) term)* 

term::= factor ( (* | /) factor)* 

factor: := var | number I (expression) 

var::= A IB 1C ... |Y |Z 

number: := digit digit* 

digit::= 01 1 I 2 I... 18 19 

relop::=< ( >| = I £ ) | >(< I - I E ) I = 

A BREAK from the console will interrupt execution of the program. 
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IMPLEMENTATION STRATGIES AND ONIONS 

When you write a program in TINY BASIC 
there is an abstract machine which is necessary to 
execute it If you had a compiler it would make 
in the machine language of your computer a 
program which emulates that abstract machine 
for your program. An interpreter implements 
the abstract machine for the entire language and 
rather than translating the program once to machine 
code it translates it dynamically as needed. Inter¬ 
preters are programs and as such have their's as 
abstract machines. One can find a better instruc¬ 
tion set than that of any general purpose computer 
for writing a particular interpreter. Then one 
can write an interpreter to interpret the instruc¬ 
tions of the interpreter which is interpreting the 
TINY BASIC program. And if your machine is 
microprogrammed (like PACE), the machine 
which is interpreting the interpreter interpreting 
the interpreter interpreting BASIC is in fact 
interpreted. 

This multilayered, onion-like approach 
gains two things: the interpreter for the inter¬ 
preter is smaller and simpler to write than an 
interpreter for all of TINY BASIC, so the resul¬ 
tant system is fairly portable. Secondly, since 
the major part of the Tl NY BASIC is programmed 
in a highly memory efficient, tailored instruction 
set, the interpreted TINY BASIC will be smaller 
than direct coding would allow. The cost is in 
execution speed, but there is not such a thing as 
a free lunch. 



LINE STORAGE 


QUICK REFERENCE GUIDE 
FOR TINT BASIC 

LINE FORMAT AND EDITING 

• Lines without numbers executed immediately 

• Lines with numbers appended to program 

• Line numbers must be 1 to 255 

• Line number alone (empty line) deletes line 

• Blanks are not significant, but key words must 

contain no unneeded blanks 

• deletes last character 

• X c deletes the entire line 

EXECUTION CONTROL 

CLEAR delete all lines and data 
RUN run program 
LIST list program 

EXPRESSIONS 

Operators 

Arithmetic Relational 

♦ - > > = 

* / 4 4 = 

= <>,>< 

Variables 
A.Z (26 only) 

All arithmetic is modulo 2^® 

(±32762) 

INPUT/OUTP UT 

PRINT X,Y,Z 
PRINT'A STRING’ 

PRINT 'THE ANSWER IS' 

INPUT X 
INPUT X,Y,Z 

ASSIGNMENT STATEMENTS 

LET X=3 
LET X= -3+5.Y 

CONTROL STATEMENTS 

GOTO X+10 
GOTO 35 
GOSUB X+35 
GOSUB 50 
RETURN 

IF X>Y THEN GOTO 30 


transformation would easily exceed the space saved. 

When a line is read in from the console device, 
it is saved in a 72-byte array called LBUF (Line 
BUFfer). At the same time, a pointer, CP, is 
maintained to indicate the next available space in 
LBUF. Indexing is, of course, from zero. 


The TINY BASIC program is stored, except 
for line numbers, just as it is entered from the 
console. In some BASIC interpreters, the program 
is translated into an intermediate form which speeds 
execution and saves space. In the TINY BASIC 
environment, the code necessary to provide the 


Delete the leading blanks. If the string 
matches the BASIC line, advance the cursor over 
the matched string and execute the next IL in¬ 
struction. If the match fails, continue at the IL 
instruction labeled Ibl. 
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The TINY BASIC program is stored as an 
array called PGM in order of increasing line num¬ 
bers. A pointer, PGP, indicates the first free place 
in the array. PGP=0 indicates an empty program; 
PGP must be less than the dimension of the array 
PGM. The PGM array must be reorganized when 
new lines are added, lines replaced, or lines are 
deleted. 

Insertion and deletion are carried on simul¬ 
taneously. When a new line is to be entered, the 
PGM array searches for a lirje with a line number 
greater than or equal to that of the new line. 
Notice that lines begin at PGM (0) and at PGM 
(j+1) for every j such that PGM (j)= [carriage 
return]. If the line numbers are equal, then the 
length of the existing line is computed. A space 
equal to the length of the new line is created by 
moving all lines with line numbers greater than 
that of the line being inserted up or down as 
appropriate. The empty line is handled as a 
special case in that no insertion is made. 

TINY BASIC AS STORED IN MEMORY 
<*,j9yt# m memory treated as an integer 


byte treated as a character 


V U H T^' P OV) £ 

S - 0 \ I N T> UTu.U@'J#P ft 

M T u N * KJ •> N * M * 

H < > 0 ^ T H 

1 0 0 J) 0 . 

\ N/ 

a carriage return symbol ee s P ace 


ERRORS AND ERROR RECOVERY 



Two different things are going on at the same 
time. The routines must determine if the TINY 
BASIC line is a legal one and determine its form 
according to the grammar; secondly, it must 
call appropriate action routines to execute the 
line. Consider the TINY BASIC statement; 

GOTO 100 

At the start of the line, the interpreter looks for 
BASIC key words (LET. GO, IF, RETURN, etc.) 

In this case, it finds GO, and then finds TO. By 
this time it knows that it has found a GOTO 
statement. It then calls the routine EXPR to 
obtain the destination line number of the GOTO. 
The expression routine calls a whole bunch of 
other routines, eventually leaving the number 100 
(the value of the expression) in a special place, the 
top of the arithmetic expression stack. Since 
everything is legal, the XFER operator is invoked 
to arrange for the execution of line 100 (if it 
exists) as the next line to be executed. 

Each TINY BASIC statement is handled 
similarly. Some procedural section of an IL 
program corresponds to tests for the statement 
structure and acts to execute the statement. 

ENCODING 

There are a number of different considerations 
in the TINY BASIC design which fall in this general 
category. The problem is to make efficient use of 
the bits available to store information without 
loosing out by requiring a too complex decodinq 
scheme. 

In a number of places we have to indicate 
the end of a string of characters (or else we have 
to provide for its length somewhere). Commonly, 
one uses a special character (NUL = 00H for ex¬ 
ample) to indicate the end. This costs one byte 
per string but is easy to check. A better way de¬ 
pends upon the fact that ASCII code does not 
use the high order bit; normally it is used for parity 

ONE POTENTIAL IL ENCODING 


IL instruction byte 


There are two places that errors can occur. 

If they occur in the TINY BASIC system, they 
must be captured and action taken to preserve 
the system. If the error occurs in the TINY 
BASIC program entered by the user, the system 
should report the error and allow the user to 
fix his problem. An error in TINY BASIC can 
result from a badly formed statement, an il¬ 
legal action (attempt to divide by zero, for ex¬ 
ample), or the exhaustion of some resource 
such as memory space. In any case, the de¬ 
sired response is some kind of error message. 

We plan to provide a message of the form: 

! mmm AT nnn 

where mmm is the error number and nnn is 
the line number at which it occurs. For direct 
statements, the form will be: 

! mmm 

since there is no line number. 

Some error indications we know we will need are: 

1 Syntax error 5 RETURN without GOSU8 

2 Missing line 6 Expression too complex f" 

3 Line number too large 7 Too many lines I 2 

4 Too many GOSUBs 8 Division by zero I— 

7 

THE BASIC LINE EXECUTOR 

The execution routine is written in the inter¬ 
pretive language, IL. It consists of a sequence of 
instructions which may call subroutines written 
in IL, or invoke special instructions which are 
really subroutines written in machine language. 


W////'//, 

7 * 7 ///// 


TST with fail 
address PC + a 



loloi» 

Z//// Z/ /// //A 

7 6 0 

PC + a gives 
new IL address 


- '//// . / -'I 

i im/m 


table of entry 
points for ML subs. 


subroutine call 


01 


7y? //■// 

/a / v /■/ 


PC + a gives new 
IL address. Current 
PC stacked 
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on transmission. We can use it to indicate the end 
(that is, last character) of a string. When we process 
the characters we must AND the character with 
07FH to scrub off the flag bit. 


A STATEMENT EXECUTOR WRITTEN IN II 

This program in IL will execute e TINY BASIC 
statement. 1 1 « operators TST. 1ST V. TSIN. and PRS 
all use * cursor to lind « nar act mines cl the TINY 
BASIC line. Othit oi-.-wnoni (NXT. XPER) mon 
the cursor so it points to anolltw I INY BASIC 
bn*. 


The interpreter opcodes can be encoded into 
a single byte. Operations fall into two distinct 
classes—those which call machine language sub¬ 
routines, and those which either call or transfer 
within the IL language itself. The diagram indi¬ 
cates one encoding scheme. The CALL operations 
have been subsumed into the IL instruction set 
Addressing is shown to be relative to PC for IL 
operations. Given the current IL program size, 
this seems adequate. If it is not, the address 
could be used to index an array with the ML 
class instructions. 


TINY BASIC INHRI’IIETIVE OPERATIONS 


TST Ibl, 'suing' 

delete- leading blanks 

M suing matches the BASIC line, advance cursor over the 
mulched string and execute the next IL in .tiuction. If a 
match fails, execute the IL instruction at the labeled Ibl. 

CALL Ibl 

Execute the IL scbioutine starting at Ibl. Save the IL ad 
dicss following the CALL on the control stack. 

RTN 

Return to the IL location specified by the top of the con¬ 
trol stack. 

OONE 

Report a syntax error if after deletion leadinq blanks the 
cursor is not positioned to read a car rum* ret* »n. 

JMP Ibl 

Continue execution of IL at the label specified. 

PRS 

Print characteis from the BASIC text up to hut not including the 
closing quote mark. If a cr is found in the program text, report <u 
error. Move the cursor to the point follow mg the closing quote. 

PRN 

Print number obtained by popping the top of the expres¬ 
sion stack. 

SPC 

Insert spaces to move the print hejd to next 7one. 

NLINE 

Output CRLF to Printer. 

NXT 

If the present tr.ode is direct (line number /cio). then 
return to line collection. Otherwise, select the next 
sequential line and begin interpretation. 

XFER 

Test valued the top of the AE st m Ic to tie within range. 

If not, u-port an erroi. If so. attempt to position cursor 
at that line If it exists, fn-gin interpretation there, if not 
report an ciror. 

SAV 

Plurc present line number on SB RSI K. Report overflow 
as error. 

RSTR 

Replace current line numlxM with value on SBRST K. If 

Stack is empty, rettort error. 

C.MPR 

Compare AESTK(SP), the top of the stack, with 

ALS1KISP ?) as pet the relation indicated liy ALSFKISP 1|. 
Delete all from st.u k. If tom'ihon specified did not match, 
then per form NX T action. 


THE II CONTROL SECTION 

START; IHIT 
NLINE 

CO: GET LINE 

TSTl XEC 

IIJSRT 

JMP CO 

STMT: XINIT 


; INITIALIZE 
; WRITE CR/IF 

.WHITE PROMPT & GET A LINE 
; TEST fOR LINE NUMBER 
; INSERT IT (MAY BE OELETEI 

; INITIALIZE FOR EXECUTION 


STATEMENT EXECUTOR 


STMT: 


S? 


53 

54 


S?: 


SB 


S9 

S10: 


SI I. 


SI 2 


SIS: 


SI4: 


SIS: 


SIS 


CAIL EXPR 

OONC 

STORE 

NXT 

TST S3. GO' 

TST SJ. TO* 

CALL EXPR 

OONE 

XPER 

TST SU.SUB’ 

CALI EXPR 

DONE 

SAV 

Xf IR 

TST SB. ’PRINT" 

TST s?. "*: 

PRS 

TST se.v 

SPC 

■F.IP S4 

OONE 
NLINE 
NXT 

CALL EXPR 

PHN 

JMP SS 

TST SI. 'IF' 

CALL EXPR 

CALL HELOP 

CALL EXPR 

CMPR 

JMP STMT 

TST SI?. ’INPUT* 

CALL VAR 

INNLIM 
SI ORE 

TST S1I.V 

JMP SIO 

OONE 
NXT 

TST SI3.’RETURN’ 

OONE 

RSI R 

NXT 

TST SM. 'END* 

FIN 

TST SIS.'LIST 

OONE 

LST 

TST SIB. 'RUN- 

OONC 

NXT 

TST SI?. ‘CLEAR* 

DONE 
JMPSTART 


: IS STATEMENT A LET? 

: YES! Pi ACE VAR ADDRESS ON AESTK. 
;Pt ACE EXPR VALUE ON AESTK. 

; RCPOIII ERROR IFaNOt NEXT. 

; STORE RESULT! 

.ANOSCOUENCE TONEXT. 

.GOTOOH COSUB? 

YES ,..TO OR -SUS. 

;GET LABEL. 

.ERROR If a NOT NEXT. 

.SET UP AN0 JUMP 
.ERROR If NO MATCH. 

.GET DESTINATION. 

.ERROR IF crNOT NEXT. 

. SAVE RETURN LINE. 

; AND JUMP. 

.PRINT. 

; T E ST FOR OUOTE. 

.PRINTSTRING 
IS THERE MORE? 

.SPACE TONEXT ZONE. 

.YES. JUMP BACK. 

. NO. ERROR IF NOcr. 


;GET EXPR VALUE. 

.PRINT IT. 

.IS THERE MORE? 

.ir STATEMENT. 

: GET EXPRf SSlON. 

. OF EERMINE OPR AND PUT ON STIC. 

:GIT EXPRESSION 

Pin I ORM COMPARISON-PERFORMS NEXT IF FALSE. 
;GE T Nl XT STATEMENT. 

. INPUT STATEMLNT. 

;Gl T VAR ADDRESS. 

; MOVE NUMBER FROM TTY TO AESTK.' 

.STORE IT. 

.IS THERE MORE? 

;vcs 

.MUST BE cv. 

;SEOUCNCE TONEXT. 

;nf TURN STATEMENT. 

; MUSI OE cr 

. R( STORE LINE NUMBER OF CALL.I 
.-SEOUCNCE TONEXT STATEMENT. 


; LIST COMMAND. 


; RUN COMMAND. 
.CLCAR COMMANO. 


SI?: ERR 


;SYNTAX ERROR. 


EXPR: 

CO: 

El: 

E2: 


TST 

CALL 

NEC 

JVP 

tse 

CAI L 

TST 

CALL 

AOO 

■fdP 

TST 

CALL 

SUB 

JMP 

HTN 


CO.'-* 

TERM 

El 

£!.*♦' 
TERM 
E2. '♦' 

TERM 

El 

E 3.* 
TERM 

E3 


; TEST FOR UNARY -. 
; GET VALUE. 

;NEGATE IT. 

: LOOK FOR MORE. 

: TEST FOR UNARY •. 
.LEADING TERM. 
.SUM TERM. 


; ANY MORE? 

;DIFFERENCE TERM. 


; ANY MORE? 


INNUM 

FIN 

ERR 

AOO 

SUB 

NEG 

MUL 

DIV 

STORE 

TSTV 11)1 

TSTN Ibl 

INO 

LST 

INIT 

GETLINE 
TSTL Ibl 

INSRT 

XINIT 


Read a number from the terminal and push its value onto 
Umj AfSTK. 

Return to ths line colloct routine. 

Report syntax error and return to line collect routine. 

Rrplace top two elements of AES1 K by their sum. 

Rcirljre top two elements of AESTK by their difference. 

Replace top of AESTK with its ncqativo. 

Replace top two elements of AESTK by their product. 

Replace top two elements of AESTK by their quotient. 

Place the value at tfse top of the AESTK into the vii table 
designated by the index specified by the value immediately 
below it. DelctP both from the s'ack. 

Test for variable (i.c letter) if present. Place its index 
value onto the Af STK anil continue execution at next 
suggested location. Otherwise, continue at Ibl. 

Test for number. If present, place its value onto the 
AES1 K and continue execution at next suggested location. 
Otherwise, continue at Ibl. 

Replace top of stack by variable value if indexes. 

list the contents of the program area. 

Performs qloh.il initialization 

Clears pi pgr am area, emptys GOSUR stack, etc. 

Input a line to LOUF. 

After editing leadinq blanks, look for a linn number. Report error if 
invalid; tiansfer to Ini if not prcM*nt. 

Insert line after deleting any line with same line 
numlier. 

Perform initialization for each stated execution, 
f mphes AEXP stack. 


TERM: 

CALL 

FACT 



TO: 

TST 

T1,'** 




CALL 

FACT 

; PRODUCT FACTOR. 


mpv 





JMP 

TO 



T1 : 

TST 

T2. T 

; ANY MORE? 



CALL 

FACT 

; QUOTIENT FACTOR. 


DIV 





JMP 

TO 



FACT: 

TSTV 

FO 

; VARIABLE. 



INO 


; YES, GET THE VALUE. I 


RTN 




FO: 

TSTN 

FI 

; NUMBER. GET ITS VALUE. 


RTN 




FI: 

TST 

F2.T 

;PARENTHESIZED EXPR. 


CALL 

EXPR 




TST 

F2, ’)’ 

; MATCHING PARENTHESIS. 


RTN 




F2: 

ERR 


; ERROR. 


RELOP: 

TST 

RO, ’=’ 




LIT 

0 

;■ 



RTN 




RO: 

TST 

R4, '<’ 




TST 

R 1 , ’=’ 




LIT 

2 


R4: TST 


RTN 



TST 

R1: 

TST 

R3.’>’ 


LIT 


LIT 

3 

: O 

RTN 


RTN 



R5: TST R6. V 

R3: 

LIT 

1 

: < 

LIT 3 


RTN 



R6: LiT 4 





RTN 
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by Dennis Allison, Bernard Greening, happy Lady, & lots 
of Friends 

(reprinted from People’s Computer Company Vol. 4, No. 3) 

Dear People, 

After a quick pique at TINY BASIC I have the following 
(possibly ill consicfered) comments: 

1. It looks useful for tiny computers, which is as intended. 

2. Those accustomed to extended BASIC, or even the original Dart¬ 
mouth BASIC, will be irked by its limitations. But then, that's how 
the bits byte! 

3. How does the interpreter scan the word THEN in an IF statement? 

4. Some of the comments for EXPR seem to be on the wrong line, or 
my readinq is more biased than usual. 

5. Users should note that arithmetic expressions are evaluated left-to- 
right unless subexpressions are parenthesized (i.e., there is no implicit 
operator procedure). 

6. Real numbers would be nice, but would take up a lot more space. 
Probably too much. Ditto for arrays and string variables. 

7. Please consider adding semicolon (i.e., unzoned) PRINT format 
with a trailing semicolon inhibiting the CRLF. This would be very 
useful and would be easy to add. 

8 If INPUT prompts with a question mark, please print a blank 
character after the question mark (for readability). 

9. I suggest allowing THEN as a separator in any multi-statement line, 
not just in IF statements. Since lines like 

IF 5<X THEN IF X<10 THEN GOSUB 100 
are already legal, why not allow lines like 
LET A = B THEN PRINT A 
or any other combination, including silly ones like 
GOTO 200 THEN INPUTZ 

the second statement of which would never be executed. If THEN 
works for IF, it should be possible to make it work for anything. 

10.1 also suggest allowing comments somehow. At present, comments 

must be held to a minimum 

are possible via subterfuges such as 

IF X< >X THEN PRINT."THIS IS A COMMENT" 
but that seems kind of gauche. Naturally, comments must be held to 
a minimum in TINY BASIC, but sometimes they may be vital. 

11. Doing a 
PRINT" " 

seems to be the only way to print a blank line. Well, all right. 

12. Exponentiation via ** would seem fairly easy to add, and might 
be worthwhile. 

13. By the way, all of this will execute in 1 K, won't it? 

Jim Day 

17042 Gunther St. 

Granada Hills, CA 91344 

Answering your Questions by number where appropriate: 

3&4. Woops! There should be a TST instruction to scan the THEN. 
The comments are displaced a line. See the correct? d IL listing in 
this issue. 

5. Expressions are evaluated left-to-right with operator precedence. 
That is, 3-*-2 # 5 gives 13 and not 25. To see this, note that the rou¬ 
tine EXPR which handles addition gets the operands onto the stack 
by calling TERM, and TERM will evaluate any product or quotient 
before returning. 

7. Agreed, but this is intended as a minimal system. 

9. One man's syntacic sugar is anothers poison. I don't like the idea. 
Incidentally, how would you interpret 

LET A=B THEN GOSUB 200 THEN PRINT 'A' 

The GOSUB then has to store a program address which botch¬ 
es up the line entry routine or one has to zap the GOSUB stack 
whenjm error is found. Both are solved only by kludges. 

10-12. See 7. 

13. Maybe. But 2K certainly. See below. 


Dear PCC, 

I am thrilled with your idea of an IL but I think that if you 
intend only to write a BASIC interpreter that a good symbolic 
assembler would be appropriate. With an assembler similar to 
DEC's PAL 3 or PAL 8 the necessary routines could be written 
and used in nearly the same way without having to write the 
associated run time material that would be necessary for its 
use as an interpreter. A command decoder, a text buffer, and a 
line editor would be necessary and all of this uses up a good 
amount of space in memory. 

If you are aware of all these things and still plan to develop 
an IL interpreter, then I suggest you start as DEC did with a 
simple symbolic editor as the backbone of the interpreter. In 
this way you allow a 2800% increase in development and debug 
ging speed (according to Datamation's comparison of interpreters 
and compilers whose fundamental difference is the on line editing 
capability). Once this has been implemented and IL is running 
on a particular system then the development of interpreters of 
all types is greatly simplified. By suggesting IL you have stumbled 
onto the most logical and easiest way to develop a complete 
library of interpreters. In addition to BASIC, it is very easy to 
write interpreters for: FOCAL, ALGOL, FORTRAN, PL 1, LISP, 
COBOL, SNOWBAL, PL/m, APL, and develop custom interpreters 
ters'with the ease with which one would write a long BASIC 
program! 

As I pointed out earlier, all these features take up memory 
space and, as you have pointed out, run time is much slower. The 
way around this is to define the IL commands in assembly lan¬ 
guage subroutines then assemble the completed interpreter as 
calls to these subroutines. Thus the need for the IL interpreter 
as a run time space and time consumer is no longer necessary 1 
(OK symbolic assembler haters, let's see you do this in machine 
language in less than ten man-years!) 

In places where time and space are not so much of a prob¬ 
lem, I suggest the addition of an interrupt handler and priority 
scheduler to allow IL to be used as a simplified and painless 
TIMESHARED system enabling many users to run in an inter¬ 
preter and use more than one interpreter at once. Multi lingual 
timeshare systems previously being available to those who have 
a highspeed swapping disk, drum, or virtual memory, are now 
available to the user who has about 16K of memory and a method 
of equitably bringing interpreters in to main memory from the 
outside world (a paper tape reader or cassette system is the eas¬ 
iest to come by). 

In short, IL as I suggested, in its minor stages would be a 
powerful software development aid; and in its final, most com 
plex stages would provide a runtime system of unheard of 
inexpense. 

I have h^ard from unofficial sources that ordinarily an 
interpreter or compiler requires ten man-years to write and 
debug to the point of use (if one man works the job would 
require 10 years, if 10 men work it would take one year). 

Since this is to be expected as the initial development of IL 
and since I have a general idea of the circulation of PCC, we 
should have IL up and running by the next issue of PCC 1 ! 

At this time I would like to request a few reprints of 
the article dealing with IL because I want-to get some help 
from others in my school in getting a timeshared version 
working on our 16K PDP 8/m with DECTAPE. I seem to 
have lent my copy of that issue to one of the people I had 
been trying to get on this project and he has not returned it 
to me. Meanwhile, I need the article to '-egin initial work on 
the interpreter to insure compatibility with the version coming 
across through PCC. I will keep you posted as with regards 
to the development. 

William Cattey 
39 Pequet Road 
Wallingford. Ct. 06492 

The IL approach to implementation is quite standard and 
dates back to Schorre's META II, Gleenie's Syntax Machine, and 
numerous early compilers. It was widely used in the Digitek 
FORTRAN systems. We did not "stumble" on to the technique, 
we chose it with some deliberation. 

You are right that a symbolic assembler can be used either 
to assemble the pseudocode into an appropriate form or to 
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expand the pseudocode into actual machine instructions with the 
attendant cost in space (and decrease in execution time). Our 
goal is a small, easily transportable system. The interpretive ap¬ 
proach seems consistant with this primary goal. We are using 
the Intel 8080 assembler's macro facility to assemble our 
pseudocode. 

I certainly agree that it is relatively easy (but not simple!) 
to implement other languages using the IL approach. From 
the users standpoint, provided he is not compute bound, there is 
little difference. Interpreters are often a bit more forgiving 
of errors and can give better diagnostics. 

In my experience, your figure of 10 man-years is high for 
some languages and low for others. A figure of two to four 
man-years is probably more accurate, and that includes 
documentation at both the implementation and user level. 

Good luck on your implementation. 


....I have found in my adaptation o r it (TINY BASIC IL) for full 
use that certain commands need strengthening, while some might 
be dropped. I will hopefully be coming out with these possible 
modifications. Concerning my ideas on space trade-offs; I think 
an assembled version would take less space, since each command 
is treated as a subroutine call in a program made up of routines, 
while the interpreter needs a run time system in the background 
which, since it is interpretive in !tself. takes up space. 

P S. You missed my allusion to assembler over strictly octal or 
hexidecimal op codes (my meaning was twofold). In DEC'S 
PAL8 assembler the following syntax is needed to make the mosl 
efficient use of routine calling: 

TSTN=JMSI (jump to subroutine indirectly via this location! 
if) XTSTN 


The assembler shows the binary as if TSTN were like a JMSI 100/ 
J.'/IP to subroutine indirectly via 100 (requiring very very little 
extra space per routine-one word, to be exact). 

I would be happy to resolve any questions regarding com¬ 
pilers vs. interpreters. (Datamation did an article on the writing 
of a standard program in several languages then documented 
development and run time.) wi , liam Ca ttey 


There are several different varieties of interpreters. One 
is simply a sequence of subroutine calls. Another is, as you 
suggest, a list of indirect references to subroutine calls. We are 
considering a different organization where the call address and 
some additional information is packed into a single byte. This 
is a good strategy vis a vis memory conservation only if the size 
of the code memory to decode the packed instruction plus the 
size of the encoded instructions is smaller than the size of a 
more straightforward encoding. This remains to be seen. 

I guess I did miss your point on assemblers. However, let 
me assure you that I would never advocate making software by 
programming directly in hex or binary. Even an assembler 
seems cumbersome and difficult to me; I prefer a good 
systems language like PL/M! 

Dear Dennis and other PCCers, 

In my last crazily jumbled letter I made some comments 
about TINY BASIC. Here is the result of 2-3 days work and 
thinking about it. Instead of having an interpretive IL, I chose 
to set it up as detailed as possible, then have people with different 
machines code up subroutines to perform each IL instruction. 

I'm not convinced that this way would take more space, and I'm 
sure it would be faster. 

There are a couple of changes fn the syntax from your pub¬ 
lished version: separate commands from statements, add terminal 
comma to PRINT, and restrict IF THEN to a line number (implied 
GOTO). 

The semantics are separated out from the syntax in IL as 
much as possible. This should make it easier to be clear about 
what the results of any given syntatic structure. This is most 
apparent in the TST instructions, and the elimination of the 
NXT instruction. That one in particular was a confusion. 

Please let me know how this fits with what you're doing. 

I don’t have a micro yet—time, not money p'events it. 

John Rible 


Because of space limitations, we have not been able to 
publish all of John Rible's version (dialect) of TINY BASIC. 

We'll probably include it in the first issue of the TINY BASIC 
NEWSLETTER. Limited space requires it to be in 2nd issue. 

By seperating the syntax from the semantics he has 
produced a larger and possibly simpler to understand IL. 

There are more IL instructions so, I believe, the resultant system 
will be larger; further, the speed of execution is roughly pro¬ 
portional to the number of IL instructions (decoding IL is 
costly), it will be slower. 


h in s ii a a ■ a a a ■ m a sh b m a mm a m 

1 EXTENDABLE 
1 TINY 


a 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 

B 


JOHN RIBLE 

INTERMEDIATE LANGUAGE PHILOSOPHY 

Instead of IL being interpreted, my goal has been to describe IL well 
enough that almost anyone will be able to code the instructions as either 
single machine language instructions or small subroutines. Besides speed¬ 
ing up TINY BASIC, this should decrease its si ire. Most of the instruc¬ 
tions are similar to those of Dennis’ (PCC V4 no. 2), but the syntactical 
has been seperated from the active routines. This would be useful if 
you want the syntax errors to be printed while inputting the line, rather 
than when RUNning the program. 

Most subroutines (STMT, EXPR, etc.) are recursively called, so in 
addition to the return address being stacked, all the related data must be 
stacked. This can use up space quickly. 



BBBBBBBBBBBBBBBBBBBBB 


SYNTAX for John Rible's version of TINY BASIC 

(PROGRAM): (PLINE)* 1 
(PLINE): -LNUMBER><STATEMENT> 

(ILINEZ:: (COMMAND) I (STATEMENT) 

(COMMAND) : CLEAR©|LIST©IRUN© 

(STATEMENT,'::- ©I 

LE7(VAR > = <EXPR)©1 
GOTO< EXPRT © l 
GOSUB<EXPR>© 

PR!NT<EXPR-LIST>l,le)@l 
IF<EXPR><RELOP>< EXPR> 
THEN(STATEMENT)©! 

INPUT ( VAR-LIST)©! 

RETURN © I 
END© 

(EXPR-LIST).: ((STRING) I < EXPR) I (f ((STRI NG) I < EXPR) ) I* 2 
(STRING): — "(ANY CHAR) * 2 " 

<ANY-CHARV:- any character except " or © 

(EXPR>::= (+1 — 1 t I (TERM) I (♦ | -)(TERM)) * 2 
<TERM>::-< FACTOR) ( ( *|/l < FACTOR > I * 2 
< FACTOR V: = (VAR) I (NUMBER) I KEXPR)) 

(VAR-LIST) ::=(VAR)I,(VAR ))* 2 
(VAR): - A i B I ,...| Y I Z 
(NUMBER):: = < DIGIT ) (DIGIT \ 3 
(DIGIT): := 0 I 11 ....181 9 
(RELOP):- <( = l>| t)|>l»l<|t)|» 

notes: ( is null character 

actual characters are in bold face 
♦ repeat limited by size of program memory space 
* 2 repeat limited by length of line 
repeated 0 to 4 times 

n m m m m m b b ■ ■ a tn b ■ ■ h m m m hi ■ b 


51 Davenport St. 
Cambridge, MA 02140 
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Dear Mr. Allison, 

I was very interested in your Tiny BASIC article in PCC. 
Your ideas seem quite good. I have a few suggestions regarding 
your IL system. I hope I am not being presumptuous or pre¬ 
mature with this. Unless I misunderstood you, your IL encoding 
scheme seems inadequate. For instance, IL JMPs must be capa¬ 
ble of going up and down from the current PC. This means 
allotting one of the 6 remaining bits of the IL byte as a sign 
bit resulting in a maximum PC change of *31 which is not ade¬ 
quate in some cases, ie. the JMP from iust above SI7 back to 
START. May I suggest the following scheme which is based on 
2 bytes per IL instruction: 


JMP 

CALL 

TST 

CALL 

OXXg 

IXXg 

2XXg 

IXXg 

YYYg 

YYYg 

YYYg 

YYYg 


where XX= lower 6 bits of high part of address (assume upper 2 
bits are 00) 

YYY= all 8 bits of low part of address. 

The complete address being OXXYYYg. These addresses repre 
sent the locations associated with the IL and ML instructions. 
Note that if o points to a table with a stored address, you have 
3 bytes used— my scheme uses only 2 bytes with the same basic 
information. 


fail address in 040006o 


I also wondered about the TST character string. In my 
implementation I am using the following technique: the string 
follows the TST byte pair immediately with a bit 7 set in the 
last character. 

Example: 240 j TST fa|| address jn 040006 g 

0U-\ 

0VEJ 

HTJ 

On the TSTL, TSTV, and TSTN IL's, it appears you need 
a ML address for the particular sui rou'ine and 2 additional bytes 
for the fail address. At least this is how I am handling it. 

I am looking forward to future articles in the series. 

Thanks again— keep up the good work! 

P.S. I am co-owner of an Altair. We are writing our Tiny BASIC 
in Baudot to feed our Model 19's. 

Richard Whipple 
305 Clemson Dr. 

Tyler, Tx. 75701 

We found the same problem with the published IL inter¬ 
preter. We solved it by doing a bit of rearranging and intro 
ducing a new operations code which does jumps relative to the 
start of the program, but has the same basic encoding. Your 
mechanization will, of course, work, but requires one more 
byte per IL instruction, may be harder to implement on some 
machines, and takes more code. 

We are using the same scheme of string termination (i.e., 
using the parity bit) as you are. It's simple, easy to test, and 
difficult to get into the assembler. 

There are a few errors and oversights m the IL language 
and in the interpreter you didn't mention. Sec the new 
listing in this issue. 

Good luck. Keep us informed of your progress. 


Dear People at PCC, 

I have a couple of comments on Tiny BASIC: 

S4 says TST S7, but S7 got left out. T1 says TST on my 
paper which I suppose should be TST T2. 

What is LIT and all these "or 2000"? When are we going to 
start putting some of this into machine code? 

Sincerely, 

BOB BEARD 

2530 Hillegass, No. 109 

Berkeley CA 94704 

Soon! Ed. 


Dear Tiny BASIC Dragon, 

Please scratch my name onto your list for Tiny BASIC Vol. 1. 
Enclosed is a coupon for 3 chunks of fire. 

I am really enjoying my subscription to PCC, especially the 
article on Tiny BASIC. 

Someday I am going to build an extended Tiny BASIC that 
will take over the world. 

Basically yours, 

RON YOUNG 
2505 Wilburn, No. 144 
Bethany OK 73008 


Since the last issue came out, the IL 
code, macro definitions for each IL in¬ 
struction, a subroutine address table for 
the assembly language routines that exe¬ 
cute the IL functions, the assembly lan¬ 
guage code that executes the IL func¬ 
tions Iall except the 16-hit arithmetic 
ones), and the IL processor have been 
punched on paper tape in source form. 

HOP, TST, TSTN, and TSTL now do 
branches +32 relative to the current posi¬ 
tion counter. If the relative branch field 
has a zero in it, indicating a branch to 
"here", the IL processor prints out the 
syntax error message with the line num¬ 
ber. The ERR instruction that was in 
the old IL code no longer exists. 

I JMP and I CALL are used because 
the Intel 8080 assembler uses JMP and 
CALL as mnemonics for 8080 instruc¬ 
tions. IJMP and ICALL are followed by 
one byte with an unsigned number from 
0 to 255. This is added to START to 
do an indexed jump or call. 

Bernard 
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E SUBROUTINES corrected 


EXPRi 

TST 

E0 


I TEST FOR UNARY ^ 


DB 

• _ • 

OR 

2000 


ICALL 

TERM 


;PUT TERM ON AESTK 


NEG 



J NEGATE VALUE ON AESTK 

1 

E0 t 

HOP 

El 


IGO GET A TERM 

TST 

E01 


ITEST FOR UNARY 


DB 

• ♦ * 

OR 

2000 

E0 1 t 

ICALL 

TERM 


1 PUT TERM ON AESTK 

El i 

TST 

E2 


ITEST FOR ADDITION 


DB 

• 

OR 

2000 


CALL 

TERM 


1 GET SECOND TERM 


ADD 



1PUT SUM OF TERMS ON AESTK 


HOP 

El 


1 LOOP AROUND FOR MORE 

E2 t 

TST 

E3 


ITEST FOR SUBTRACTION 


DB 

i . i 

OR 

2000 


CALL 

TERM 

IGET SECOND TERM 


SUB 



1PUT DIFFERENCE OF TERMS ON AESTK 


HOP 

El 


1 LOOP AROUND FOR MORE 

E3 i 
i 

RTW 



/THIS CAN BE RECURSIVE 

; 

TERM t 

ICALL 

FACT 

1GET ONE FACTOR 

T0 * 

TST 

T1 


ITEST FOR MULTIPLICATION 


DB 

* *• 

OR 

2000 


ICALL 

FACT 

I GET A FACTOR 


MPY 



1PUT THE PRODUCT ON AESTK 

i 

T1 

HOP 

TO 


1LOOP AROUND FOR MORE 

TST 



ITEST FOR DIVISION 


DB 


OR 

2000 


ICALL 

FACT 


1GET THE QUOTIENT 


DIV 



1PUT QUOTIENT ON AESTK 


HOP 

T0 


I LOOP FOR MORE 

T2 

i 

RTN 



IRETURN TO CALLER 

; 

FACT* 

TSTV 

F 0 


ITEST FOR VARIABLE 


IND 



1GET INDES OF THE VARIABLE 


RTN 




F0 I 

TSTN 

RTN 

FI 


ITEST FOR NUMBER 

FI I 

TST 

FI 


1 ERROR IF ITS NOT A * <• 


DB 

« C 

OR 

2000 


ICALL 

EXPR 

1THIS IS A RECURSIVE PROCESS 

El i 

TST 

FE1 


1 EVERY •<* HAS TO HAVE A •)' 


DB 

* )* 

OR 

2000 

; 

RTN 




i 

RELOPi 

TST 

R0 


ICHECK FOR 


DB 

• n » 

OR 

2000 


LIT 

0 




RTN 




R0 t 

TST 

RA 


ICHECK FOR •<• 


DB 

•<• 

OR 

2000 


TST 

R1 




DB 

• - ’ 

OR 

2000 


LIT 

2 




RTN 




R1 l 

TST 

R3 


ICHECK FOR *>• 


DB 

• >• 

OR 

2000 


LIT 

3 




RTN 




R3 I 

LIT 

1 




RTN 




R4 » 

TST 

R4 




DB 

• >• 

OR 

2000 


TST 

RS 




DB 

• ■ • 

OR 

2000 


LIT 

5 




RTN 




R5 i 

TST 

R6 




DB 

• < * 




LIT 

3 




RTN 




R6 » 

LIT 

A 




RTN 





STATEMENT EXECUTOR WRITTEN IN 1L (INTERPRETIVE LANGUAGE) 
THIS IS WRITTEN IN MACROS FOR THE INTEL INTELEC 8/MOD 80 
SYSTEM USING INTEL’S ASSEMBLER. 

CONTROL SECTION 


START I 

INIT 


I INITIALIZE 

ERRENTl 

NLINE 


/WRITE A CR-LF 

COi 

GETLN 


/WRITE PROMPT AND GET A LINE 


TSTL 

1NSRT 

XEC 

I IF NO LINE NUMBER GO EXECUTE IT 
/INSERT OR DELETE THE LINE 


IJMP 

CO 

ILOOP FOR ANOTHER LINE 

XECi 

XINIT 


UNITIALIZE FOR EXECUTION 


STATEMENT EXECUTOR 


STMT 1 

TST 

SI 

ICHECK FOR ’LET* 


DB 

•LE’,’T 

’ OR 2000 

SEI t 

TSTV 

SEI 

/ERROR IF NO VARIABLE! 

SE2 i 

TST 

SE2 

/ERROR IF NO 


DB 

’•’ OR 

2000 


ICALL 

DONE 

STORE 

NXT 

EXPR 

IPUT EXPRESSION ON AESTK 

ICHECK FOR CR LINE TERMINATOR 
/PUT VALUE OF EXPRESSION IT ITS 
ICONTINUE NEXT LINE 


ICALL 

EXPR 

DONE 


XFER 


TST 

S2 

DB 

*SU’, 

ICALL 

XPER 

DONE 


SAV 


XFEP. 


TST 

SB 

DB 

•PRIN 

TST 

S7 

DB 

.... o, 

PRS 


TST 

S6 

DB 

’ , ’ 01 

SPC 


HOP 

S4 

DONE 


NXT 


TST 

S9 

DB 

’I’,’I 

ICALL 

EXPR 

ICALL 

RELOP 

ICALL 

EXPR 

TST 

S8A 

DB 

’THE’. 

CMPR 


IJMP 

STMT 

TST 

S 1 2 

DB 

’ INPU' 

ICALL 

VAR 

INNUM 


STORE 


TST 

SI 1 

DB 

’,’ Of 

DONE 


NXT 


TST 

S! 3 


ICHECK FOR ’GO* 

OR 2000 

ICHECK FOR ’GOTO* 

OR 2000 

I GET THE LABEL 

ICHECK FOR CR LINE TERMINATOR 
IDO A ’GOTO’ TO THE LABEL 


ICHECK FOR ’GOSUB’, FAILURE IS AN ERRORI 
’ OR 2000 

I PUT EXPRESSION ON AESTK 
ICHECK FOR CR LINE TERMINATOR 
ISAVE NEXT LINE NUMBER IN BASIC TEXT 
IDO A ’GOSUB’ TO THE LABEL 


ICHECK FOR ’PRINT’ 

•T’ OR 2000 

ICHECK FOR ”V TO BEGIN A STRING 
2000 

IPRINT THE DATA ENCLOSED IN QUOTES 
I * , ’ KEANS MORE TO COME 
2000 

I SPACE TO NEXT ZONE 

IGO EACH FOR MORE 

ICHECK FOR CR LINE TERMINATOR 

ICONTINUE NEXT LINE 


ICHECK FOR ’IF’ 

OR 20eo 

I GET THE FIRST EXPRESSION 
i GET THE RELATIONAL OPPERATOR 
I GET THE SECOND EXPRESSION 
ICHECK FOR ’THEN’ 

N’ OR 2000 

Iir NOT TRUE CONTINUE NEXT LINE 
I IF TRUE PROCESS THE REST OF THIS LINE 


ICHECK FOR ’INPUT* 

•T* OR 2000 

I GET THE VARIABLE’S INDEX 

ICET THE NUMBER FROM THE TELETYPE 

/PUT THE VALUE OF THE VARIABLE IN ITS CELL 

I’*’ MEANS MORE DATA 


ICHECK FOR CR LINE TERMINATOR 
ICONTINUE NEXT LINE 


ICHECK FOR ’RETURN’ 

,’N’ OR 2000 

ICHECK FOR CR LINE TERMINATOR 
I RETURN TO CALLER 


ICHECK FOR ’END* 

’ OR 2000 

IGO BACK TO CONTROL MODE 


ICHECK FOR ’LIST* 

•T’ OR 2000 

ICHECK FOR CR LINE TERMINATOR 
I TYPE OUT THE BASIC PROGRAM 
ICONTINUE NEXT LINE 


/CHECK FOR ’RUN* 

’ OR 2000 

ICHF.CK FOR CR LINE TERMINATOR 
ICONTINUE NEXT LINE 


ICHECK FOP. ’CLEAR’, FAILURE IS AN ERROR I 
' R’ OR 20eO 

/REINITIALIZE EVERYTHING! 
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December 12, 1975 

The Tyler Branch of the North Texas Computer Club is still having 
fun with Tiny BASIC as you can see by examining the print-out that 
follows. We are now calling it Tiny BASIC Extended after the addi- 
tion of FOR-NXT loops, DIMension statements-arrays, and a few 0( 
other goodies. The LIFE program was written by David Piper, a 
high school student of John's (he teaches at Robert E. Lee High oc 
School). David is working on KINGDOM now-we can hardly wait. 
Below are a few comments about our system and Tiny BASIC that 
may be of interest to your readers. OC 

1. Our Altair 8800 is interfaced to a Model 19 Baudot Teletype ^ 
at John's and via modems and a leased telephone line to a Model 15 oc 
Teletype at my house about 3/4 mile away. At present the system 

is strictly BAUDOT --no ASCII conversion whatsoever. OC 

2. We use a Suding-type cassette interface that has been very 0( 

reliable. 4K bytes load in about 1 minute 20 seconds. OC 

3. The Tiny BASIC Extended takes about 2.9K bytes of oc 

memory. 

4. The storage format for our Tiny BASIC is as follows: OC 

2 byte statement label - 1 byte length of text - multibyte text (cr) 0( 

The statement label range is 1 to 65535. The "length of text 0 c 

byte" is used to speed up label searching in GOTO and other 0( 

branching. 

5. To conserve memory, we have shortened some commands to oc 
two or three letters (i.e., PR for PRINT, IN for INPUT, NXT for oc 
NEXT, etc.). ° 0 l 

6. A "$" is used to write multi-statement lines. A "!" is used to o; 

suppress new line output in a PR statement. This allows continuing 
the next PR on the same line. The provides one skipped space in oc 
a PR statement. OC 

7. Functions currently on line are: K 

RN -► generates random numbers between 0 and 10,000 decimal. OC 
TB (exp) -►TAB function in PR statement produces a number 

of skipped spaces equal to the value of "exp," an arithmetic 0C 

expression. 0j 

8. Memory for arrays is allotted from the top of memory down 0 ; 

while the program builds from the bottom up. If they cross, you get 0 , 

error message. Arrays may be 1 or 2 dimension. Max. size: 255 by o: 

255. «; 

9. Here are some BAUDOT equivalances: 05 

: = (equal to) 05 

): > = (greater than equal to) 

(: <= (less than equal to) 05 

)( <> (not equal to) 

& + (plus) 05 

# * (times) 05 

Parentheses are also used in arithmetic expressions. The system qj 
understands the difference by context. 05 

10. FOR 1=1,1000 

NXT I 05 

END takes about 1.6 seconds to execute. 05 

11. The colon is used as a Tiny BASIC prompt. ^ 

12. "?" is used as a rubout key and two LTR's keystrokes are 06 

used to begin a line over (LTR and FGS are keystrokes used to 0 < 
change case in Model 15/19 Teletypes) 06 

13. Model 15/19 Teletypes are great machines and we have 

proved their worth to computer hobbyists! oc 

06 

Thanks again for your fine work at PCC, we remain 06 

Yours Truly, 06 


UIO II II till till t I I! 
t 2 
T 2 
7 2 
1 2 
t 2 

GENERATIONS 7 3 


I GENERATION 0 


IPOPULATION IS 7 


DICK WHIPPLE 
305 Clemson Dr. 
Tyler TX 75701 


JOHN ARNOLD 
Rt 4, Box 52A 
Tyler TX 75701 


Pa "LIFE PITH TINY BASIC EXTENDED" 

PR "SIZE";I 
LET FJ0 
IN A 

PR""$ PR "THE BEGINNING-WAIT’S PR"" 

LET BIAJ.2 
DIN CCB,B),HCB,B> 

FOR J:l TO B 
FOR III TO B 

LET GCI,J)J0$ LIT HCI,J)t0 
NXT I irun 

LET MSA 11 TINY MSIC 

FOR J 12 TO M IKE BECINNINC-UAIT 

FOR I 12 TO M 

INK J % 

IF K CS 1 GO TO 220 I \ 

LET ISM 72 

GO TO 230 t 2 

LET G(I,J)SK 7 0 7 0 7 1 7 1 7 1 

IF K 1 1 LET FsFAl J 5 

NXT I 7 2 

PR"" J l 

J GENERATIONS 7 3 

PR "GENERATIONS";I 

JfJ D GENERATION 0 

PR"" 

PR"" POPULATION IS 7 

LET Sso 

FOR ESS TO D * * 

PR "GENERATION*;ESPS"" 

PR"" 

IF F ) 0 GO TO 305 
PR "POPULATION IS ZER0"SPR""$END 
PR "POPULATION IS";FSPR"" 

CO SUB 6000 CENERAT 

LET FsO 

GO SUB 5000 P0PULA7 

NXT E 

PR "HOW MANY M0RE";!$IN C$PR"" 

PR"" 

IF C S 0 END 

LET SSESLET D SDAC 1 

GO TO 290 J 

FOR l!2 TO H 

FOR JS2 TO M \ 

LET N10 \ 

LET NsGCI-l,J-l>tC(I,J-l)iGCIAl,J-l>AGCI 
LETN:NtCCI-l,JU>AGCI,JUKG<nl,JAl> \ 
IF GCI,J> )C 1 GO TO 5180 \ 

IF N ) 1 GO TO 5150 
LET KCI,J)S0 
GO TO 5210 

IF N (S 3 GO TO 5200 
LET HCI ,J) SO 
GO TO 5210 

IF N )C 3 GO TO 5210 
LET HCI.Jltl 
LET FlFil 
NXT J 
NXT I 

FOR I Si TO B 
FOR JslTO B 
LET G(!,J)1H(I,J> 

LET H(I,J)10 
NXT j 
NXT I 
RET 

FOR JS2 TO M 
LET R SO 
FOR 0S1 TO M 
IF GCQ,J) 1 1 LET RSI 

NXT 0 

IF R S0 CO TO 6120 
FOR I 52 TO M 
IF GCI,J> S 1 GO TO 6100 
PR " *;i 
CO TO 6110 
PR 

NXT I 
PR *" 

NXT J 
PR""SPR"* 

RET 


GENERATION 1 


POPULATION IS 15 


I I t / f 
flint 
I I I I I 


-l,J)tCCItl,J) 


-ENERATION 2 


POPULATION IS 12 


III 
I I 

I I 

t •! 

Ill 


GENERATION 3 


POPULATION IS 22 


I 

III 
I I I I I 
II II 

I I I I I 
III 
I 


HOU MANY MORE 7 1 
GENERATION 4 


POPULATION IS 1« 


III 
I I 

I I 

I I 

I I 

I I 

III 

ROW MANY MORE 7 0 
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TINY BASIC, EXTENDED VERSION 

by Dick Whipple (305 Clemson Dr., Tyler TX 75701) 

& John Arnold (Route 4, Box 52-A, Tyler TX 75701) 

INTRODUCTION 

The version of TINY BASIC (TB) presented here is based on 
the design noted published in September 1975 PCC (Vol. 4, No. 2). 
The differences where they exist are noted below. In this issue we 
shall endeavor to present sufficient information to bring the system 
up on an Itel 8080-based computer such as the Altair 8800. Included 
is an octal listing of our ASCII version of TINY BASIC EXTENDED 
(TBX). In subsequent issues, structural details will be presented 
along with a source listing. A Suding-type cassette is now available 
from the authors (information to follow). We would greatly 
appreciate comments and suggestions from readers. Unlike some 
software people out there, we hope you will fiddle with TINY 
BASIC EXTENDED and make it less Tiny\ 


ABBREVIATED COMMAND SET 

TB AND TBX 

LET ' 

PR 
GOTO 
GOSUB 
RET 
iF 

IN In In 

LST *TB *TBX 

RUN 
NE W * 

SZE 

DIM 

FOR 

NXT_ 

‘‘CLEAR in original TB 


STANDARD BASIC 

LET 

PRINT 

GOTO 

GOSUB 

RETURN 

IF 

INPUT 

LIST 

RUN 

NEW 

SIZE 

DIMENS[ON 

FOR 

NEXT 


6. PJJd Statement: Ono or two dimensional arrays permitted. 
Array arguments cun bo expressions. 


Examples 


10 LET V = 10 

20 DIM A(10,1Q),B(2 + V) 


Array variables can bo used in the name manner as ordinary 
variables. 

7. J’.OR and I QCT Statements: Step equal to 1 only. Iterative 
limits can bo expressions. Nesting permitted. Caro must 
bo exercised when exiting a loop prior to completion of 
index ing • See Exarnple. 


Exfijaple: 


LET X = 10 

FOR I - 1 to X 

LET Y = 2 * A + B 

IF Y = Z I = X*NXT I$GOT0 60 

NXT 1 

LET Y = 3 


* For explanation of "S’* see no. 9. 


8. Available Functions: 

a) R£: Random number generator. Range 01 RHi 10,000. 

No argument permitted. 

b) TB(E) : Tab function. In a FR statement, TB(K) prints 

a number of SPACE*s equal to tho value of expression "E”. 

9. The dollar sign can bo used to write multiple statement lines. 


Example: 


10 IN B 

20 LET A s 2*(B+1)$PRA£END 


When using an IF statement, a '•false” condition transfers 
execution to tho noxt numbered lino. Thao 1a lino 40 of 
tho example of no, the chained statements will not be 
executed unions a "true” condition is encountered. 

10* l&L Command: Can toko ary ono of three forms l 

a) LST CR— lists all statements in program 

b) LST a OR— lists only statement labelled a 

c) LST a,b Gii— lists all statements between labels a and b 
inclusive. 

11. S ZE Command: Prints two decimal nurabora equal to: 

a) Number of memory byte3 used by current program. 

b) Number of memory bytes remaining. 

Note: Array storage included only after first execution 
of program. 

12. Recording Programs on Cassette: Core dumps to cassette 
should begin at 033350 ( onlit octal) and continue through 
addross stored at 


TBX — I1QV/ IT DIFFERS FROM TB 

1. TEX system prompt is a colon 

2. Statement label values 1 to 65535* 

3. Forror correction during lino entry; 

a) Rubout (ASCII 177 rt ) to delete a character. Prints 
a " 

b) Control L (£orm £eed ASCII 014g) to delete full lino. 

4. IN Statement: Termination of numeric input is accomplished 
by SPACE keystroke. All other terminations use CR (Carriage 
Return). 

5* E8. Statement: A comma is used for zone spacing while u 

semicolon produces a single space. A comma or s<imicolon 
at the end of a line surproanos Git and LP (Line Feed). 

To skip a lino, u 30 PR by itself. 


033354 (low byte of address) 

033355 (high byte of address) 

Of course theoe cassette programs should bo loaded 
back at 033350. 


IMPLEMENTING THX 


Memory Allocation: 


I. Mine. Storage (i/O Routines) 000000 to 000377* 

II. THX 020000 to 033377 

III. TEX Programs 034000 to upper limit of memory. 

* In our system we maintain a Monitor/Editor in the first IK 
byte of maaory. 3/4 iC is protected and l/4 K can be \ 13 ed for 
system PAM. Such a configuration is useful but not necessary. 
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External Program Requirements: 

1# System Entry Routine — 


000004 254 7 JMP TEX Entry Point 

000005 021 ) 

The stack pointer (SP) must not bo in protected memory. 

If you desire to relocate the SP change the following 
locations accordingly: 

a) 000001 (SP low) and 000002 (SP high) 

b) 026301 (SP low) and 026302 (SP high) 

2* System Recovery Routine — 

ADRS INST 


3* Input Subroutine: Your input subroutine must begin at 
000030. It should carry out the following functions: 

a) Hove an ASCII character from the input device to 
register A. The ASCII character should bo right 
Justified in A with Parity bit equal to zoro. 

Example: "B" keystroke should set A to 102^. 

b) Tost for ESC keystroke (ASCII 177t>) and Jump if 
true to 000000. Suggested instructions 


EXECUTING TBX: 

Simply examine 000000 and place the computer in the RUN 
mode. A colon indicates the system is operative. 

ERROR MESSAGES 

The form of error messages is: ERR a 3 where a is error num¬ 
ber, and 6 is statement number where error was detected. Label 
00000 indicates error occurred in direct execution. 

ERROR NUMBER 

1 Input line too long-exceeds 72 characters. 

2 Numeric overflow on input. 

3 Illegal character detected during execution. 

4 No ending quotation mark in PR literal. 

5 Arithmetic expression too complex. 

6 Illegal arithmetic expression. 

7 Label does not exist. 

8 Division by zero not permitted. 

9 Subroutine nesting too deep. 

10 RET executed with no prior GOSUB 

11 Illegal variable. 

12 unrecognizable statement or command. 

13 Error in use of parentheses. 

14 Memory depletion. 

EXAMPLE PROGRAM OF TBX 

One example program written in TBX follows. It might assist 
you in debugging. A TBX line is structured as follows: 


l CPI 'ESC' 

l 

2 

3 

4 


Lr_ 

n+l 

7 JPZ Sjb ten Entry Routine 

7 / 



c) Output an echo check of the inputed character. 

d) No registers should bo modified except A. 

4. Output Subroutine: lour output subroutine should begin at 
000050. It should move the ASCII character in register A 
to the output device. Parity bit ie xcro. No registers 
Including A should be modified. 

5. Ca-U - Subroutine: At 000020 you must have a subroutine 
that will output a CK followed by a If. Only register 
A may be modified. 


LOADING TBX: 

The octal listing of TBX is reproduced later in the text. 
Addressing is split octal and gives the address of the first byte of 
each line. An octal loader of some kind is almost a necessity. Load¬ 
ing by front panel switches would be a considerable chore. A 
Suding-type cassette is available for $5, postpaid, from the authors. 
Send check or money order to: TBX Tape c/o John Arnold, Route 4, 
Box 52-A, Tyler TX 75701. If you are interested in a Baudot version 
of TBX, please inquire at the same address. 

Use of a cassette tape to store TBX is virtually a necessity. 
Every effort has been made to protect TBX against self-destruction 
byt nothing is 100% sure! 

The highest address available in your system for program 
storage must be loaded as follows: 

026115 XXXg low part 

026116 XXXg high part 

Example: Suppose you have one 4K board: 026115 377 

026116 037 


Byte No. 

1 & 2 Binary value of label; most significant part in 1. 

3 Length of text plus 2 in octal. 

4 thru n Text of line. 

n+1 CR (015g). 

After the last line you should find two 377s. At the end of the 
example run is an octal dump of the program area of memory. 

EXAMPLE PROGRAM IN TKK 


110 IN A 

:20 PR" TEST A IS *;A 

no pr 

ISO GOTO 10 
iLST 

00010 IN A 

00020 PR* TEST A IS ";A 
00010 PR 
OOOAO COTO 10 
ILST 20 

00020 PR* TEST A IS *;A 
ILST 20,30 

00020 PR* TEST A IS *;A 

00030 PR 

IRON 

t 12 TEST A IS 12 
T 356 TEST A IS 356 




!DP0:034000 007 
034000 000 012 


03^010 

034020 

034030 

034040 

034050 

034060 

I 


015 000 
040 040 
040 111 
000 036 
050 012 
061 060 


007 040 111 
024 025 040 
124 105 123 
123 OmO 042 
005 040 120 
040 107 117 
015 377 377 


116 040 101 
120 122 042 
124 040 101 
0/3 101 015 
122 015 000 
124 117 040 
*0* -022 OOO 
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020000 

041 

111 

020 

006 

1 10 

337 

376 

015 

TINY DA51C EXTENDED 

023000 

227 

274 

302 

021 

023 

275 

302 

021 

020010 

312 

036 

020 

376 

177 

312 

040 

020 

OCTAL LISTING 

023010 

023 

041 

004 

032 

30) 

343 

305 

247 

020020 

376 

014 

312 

067 

020 

167 

043 

005 

023020 

311 

023 

032 

147 

023 

032 

157 

042 

020030 

312 

306 

026 

303 

005 

020 

167 

31 1 


023030 

350 

033 

023 

023 

301 

04 1 

022 

032 

020040 

053 

00s 

076 

077 

357 

303 

005 

020 


0230.0 

343 

305 

247 

311 

305 

104 

115 

052 

020050 

332 

000 

021 

076 

057 

276 

322 

OCO 


023030 

361 

033 

160 

043 

161 

043 

042 

361 

020060 

021 

303 

371 

020 

OOO 

OOO 

OOO 

32 7 


023060 

033 

301 

175 

376 

177 

330 

303 

322 

020070 

076 

072 

357 

076 

015 

062 

00 7 

020 


023070 

026 

305 

0 52 

361 

033 

053 

)C6 

053 

020100 

303 

000 

020 

000 

OOO 

OOO 

OOO 

OOO 


023)00 

042 

361 

033 

M6 

175 

376 

100 

150 

0201iO 

000 

1 14 

123 

124 

040 

066 

060 

060 


023110 

301 

32 0 

303 

325 

026 

174 

057 

147 

020120 

054 

066 

062 

060 

0 15 

015 

042 

124 


023120 

175 

057 

157 

043 

311 

315 

071 

023 

020130 

105 

123 

124 

061 

042 

04 4 

IcO 

122 


023130 

174 

267 

362 

147 

02 5 

3 1 5 

115 

023 

020:40 

040 

042 

105 

116 

104 

042 

015 

106 


023140 

076 

055 

345 

315 

02 6 

022 

34 1 

315 

0201 50 

117 

122 

0 40 

122 

117 

12 7 

040 

042 


023150 

10) 

022 

247 

31 x 

345 

052 

352 

033 

020 160 

073 

11 1 

015 

015 

1 11 

124 

0 40 

1 16 


023160 

104 

1)5 

34 1 

0x2 

2 74 

312 

174 

023 

020170 

1 x7 

122 

105 

040 

1 14 

1 1 1 

1 16 

105 


023170 

320 

303 

204 

023 

003 

012 

275 

312 

0«'0200 

J 23 

042 

015 

015 

042 

015 

057 

067 


023200 

220 

023 

320 

013 

003 

003 

012 

201 

020210 

062 

010 

000 

OOU 

OOO 

OOO 

OOO 

OOO 


023210 

117 

322 

163 

023 

004 

303 

163 

023 

020220 

000 

032 

3 76 

060 

330 

576 

072 

320 


023220 

013 

140 

151 

31) 

315 

07 1 

023 

315 

020230 

346 

017 

311 

000 

OOO 

OOO 

OOO 

OOO 


023230 

154 

023 

353 

312 

022 

023 

303 

330 

020240 

000 

000 

000 

OOv 

OjO 

OOO 

OOO 

OOO 


023240 

026 

32 5 

076 

077 

315 

026 

022 

076 

020250 

000 

000 

000 

000 

OjO 

OOO 

OOO 

OOO 


023^50 

040 

357 

06c 

00 7 

020 

315 

OOO 

020 

020260 

000 

000 

000 

ooo 

OOO 

02 1 

1 1 1 

020 


023260 

02 1 

1 1 1 

020 

032 

376 

055 

04 1 

OOO 

020270 

325 

032 

376 

0 40 

023 

3 12 

27 1 

020 


023270 

OOO 

312 

312 

023 

315 

331 

020 

315 

020300 

033 

04 1 

000 

000 

376 

100 

3 32 

320 


023300 

044 

023 

076 

0)5 

062 

007 

020 

321 

0203 »0 

020 

042 

350 

033 

JuO 

321 

311 

OOO 


02 3310 

24 7 

311 

023 

315 

331 

020 

315 

115 

0203/0 

315 

331 

020 

042 

3 50 

033 

067 

321 


023320 

023 

303 

277 

023 

032 

376 

040 

023 

020330 

31 1 

315 

221 

020 

376 

012 

320 

023 


023330 

312 

324 

023 

033 

306 

300 

3-0 

00 7 

020340 

104 

115 

051 

051 

Oil 

05 i 

332 

311 


023340 

157 

046 

024 

315 

044 

023 

067 

023 

020360 

026 

1 17 

006 

000 

01 1 

303 

331 

020 


023350 

311 

032 

376 

040 

023 

312 

351 

023 

020360 

325 

052 

350 

033 

104 

115 

04 1 

1 1 1 


023360 

033 

376 

100 

322 

310 

023 

376 

050 

020370 

020 

076 

071 

043 

276 

303 

050 

020 


023370 

310 

04 1 

OOO 

OOO 

303 

124 

024 

OOO 

021000 

345 

026 

001 

076 

015 

276 

312 

016 


024000 

OOO 

023 

055 

050 

007 

056 

073 

025 

021010 

021 

024 

043 

303 

005 

021 

1 72 

062 


024010 

OOO 

001 

002 

OOO 

001 

OOO 

001 

OOO 

021020 

356 

033 

321 

052 

352 

033 

176 

2 70 


024020 

002 

0 00 

001 

ooo 

013 

OOO 

010 

OOO 

021030 

312 

052 

021 

322 

064 

021 

043 

043 


024030 

OOO 

ooo 

OOO 

0 00 

070 

OOO 

025 

ooo 

021040 

175 

206 

157 

322 

026 

021 

044 

303 


024040 

OOO 

ooo 

OOO 

ooo 

OOO 

OOO 

002 

ooo 

021020 

026 

021 

043 

176 

271 

312 

170 

021 


024050 

324 

046 

004 

0O0 

002 

OOO 

001 

ooo 

02)060 

332 

037 

021 

053 

053 

325 

353 

052 


024060 

000 

OOO 

003 

ooo 

126 

0?3 

OOO 

023 

021070 

354 

033 

345 

0 72 

356 

033 

306 

003 


024070 

016 

OOO 

004 

ooo 

OOO 

023 

OOO 

02 3 

021100 

205 

322 

105 

021 

044 

157 

315 

3 40 


024100 

032 

023 

376 

040 

312 

100 

024 

033 

02)x10 

030 

104 

115 

34 1 

176 

002 

053 

013 


024110 

376 

015 

310 

3 76 

04m 

310 

303 

314 

021120 

174 

272 

302 

114 

021 

x 7 5 

273 

302 


024120 

026 

023 

076 

oo; 

315 

331 

020 

315 

021130 

114 

021 

023 

052 

3 50 

033 

353 

162 


024130 

044 

02 3 

311 

315 

07 1 

023 

106 

043 

021140 

043 

163 

043 

072 

3 56 

033 

074 

167 


024140 

146 

150 

315 

044 

02 3 

24 7 

311 

315 

021150 

043 

321 

032 

167 

376 

015 

312 

166 


024150 

07 1 

02 3 

1 14 

105 

3 15 

071 

023 

160 

021160 

02 1 

043 

023 

303 

152 

021 

321 

311 


024160 

043 

161 

247 

311 

03 5 

372 

034 

125 

021170 

053 

345 

043 

043 

043 

176 

376 

015 


024170 

023 

321 

076 

001 

311 

023 

OOO 

023 


021200 

312 

207 

021 

043 

303 

175 

021 

043 

021210 

353 

052 

35** 

033 

043 

104 

115 

341 

021220 

032 

167 

043 

023 

172 

270 

302 

220 

0212JO 

021 

173 

271 

302 

220 

021 

053 

042 

0212.0 

354 

033 

072 

356 

033 

376 

001 

302 

02)250 

361 

OcO 

321 

3x1 

04 1 

002 

03 c 

176 

021260 

376 

200 

322 

314 

02 1 

376 

100 

322 

021270 

300 

O 2 I 

043 

156 

147 

303 

257 

021 

021300 

346 

077 

107 

043 

116 

043 

345 

140 

0213)0 

151 

303 

257 

021 

376 

300 

322 

OOO 

02)320 

022 

346 

077 

107 

043 

116 

043 

032 

021330 

023 

376 

040 

312 

3c 7 

021 

033 

325 

021340 

353 

03c 

37 6 

200 

322 

363 

021 

276 

02)350 

043 

023 

312 

341 

02 1 

321 

140 

151 

021360 

303 

257 

021 

346 

17/ 

2^6 

302 

3 55 

02)370 

02 i 

353 

301 

Oc3 

04 3 

303 

257 

021 

022000 

346 

077 

043 

116 

043 

345 

04 1 

0)5 

02^.010 

022 

345 

147 

151 

351 

34 1 

322 
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055540 

324 

524 

147 

322 

504 

322 

3 75 

072 

030350 

360 

02o 

0-4 2 

354 

033 

311 

Oo\j 

OOO 

055550 

OOO 

OOO 

OOO 

034 

054 

034 

004 

040 

030360 

07*: 

366 

033 

326 

000 

275 

322 

352 

033360 

017 

100 

030 

OOO 

1 64 

024 

3 77 

057 

030370 

030 

303 

560 

026 

000 

000 

000 

OOO 

055570 

ooo 

ooo 

056 

241 

051 

321 

377 

05 7 
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fhe dsciailcaS qroua 


po boi 6528. denvcr. Colorado 80206 
December 14, 1975 


Mr. Bob Albrecht & Bernard Greening 
People's Computer Company 
PO Box 310 

Menlo Park, CA 94025 


Dear Bob and Bernard, 

I am very interested in helping out with your Tiny BASIC (perhaps 
Micro BASIC might be more appropriate). Since my specialty is 
Hardware and the lowest level Software to interface this hardware 
to a system, I would like to suggest a simple hardware subsystem. 

A scientific calculator IC can be easily interfaced to a micropro¬ 
cessor to provide all of the various mathematical operations very 
accurately with minimal software overheaJ. I am including a copy 
of some of the scientific calculator documentation out by the 
Digital Croup. 

This scientific calculator has been interfaced to an 8008 (Mark-8 
modified) and MOS Technology 6501/2 system. The software can bo 
easily modified to support an 8080 or 6800, thereby providing an 
earty access to building "Tiny BASIC" for 8008, 8080, 6800, 6501 or 
6502 systems. 

The major drawback of a calculator chip for math routines is that 
it is very slow compared to specialized hardware and software systems. 
The major advantages are; 

1. Low software overhead (about 300 bytes for Interfacing) 

2. Low cost (around $45 worth of parts fc PC board) 

3. Quick way to develop Math routines with high accuracy. 

I would bo happy to assist PCC in developing Tiny BASIC using these 
Scientific Calculator IC's. 

, ISB 0 

Dr. Robert Suding j 

c/o The Digital Group * 

SCIENTIFIC CALCULATOR 

Here is a calculator circuit designed to be used with any output 

computer of 8 bits or more capacity. I am presently using it pout i 

with an 8008 system, approximately 300 bytes of storage being 

required to basically interface this circuit to my TV readout 

and keyboard. Only one 8-bit input port and one 8-bit output 

port is required. 4 

5 

The heart of the circuit is the 2529-103 calculator IC from 

M 03 Technology. This is a simple IC which gives trig, log, 6 

memory, square root, etc., functions. The display is normally 

a 12-digit LED 7-segment assembly. The segment drivers are 

built into the 2529. The 12-digit outputs are usually fed to MSB 7 

a pair of 75492's which serially scan each of the 12 digits at 

about a 6011z cycle rate from an internal clock. A matrixed 

keyboard is normally attached between the 12 digit outputs of tho 

2529 and 4 keyboard inputs of the 2529, giving a potential 

48-kry input capability, 41 of which arc actually used. 

The design required efficient handling of the 12-digit outputs. 

Since it was necessary to utilise tho digit outputs for both 
data entry and digit segment output, the design w.is centered 
on a controlled accessing of the asyncronously scanning 12 
digits. The computer has 4 bity of an output port assigned 
to the duty of selecting a given digit by sending its binary 
equivalent to the inputs of a 74150 sixteen input selector. 

When the selected digit becomes present the output at pin 10 

of tho 74150 goes low as long a3 the digit in present. By 

combining this input with three more bits from the computer, 

the desired "keyboard" input is sent to the 2529. The computer j\ 

word should be held for at least 40 ms to be certain that the 

asyncronously scanning digit has been accessed. FUNCTION 

Likewise, the digit output must identify the diqlt to which the q 
current segment outputs apply. By usinq the same coding scheme ^ 
for the four inputs to the 74150, a computer controlled sampling 2 
system is established. The MSB output from the computer informs j 
the calculator interface that a digit/segment output is desired. ^ 

When the desired digit finally ripples by, a strobed MSB* pulse , 
appears on the interface output. This pulse then interrupts ^ 

the computer to inform it that the segment data for the desired _ 
digit is present and valid as long as the MSB stays ♦. 8 

Several considerations: First, only 5 of the 7 segments are 
needed to decode 0 through 9, minus, blank, and the error 
signs. Each digit may also have a decimal point attached to 
it, 60 tho output becomes 6 bits, plus the MSB strobe bit. Be ” 

aware that these calculator chips are quite slow. When entering a * 

data item or especially a function, the display will go blank up 
to 1 /3 second while internal processing takes place. The result 
can take on any number of digits, but digit 9 is always used. By 
sampling for "digit 9 not blank," the end of internal processing no oj 
can be detected. When this occurs, either further entries, or sam¬ 
pling of all 1 2 digits may proceed without data loss. 8008 pro- ini 

grams have been written to handle simple keyboard entry and tv IT _ 
result display, and interactive calculation operations involving — 1 

messages anf formula building and reiteration. These are avail- * 

able through the Digital Group. 3 

4 

The 2529 is available from Mos Technology at $27.50 apiece. | 

Some newer scientific calculator chips have been announced by 
Mos Technology and are being presently sampled. 


I would question the advisability of using these simpler chips 
with their much lower calculation power return. Mos Technology 
also makes an RPN format calculator IC, the 2529-106 for H.P. 
buffs. A metric conversion chip (2529-104) is also available from 
Mos Technology. These IC's have been tried in the circuit. They 
are directly usable in the enclosed circuit. 

The basic functions are roughly equivalent to the Tl SR-50, but 
the enhanced software version will be considerably better than 
the HP-65 programmable calculator due to its message display 
capacity and "almost" unlimited memory capacity. 

-Dr Robert Suding WOLMD 


SCIENTIFIC CALCULATC® SUBASSEMBLY 
SCR »-BI T MICROCO MPUTERS_ 


'■■peat tfsistca c oiort 

■.£TwC« TO* EACH OF o 
17 3IGITS 


ill iif-riNT ■ 

MOS TECHNOLOGY 


*FPf AT RES I *1 TEA t 0IG0E 
4ETW0BK FOR EACH OF 5 
•FOMENTS t DECIMAL POINT 


CALCULATOR CHIP 


1NRIR 

etc 



ADJUST R1 C *7 r OR 
SOMA CRAM |F USING 
OTmFR Than * ) 7, BlV 
Supply voitaf.es 


OUTPUT CODES FOR SEGMENT DECODE 


INPUT CODES FOR FUNCTION ENTRY 


ICTION 

OCTAL 

REX 

FUNCTION 

OCTAL 

HEX 






* 

0 

021 

11 

ARC 

033 

IB 

1 

022 

12 

SIN 

061 

31 

2 

023 

13 

COS 

062 

32 

3 

024 

14 

TAN 

063 

33 

4 

025 

15 

LN 

064 

34 

5 

026 

16 

LOG 

065 

35 

6 

027 

17 

RCL 

067 

37 

7 

030 

18 

I 

070 

38 

8 

031 

19 

*«-Y 

071 

39 

9 

032 

1A 

DGR 

072 

3A 


041 

21 

STO 

073 

3B 

♦ 

042 

22 

CA/CE 

074 

3C 

- 

043 

23 

CHS 

053 

2B 

X 

044 

24 

EEX 

054 

2C 

* 

C 4 5 

25 

y* 

046 

26 

m 

047 

27 

{ 

050 

28 

H 

052 

2A 

) 

051 

29 

r 

066 

36 

10* 

103 

43 

l/x 

101 

41 

e x 

104 

44 

X* 

102 

42 

n: 

105 

45 

NO Op 

000 

00 

Restore- 

Display 

034 

1C 


DIGIT 



DIGIT AND 



ALONE 

OCTAL 

HEX 

DECIMAL PT 

OCTAL 

HEX 

0 

260 

B0 

0. 

220 

90 

1 

275 

BD 

1. 

235 

9D 

2 

250 

A8 

2. 

210 

88 

3 

254 

AC 

3. 

214 

8C 

4 

245 

A5 

4. 

205 

85 

5 

246 

A6 

5. 

206 

86 

6 

243 

A3 

6. 

203 

83 

7 

274 

BC 

7. 

234 

9C 

8 

240 

A0 

8. 

200 

80 

9 

244 

A4 

9. 

204 

84 

- 

257 

AF 


217 

8F 

ERROR* 

262 

B2 

ERROR.* 

222 

92 


or 

or 


or 

or 


242 

A2 


202 

82 

Blank 

277 

BF 

Blank. 

237 

9F 


INPUT CODES FOR DIGIT DATA REQUEST 


OCTAL 

HEX 

DIGIT 

OCTAL 

HEX 

201 

81 

7 

207 

87 

202 

82 

8 

210 

88 

203 

83 

9 

211 

89 x 

204 

84 

10 

212 

8A 

205 

85 

11 

213 

8B 

206 

86 

12 

214 

8C x 


INPUT CODES SENT TO ENTER DIGITS AND FUNCTIONS. 
COOE MUST BE HELD MORE THAN 60MS. 

SEND DIGIT 9 DATA REQUEST (211 OR 89) AND WAIT 
FOR MSB FROM 7602 TO GO ♦. THIS INDICATES 
INTERNAL CALCULATIONS FINISHED. 

SEND DIGITS 12 THROUGH 1 DATA REQUESTS, DECODE 
EACH WITH SEGMENT DECODE DATA TABLE AS DATA 
AVAILABLE MSB LINE FROM 7602 GOES ♦ FOR EACH 
DIGIT. 

LONGEST CALCULATION DELAY APPEARS TO BE 69! 
(ABOUT 1/3 SEC). 

RPN (2529-106) AND METRIC-CONVERSION (2529-106) 
CALCULATOR IC’S FROM KOS TECHNOLOGY WILL WORK 
WITH THE SAME CIRCUIT. 


Other calculator chips could be used in similar circuits. However, 


ROBERT SUDING WOLMD 
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SNOBOL FOR THE ALTAIR 


Dear Dragons, 

Thanks for the great publication and other nice things-like 
dragon shirts!. What a way to learn. 

I have a problem. Without considering any possible consequences, 

I have committed myself to writing a SNOBOL Compiler (inter¬ 
preter?) for an Altair 8800. My officemate has built the Altair for 
the college at which he teaches, and after many months of promis¬ 
ing some kind of assistance, I finally offered to write a compiler. 

To get to the point: does anyone out there have any experience in 
compiler writing, particularly in SNOBOL compiler writing? I know 
that some of the sharpest people in this field read PCC, so I'm really 
hoping to hear from someone. 

Of course, once I get the compiler working, I will make it avail¬ 
able to other Altair owners and users (for a nominal fee and a lot of 
glory). 

(I realize all you people are heavily into BASIC, but SNOBOL is a 
pretty neat language for things like compiler writing, natural 
language translation, and general string manipulation.) 

Also, since my friend's Altair is 75 miles away from my home, 
donations of Altairs will be accepted. 


TB CODE SHEET 

by Dick Whipple 

You may be interested in knowing that John Arnold and / 
write our programs (like TB) in machine language. We have found it 
to be less restrictive and more versatile although not having a source 
file of some kind is a disadvantage. We do keep a hand-generated 
source listing on coding sheets for our reference. A major program 
like TB requires a two-pass development: the first pass ends up with 
lots of "fixes" and " patches " to get the program to work; the second 
pass is then used to clean-up the mess produced in pass one. The 
coding sheets from pass two represent the nearest thing to source 
code we have. For your reference / have included a copy of one of 
our coding sheets from TB. The addresses are split octal. 


f Jo ivi*?: j Cfpeu J- ) ■ 

By ffiffh/ Ooj a njiojjr H = ow 


ilpJL* t/J. 


MAUREEN SUPPLE 
828 S. Irving St 
Arlington VA 22204 


BUFFirJ: 


(SNOBOL compilers are tough. An interpreter would be easier. A 
good place to start looking for information would be Griswold's book. 

The Macro Implementation of SNOBOL, W.H. Freeman, San Fran¬ 
cisco, 1973; and Waite's book. Implementing Software for Non- 
Numeric Applications, Prentice Hall, Englewood Cliffs, New Jersey, < 
1971.) 

FULL OF HOLES 
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I guess you know. Tiny BASIC as presented in its first chapter is 
full of holes. Look, for example, at what happens if you try to 
evaluate an expression without aunary plus or minus on the front. Ich. 
Also, I wonder if the interpreted interpreting interpreter interpreter 
executor is viable for a really small, slow system like an 8008 system. 
Talk about crunching! Anyway, I want to see more. I'm crazy, 
maybe? Who cares. 

Sincerely, 

FRITZ ROTH 
Rt 7 

Carbondale IL 62901 
A HIGH ORDER 

Dear Bob Albrecht, I am writing this letter about many things f ve 
read about in PCC. The Tiny BASIC project looks like something 
everyone would like to tackle. The interpreter idea is a little costly 
on time and storage, unless you plan to use it on many systems. 
Otherwise, it's a good idea. I'm interested in simulating languages 
using BASIC or FORTRAN as the "machine," so this type of thing 
is interesting. If only someone had the plans for ALGOL in IL . . . 

If anyone has done any projects simulating languages/computers 
in a high order language, would they please contact me?! — 

Thanks for everything, PCC\ 

Respectfully, 

REED CHRISTIANSEN 
2756 Fernwood No. 

Roseville MN 55113 
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Are you implementing Tiny BASIC or some other software. 
Let us know and we’ll let others know. Let’s stand on each 
others shoulders and not on each others toes (to paraphrase 
C. Strachey). 
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What’s ddjcc 60 allabcut 

My gawd! Not another computer hobbyist magazine! That was my first reaction when 
People’s Computer Company approached me about becoming Editor of their one-issue-old 
infant, DR DOBB'S JOURNAL OF TINY BASIC CALISTHENICS & ORTHODONTIA. 

PCC had originally planned on publishing three issues of the JOURNAL. The response to 
the first, patchquilt issue, however, convinced them (and me) that an area of badly-needed 
information is not being covered by the presently existing publications. Furthermore, it 
seems unlikely that the other publishers will choose to cover that area; they have their 
hands (and pages) full just covering hardware and small bits of software. 

What is this area; this information vacuum? It’s free and very inexpensive software. 

One of the primary thrusts of DR DOBB'S JOURNAL will be to present detailed informa¬ 
tion concerning low-cost systems software; interpreters, compilers, structured assemblers, 
graphics languages, floppy disc file systems, etc. This will include user documentation and 
examples, documentation on implementation including complete source code listings, up¬ 
dates giving errors and their fixes, explicit and detailed notes on the design and imple¬ 
mentation of such systems software, and so on. This JOURNAL is explicitly available to 
serve as a communication medium concerning the design, development, and distribution of 
free and low-cost software for the home computer. 

We encourage you to send in documented software, as you develop it. We hope that 
you will use the software that we publish in this JOURNAL; that you will study it and 
modify it to expand its capabilities, and that you will report any bugs you may note to 
us and to the authors. 

We are also quite interested in publishing evaluations of any software and hardware 
that is being sold to the home computer user. We are supported by readers’ subscriptions 
rather than advertising. We will not hesitate to publish positive and negative evaluations. 

We adamantly hold the position that, if a manufacturer of some hardware or software is 
going to peddle it to unsuspecting consumers for a healthy profit, their product damn 
well ought to perform as well as their advertisements and profit imply it will! 

There are some other areas of information that we expect to cover, not seen in most 
of the other major computer hobbyist publications. These include complete indices to all 
of those publications, directories of computer stores and distributors, listings of computer 
clubs and organizations, listings of users and their equipment, etc. Another tidbit: as long 
as we can afford to, we will carry classified ads. 

We also plan to begin reprinting articles and schematics from the club newsletters. 

We have heard the comment, over and over, “I wish I could see the stuff that’s being 
printed by all the homebrew groups, but I just can’t afford to subscribe to all of them.” 

We expect to help with this desire. 

Finally, we will be doing some fairly detailed “blue skying.” Everyone is wondering 
where home computers are going, and what the potentials are. We have a number of ideas 
(with more rolling in, every day) about what can be done in the immediately foreseeable 
future. We will be presenting them and encouraging their realization. The Votrax articles 
on page 32 of this issue are one small example of this. 

Thank you for reading. We want your suggestions. We want your contributions of 
software, hardware designs, evaluations, and anything else you’re willing to share with 
other home computer enthusiasts. And, of course, we want your subscriptions. The more 
subscriptions we have; the more pages we can print; the more information we can pass 
along to you and your friends. If you like what you see here, we hope you will spread 
the word. 

Nuf sed, for now. More in a coupla weeks. -Jim C. Warren, Jr., Editor 
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A CRITICAL LOOK AT BASIC 

Dennis Allison, 169 Spruce Ave, Menlo Park CA 94025 
Consultant (415) 325-2962 

[This article appeared in Timesharing: Past, Present, 
Future. Proceedings of the Second Annual Computer 
Communications Conference, San Jose, January 1973.] 


0. INTRODUCTION 

BASIC is the dominate interactive programming 
language. It has been widely implemented since 
its introduction in 1965 as a component of the 
Dartmouth timesharing system. BASIC is presently 
widely used as an instructional language at 
both the high school and college level. Standard¬ 
ization efforts are now in progress, but are 
hampered by the proliferation of dialects and 
incompatible extensions. 

The purpose of this paper is to evaluate the 
BASIC language as a problem solving tool. BASIC 
is not the language of choice for problem solving 
given our present understanding of the programming 
process. That is not to say that programs, even 
good programs, cannot be written in BASIC. There 
is overwhelming evidence which indicates they can 
be. Rather, it says that the language structure 
makes it difficult to write a clear, concise, well 
structured program. 

The emerging discipline of software engineering has 
provided us with a pair of complementary methodol¬ 
ogies which, when properly applied, help minimize 
the difficulty of developing error-free software 
systems both large and small. 

One might say that BASIC is too simple, too easy 
to use. It is possible for a novice user to learn 
to program in a single day. It is also almost 
axiomatic that large programs written by BASIC 
programmers will be ridden with bugs. The language 
lacks the mechanisms to structure the problem's 
algorithm and data well. It breeds bad habits, 
habits which are difficult to unlearn. 

1. MAKING A PROGRAM 

The program development cycle can be summarized as 
repetative application of the following: 

o Problem definition 
o Algorithm development 

o Program entry (error prone, mechanical) 
o Testing to discover errors 
o Debugging (localizing errors) 
o editing (mcchunicul) 

Contemporary timesharing systems support the 
mechanical portion of program development and 
neglect the conceptual and definitional part. 

BASIC systems provide for program entry, syntax 
checking, editing, and the like, but don't really 
provide much help when it comes to deciding how 
to solve the problem at hand. The program is 
expected to blossom forth in full bloom from the 
gestalt mind of the user. A corollary to the 
above observation: BASIC programs written at the 


console usually look it. 

While little support is given to testing and 
proofs of correctness, debugging is well supported 
within BASIC. BASIC is usually interpreted, so 
the state of the BASIC machine is available to 
construct diagnostics. Simple errors, array-bounds 
violations are checked and diagnostics reported 
at run-time. Many BASIC systems defer reporting 
structual errors (for example, a missing NEXT) to 
run-time as well, a practice not to be commended. 

The ease of finding errors in BASIC programs allows 
one to build programs on a pragmatic, experimental 
basis. That leads to a false sense of security. 

One had best remember Dijkstra's dictum: "Program 
testing can be used to show the presence of bugs, 
never to show their absence." 

2. MODULAR PROGRAMMING 

If any rule of the thumb as to how to construct good 
programs exists, it is: Divided and Conquer. Problems 
are best solved by decomposing them into smaller and 
smaller problems until the resultant problem can be 
solved in a simple, direct manner. 

Dijkstra has pointed out that the process of dividing 
a problem into its natural fragments results in the 
introduction of levels of abstraction. At each level 
of abstraction primative functions are defined which 
manipulate primative data aggregates; the operations 
and the data structures mirror an abstract model of 
the problem being solved. At lower levels of abstraction 
these primative operations and data structures are 
themselves decomposed into still more primative units. 

For example, a sort-merge program may deal on one 
level with manipulations of files, and on another 
level with records and keys. 

BASIC provides few mechanisms for modularity. There 
is a one-line arithmetic function capability and an 
unparametered subroutine (GOSUB/RETURN) facility. 

The first has limited usefulness; it provides a 
convenient shorthand for computation, nothing more. 

The subroutine facility is very primative. It 
requires the user to develop conventions for passing 
parameters and for the naming of local data. All 
variables are global in BASIC and are shared between 
all modules of the program. Subroutines are not 
distinct from the corpus of the main program (and 
other subroutines); transfers into and out of 
subroutines is unrestricted and often unmanageable. 
Subroutine reference is by line number rather than 
a mnemonic name, a convention which tends to obscure 
the functional purpose of the subroutine. 

3. STRUCTURED PROGRAMMING 

Structured programming is a technique which limits 
the control structures which interconnect the modules 
of a program to a few well-defined forms. Modules 
include procedures and collections of statements, 
either of which may be nested. The flow of control 
utilizes conditional and plex selection to select 
paths and provide for repetition unconditionally, 
under control of a boolean expression, or under 
control of an indexing variable. Recent systems 
provide escape statements which allow control to 
exit several nested modules. All systems forbid the 
use of unconditional branching. 

The rationale behind structured programmin is the 
minimization of the connectivity within a program. 
Programs which have a well defined, nested structure 
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tend to be clear. The logical flow is usually 
sufficiently clear that a flowchart is not necessary 
to tour all paths in the program. In addition, 
the conditions under which any given path is to 
be executed are clearly spelled out. 

BASIC is the antithesis of a language for writing 
structured programs. The GOTO and the IF...THEN 
both result in unstructured transfers of control. 

No means is provided for collecting statements 
into a group to be executed as a module. And 
instead of eliminating labels, BASIC requires all 
statements to have one. 

True structured programming is difficult in BASIC. 

It requires unmitigated attention and discipline 
to maintain a structured programming style. And 
the clarity which one normally acquires is lost 
because module boundaries are not distinct. 

4. SUMMARY 

BASIC does not provide those features which appear 
desireable in an interactive programming language 
to be used for real-world problem solving. The 
flaws are not superficial; they are buried deeply 
in the structure of the language. In particular, 

BASIC is not a vehicle for the best techniques 
known for the construction of programs: modular 
programming and structured programming. 

Making programs is not an easy task. A problem of 
even moderate complexity often cannot be comprehended 
in the whole. We must abstract and localize the 
processing to make it tractable. Our contention 
is that BASIC does not help this process and, 
because of its structure, often hinders it. The 
time is ripe to find a better language, one more 
closely related to our needs. 
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COMMERCIAL GOODIES OF INTEREST 
PC BOARDS 

For those inclined to design their own microcomputer sys¬ 
tem, Schweber Electronics (Westbury NY 11590, 516-334-7474), 
is marketing several PC boards that appear interesting. Their Micro¬ 
computer Panel No. 9045-3BD-60 purports to accommodate 
nearly all currently available microprocessor kits. Their Memory 
Panel No. 9042-3BD-60 accepts any 16-, 18-, 22-, or 28-pin LSI 
RAM, ROM, or PROM in 4K increments. These 6”xl0” boards 
mate to standard 44-pin edge connectors for ease of system expan¬ 
sion. By standardizing pinouts for address and data buses, control 
and power lines, it becomes simple to interchange processor boards, 
memory boards, I/O boards, etc., all within the same card cage, 
regardless of whose LSI devices are on any board. 

Schweber has 18 outlets in the U.S. If none of them are 
handy for you, contact the manufacturer, Excel Products, 401 
Joyce Kilmer Ave, New Brunswick NJ 08903; 201-249-6600. 

FAIRCHILD F-8 KITS 

If you don’t want to do hardware diddling, Fairchild is 
peddling a F-8 Microprocessor Kit for $185 (plus tax where applic¬ 
able). The “kit” contains a fully assembled and tested unit includ¬ 
ing an F8 CPU, a pre-programmed PSU (Program Storage Unit), an 
F8 Memory Interface Circuit, and IK bytes of static RAM. It in¬ 
cludes a wired edge connector, one end for the board, another for 
your TTY, and three wires for power. The board includes 32 TTL- 
compatible I/O bits, two interrupt levels, two programmable timers, 
and all the necessary control circuits. Internal signals have been 
brought out to the edge connector for possible system expansion. 
Just add power; there is no additional soldering or wiring to do. 

The price includes a F8 Programming Manual, F8 Databook, and 
the “Fairbug” program in the PSU. Fairbug includes such capabili¬ 
ties as a loader, memory dumper, debugger, and TTY and paper tape 
I/O drivers. They say its immediately available from Fairchild 
Distributers or from Fairchild Microsystems Division, 1725 Tech¬ 
nology Dr., San Jose CA 95110. 
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MUSIC OF A SORT 

Steve Dompier, 2136 Essex St, Berkeley CA 94705; 

415-841-1868 

[Reprinted from May 1975 PCC, Vol. 3, No. 5.] 

IT WORKS! 

I received my ALT AIR 8800 in the mail at 10 a.m., and 
30 hours later it was up and running with only one bug in the 
memory! That turned out to be a scratch in a printed circuit 
that took 6 more hours to find. After that was fixed, everything 
worked!! 

Now, what do you do with a machine that so far has no 
I/Oboardsor peripherals? Well, there’s always the front panel 
switches and machine language, so I was soon busy making up 
programs to test all of the 8080’s functions; and getting a good 
set of calluses on my ten input devices. There’s a lot of 8080 
instructions! 

ZZZIIIPPP 

I had just finished setting in a ‘sort’ program, and at the 
same time I was listening to a weather broadcast on a little 
transistor, low-frequency radio, which was sitting next to the 
Altair. I hit the ‘run’ switch on the computer and it took off 
sorting the same list of numbers over and over again. 

At the same time my radio also took off! 

The computer was sorting numbers and the radio was going 
ZZZIIIPP! ZZZIIIPP! ZZZIIIPP! 

Well, what do ya know! My first peripheral device!!! 

The radio was picking up the switching noise of the 8800. 

I tried some other programs to see what they sounded like, and 
after about 8 hours of messing around I had myself a program 
that could produce musical tones and actually make music; of a 
sort. (Or any other program you have!) 

MUSIC 

The closest sheet of music that I could find was The Fool 
on the Hill by the Beatles, so I translated it into OCTAL code, 
picked up the Altair, and headed down to Menlo Park for the 
3rd meeting of the Bay Area Amateur Computer Users Group- 
Home Brew Computer Club. I thought everyone there should 
see just what a computer can do! 

RECITAL 

This being the Altair’s first recital, it was a bit shy at first, 
and refused to power up--even though Fred’s tape recorder was 
plugged into the same wall outlet and working just fine. One 
forty-foot extension cord and half an hour later we were ready. 
(Fred’s tape machine turned out to be running on its own 
battery power, and all of the wall plugs were dead!) 

The recital then proceeded with nary a glitch, much to every¬ 
one’s delight. (Although during the demanded encore, the 
machine did break into its own rendition of Daisy, apparently 
genetically inherited.) 


Data For THE FOOL ON THE HILL Data for “DAISY” 

Beatles 


Address Data 

Address Data 

Address Data 

Address Data 

040 

105 

120 

055 

170 

034 

250 

040 

041 

105 

121 

053 

171 

034 

251 

042 

042 

125 

122 

071 

172 

034 

252 

046 

043 

100 

123 

066 

173 

042 

253 

034 

044 

071 

124 

100 

174 

042 

254 

034 

045 

063 

125 

071 

175 

042 

255 

042 

046 

063 

126 

071 

176 

053 

256 

046 

047 

063 

127 

100 

177 

053 

257 

053 

050 

071 

130 

071 

200 

053 

260 

053 

051 

063 

131 

066 

201 

071 

261 

053 

052 

055 

132 

066 

202 

071 

262 

053 

053 

053 

133 

071 

203 

071 

263 

046 

054 

053 

134 

100 

204 

063 

264 

042 

055 

055 

135 

100 

205 

055 

265 

042 

056 

071 

136 

100 

206 

053 

266 

053 

057 

063 

137 

071 

207 

063 

267 

063 

060 

046 

140 

066 

210 

063 

270 

063 

061 

046 

141 

060 

211 

053 

271 

053 

062 

046 

142 

060 

212 

071 

272 

063 

063 

071 

143 

066 

213 

071 

273 

071 

064 

063 

144 

071 

214 

071 

274 

071 

065 

046 

145 

066 

215 

071 

275 

071 

066 

046 

146 

066 

216 

071 

276 

071 

067 

053 

147 

060 

217 

071 

277 

071 

070 

042 

150 

053 

220 

046 

300 

053 

071 

046 

151 

046 

221 

046 

301 

053 

072 

046 

152 

046 

222 

046 

302 

042 

073 

063 

153 

046 

223 

034 

303 

046 

074 

071 

154 

046 

224 

034 

304 

046 

075 

063 

155 

044 

225 

034 

305 

071 

076 

053 

156 

046 

226 

042 

306 

053 

077 

053 

157 

053 

227 

042 

307 

053 

too 

063 

160 

053 

230 

042 

310 

042 

101 

053 

161 

053 

231 

053 

311 

046 

102 

071 

162 

053 

232 

053 

312 

042 

t03 

063 

163 

053 

233 

053 

313 

040 

104 

063 

164 

002 

234 

063 

314 

034 

105 

071 

165 

002 

235 

055 

315 

042 

106 

063 

166 

002 

236 

053 

316 

053 

107 

046 

167 

377 

237 

046 

317 

046 

110 

046 



240 

046 

320 

046 

111 

046 



241 

042 

321 

071 

112 

053 



242 

046 

322 

053 

113 

042 



243 

046 

323 

053 

114 

053 



244 

046 

324 

053 

115 

046 



245 

046 

325 

053 

116 

046 



246 

046 

326 

002 

117 

053 



247 

042 

327 

377 
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OCTAL CODES FOR NOTES PROGRAM TO MAKE AN ALTAIR 8800 PLAY MUSIC 


c 

252 

000 

c# 

240 

LOW OCTAVE 001 

D 

230 

002 

D# 

220 

003 

E 

211 

004 

F 

200 

005 

F# 

172 

006 

G 

162 

007 

G# 

154 

010 

A 

146 


A# 

140 

011 

B 

132 

012 



013 

C 

125 

014 

c# 

120 

MIDDLE OCTAVE 015 

D 

114 

016 

D# 

110 

017 

E 

105 


F 

100 

020 

F# 

075 

021 

G 

071 

022 

G# 

066 

023 

A 

063 

024 

A# 

060 

025 

B 

055 

026 



027 

C 

053 

03G 

C# 

050 

HIGH OCTAVE JJJ 

D 

046 

032 

D# 

044 

033 

E 

042 


F 

040 


F# 

036 


G 

034 


G# 

033 


A 

031 


A# 

03C 


B 

026 


C 

025 


Q 

002 

Note; This is the quietest of the data notes. 


It can be used for spaces and rests. 
You may also like to put a number of 
these quiet 'notes' at the end of the 
music data, to give a space between 
playings. 


With a little experimentation, you can make all kinds of 
interesting sounds, ie; sirens, ray-guns, etc. 


LXI H 

041 


b2 

XXX 

- ADDRESS OF FIRST 

b3 

XXX 

DATA ENTRY 

MOV A,M 

176 


CPI 

376 


b2 

377 

- START OVER DATA 

JZ 

312 


b2 

000 


b3 

COO 


MVI D 

026 


b2 

XXX 

~ TEMPO DATA 

DCR B 

005 

JNZ 

302 


b2 

020 


b3 

000 


MOV B,M 

106 

TO RUN THE PROGRAM: 



To run the program, push the 'RESET' switch. 

DCR C 

015 

then push the 'RUN' switch. 

JNZ 

302 

To stop the program, push the 'STOP' switch. 

b2 

013 


b3 

000 


DCR D 

025 

TO MAKE YOUR OWN MUSIC: 

JNZ 

302 

b2 

b3 

013 

000 

Begin loading your music data anyplace after 
address 034. Be sure to load the starting address 
into H&L at address 002, 003. 

INR L 

JMP 

054 

303 

Each data entry will be one beat of music. 

b2 

003 


b3 

000 



a^af:3^3|c3|e3fe9|ea^3|ca|:9ic4c3ic3(e 

NOTES 

t Tempo- The tempo is controlled by the value placed in 
address 012. Start out by trying 040. 

t To Play Backwards- Put 377 in front of all music data 
(to cause looping). Change address 001 to read the END of the 
music data. Change address 030 to DCR L (055). 

f To Play all of the Memory- Change address 001 data to 
a NOP (000). Change address 004, 005, 006 to NOP (000). This 
will cause program to read all of the memory, including the pro¬ 
gram instructions themselves. 

t Radio Information- A low-frequency radio around 330 
KC works best, but any AM radio will pick up the music at 
quiet places on the dial. 

Set the radio on or very close to the computer, start the 
program, and turn the dial on the radio until you get good 
sound. Some places will be much better than others, and some 
will pick up different sounds from the computer. Also, try mov¬ 
ing the radio to different positions on or around the computer. 
Just rotating the radio 90 degrees can make a lot of difference 
in the sound you will get. 
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SCELBAL-A HIGHER LEVEL LANGUAGE 
FOR 8008/8080 SYSTEMS 

Mark Arnold & Nat Wadsworth 
Scelbi Computer Consulting, Inc., 

1322 Rear, Boston Post Rd, Milford CT 06460 
Copyright 1976 by Scelbi. Reprinted with permission. 

[The publication described in the following article will 
be sold for around $50, and will contain over 300 
pages of information. --JCW, Jr] 

The goal of about ninety percent of small 
systems owners appears to be to get their 
systems up and running with some kind of 
I/O and then procure enough memory to 
support a higher level language. 

Unfortunately in the past when a system 
owner reached the stage of having enough 
memory a major problem arose. Unless the 
individual had purchased an entire system 
from one or two select suppliers, the cost of 
a copy of a higher level language was likely 
to be out of reach! 

Even if one was financially able to pur¬ 
chase a higher level language from an equip¬ 
ment manufacturer one was likely to find 
that such programs were designed to 
operate with specific I/O devices which 
the prospective language user might not 
have access to or desire to obtain. If one 
did not have those specific devices for 
which the program wns designed, one was 
usually in a tough spot. Despite adver¬ 
tisements that such programs came “fully 
documented,” the “full documentation” 
was not likely to include a source listing of 
the program. Hence, attempting to modify 
such a complex program was a risky, 
frustrating, and often downright impossible 
task. And, without doing so, one was hard 
put to make the language work with 
unique types of I/O devices. Furthermore, 
such programs could not practically be modi¬ 
fied to serve the particular wishes of in¬ 
dividual users. If you were not satisfied 
with the program and what the program 
author’s had decided to emphasize or leave 
out, that was simply too bad! 

Few “canned” programs can be tailored 
to have all the features desired by all the 


possible potential users. To attempt to do 
so would result in programs requiring more 
memory than users could afford. The answer 
to this problem is, of course, to supply the 
programs in such a manner that they can be 
readily modified and altered by the users. 
This means, simply, that the detailed source 
listing for the program must be made available 
to the purchaser. Assisting the program owner 
by also providing "detailed comments with 
the listing, a general overview of the pro¬ 
gram’s organization and operation, and 
general flow charts can further enhance the 
value of the program to the owner. With 
this information available, the program 
user can safely proceed to tailor the capa¬ 
bilities of the program to serve the user’s 
particular interests and requirements. 

This is the approach SCELBI COM¬ 
PUTER CONSULTING, INC., has taken 
in presenting its new higher level language 
for 8008/8080 machines. The language 
has been given the name SCELBAL for 
Scientific ELementary BAsic Language. 
As the reader can easily surmise from the 
title it is similar in capabilities to the high¬ 
ly popular language referred to as BASIC. 
This lnngunge wns specifically developed 
to he able to run on 8008 based micro¬ 
computers. It is believed to be the first 
such higher level language to be made 
generally available that is capable of 
running in a system equipped with the 
ubiquitous 8008 CPU. The program can 
of course also be run on systems using 
the more powerful 8080 CPU though it 
is not as memory efficient as it could have 
been if the program had forsaken 8008 
capability. 

The language was developed to operate 
in an INTERPRETIVE mode. This means 
that the entire program resides in memory 
at one time along with the program written 
in the higher level language that is to be 
executed. When the INTERPRETER is given 
the RUN command it immediately proceeds 
to INTERPRET each line of the higher level 
language program and perform the necessary 
calculations and functions. This differs from a 
COMPILER which would first convert the 
higher level language source listing to machine 
code, then later execute the machine code. 
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A COMPILER oriented system generally is 
cumbersome to run on a small system that 
lacks reliable, high speed bulk memory 
storage facilities. For instance, if the program 
had been designed as a compiler, the follow¬ 
ing steps would have been necessary in order 
to execute a higher level language program. 

First one would have to load an Editor 
program into the computer and create the 
desired higher level language version of a 
program as a source listing. A copy of the 
source listing would then have to be saved on 
an external memory medium. Next, a portion 
of the compiler program - the actual 
compiler, would have to be loaded into 
memory. When it was resident, one would 
produce the desired machine code version of 
the higher level language statements by having 
the compiler process the source listing several 
times. (Much as an Assembler program would 
process the mnemonic listing when program¬ 
ming in machine language.) The machine code 
produced would have to be stored on an ex¬ 
ternal memory device at this stage. Finally, 
the RUN TIME portion of the compiler 
would have to be loaded into the computer 
along with the machine code produced by the 
COMPILE portion of the program. The 
higher level language program would then 
finally be ready to run. Too bad if you made 
an error in the original source coding for the 
program that was not detected until run time. 
You would have to go all the way back to the 
Editor program to correct the higher level lan¬ 
guage source listing and start the process over 
again! 

Developing the program as an INTER¬ 
PRETER eliminates the requirement for the 
constant use of an external bulk memory 
device in order to get a program from the con¬ 
cept to execution stage. An INTERPRETER 
is definitely a much more convenient program 
for the small systems user. The entire INTER¬ 
PRETER program resides in memory at one 
time. An area is set aside in memory to hold 
the higher level program. An executive por¬ 
tion of the program allows the user to enter 
the higher level language listing directly into 
the area where it will be operated on when 


the program is executed. The executive in 
SCELBAL will provide for the user entering a 
program from a manual input device such as a 
keyboard. Or, if the user desires to run a 
program that has been developed previously, a 
LOAD command will direct the program to 
read in a program from an external bulk 
memory device such as a magnetic tape peri¬ 
pheral. 

SCELBAL has been designed so that it can 
operate in a “calculator” mode or operate in a 
stored program mode. In the calculator mode, 
each statement is executed immediately after 
it is entered by the input device. In this mode, 
the program is ideal for solving simple for¬ 
mulas when the user only needs to obtain a 
few values. 

When operating in the stored program 
mode, the INTERPRETER will follow an 
entire series of instructions as directed by 
the higher level program. To enter a pro¬ 
gram that will be operated on as a stored 
program, the operator simply assigns a 
line number at the beginning of each 
statement. 

The executive portion of the package 
allows the user to “edit” a program at any 
time. Lines may be deleted and new lines 
entered anywhere in the program. If the 
operator makes a clerical error while 
entering a line, a special erase code may be 
used to effectively backspace within a line 
and then re-enter the correct characters. 
Furthermore, the executive checks for 
various types of syntax errors as statements 
are entered, and will display a two character 
error code to the programmer when such 
errors are detected. 

The executive portion of SCELBAL has 
five major commands available to the 
operator which are defined and explained 
below. 

SCR for SCRatch effectively clears out any 
previous program stored In the 
program buffer along with any variable 
values. 


T5 
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LIST causes the present contents of the 
program buffer to be displayed for review 
or to make a copy for record keeping if a 
printing device is in use. 

RUN causes the higher level language 
program stored in the program buffer to 
be executed by the INTERPRETER. 

SAVE. This command directs the program 
to save a copy of the program stored in the 
program buffer on the user’s external bulk 
storage device. A program saved in this man¬ 
ner can later be restored for execution by 
using the following command. 

LOAD. This command causes the program 
to read in a copy of a program from an ex¬ 
ternal device that was previously written 
using the above SAVE command. 

A higher level language program is made up 
of STATEMENTS that direct the machine to 
perform selected types of operations. The 
SCELBAL language can execute 12 different 
types of STATEMENTS which are explained 
below plus the END statement which is used 
to signify the end of a program. 

The REM for RKMarks statement indicates 
a comments line which is ignored as far as 
program execution is concerned. Information 
on a REMarks line is intended only for the 
use of programmers and is used to document 
a program. 

The LET statement is used to set a variable 
equal to a numerical value, another variable, 
or an expression. For instance the statement: 

LET X = (Y*Y + 2*Y - 5)*(Z + 3) 

♦ 

would mean that the variable X was to be 
given the value of the expression on the right 
hand side of the equal sign. 

The IF combined with the THEN state¬ 
ment allows the programmer to have the pro¬ 
gram make decisions. SCELBAL will allow 
more than one condition to be expressed in 
the statement. Thus: 


IF X <= Y THEN LL 

states that IF X is less than OR equal to Y 
that the program is to go directly to line 
number LL. Otherwise, the program is to 
continue on to the^next statement in the 
program. 

GOTO directs the program to jump 
immediately to a specified line number. 
The GOTO statement is used to skip 
over a block of instructions in a mul¬ 
tiple segment or subroutined program. 

The FOR, NEXT and STEP statements 
allow the programmer to form program 
loops. For example, the series of statements: 

FOR X = 1 TO 10 
LET Z = X*X + 2*X + 5 
NEXT X 

would result in Z being calculated for all 
the integer values of X from 1 to 10. While 
SCELBAL does not require the insertion 
of a STEP statement in a FOR - NEXT 
loop, a STEP value may be defined. The 
implied STEP value is always 1. However, 
it may be altered to he an integer value 
other than 1 by following the FOR range 
statement by the STEP statement and a 
parenthesis containing the STEP size. Thus: 

FOR X = 1 TO 10 STEP (2) 

would result in X assuming values of 1, 3, 
5, 7 and 9 as the FOR - NEXT loop was 
traversed. 

GOSUB is used to direct the program 
to execute a statement or group of state¬ 
ments as a subroutine. The statement is 
used by designating the line number in 
the program where subroutine execution 
is to begin. 

The RETURN statement is used to in¬ 
dicate the end of a subroutine. When a 
RETURN statement is encountered the 
program will return to the next statement 
immediately following the GOSUB state- 
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ment which directed the program to the 
subroutine. 

SCELBAL permits multiple nesting of 
subroutines in a program. 

DIM for DIMension is used to specify 
the formation of a one dimensional array 
in a program. Up to four such arrays having 
a total of up to 64 entries are permitted in 
a program when running SCELBAL. The 
statement: 

DIM K(20) 

sets up space for an array containing 20 
entries. (Array size must be designated by 
a numerical value, not a variable.) 

The DIM is an optional statement that 
may be left out of the program to provide 
additional program storage space in systems 
hnving limited memory. 

INPUT is used to cause the program to 
wait for an operator to INPUT information 
to the program. After the inhumation has 
been received, operation of the program 
automatically continues. 

PRINT is uspd to output information 
from the program. Using the PRINT state¬ 
ment the user may direct the program to 
display the value of variables, expressions, 
or any information such as messages. The 
PRINT statement allows for multiple mixed 
output on a single line, and the option of 
providing a carriage-return and line-feed after 
outputting information or suppressing that 
function. For instance, the statement: 

PRINT ‘X IS EQUAL TO: ’;X 

< 

would result in the program first printing 
the message “X IS EQUAL TO:” and then 
the value of the variable X on the same line. 
After the value of tlje variable had been 
displayed, a carriagp-return and line-feed 
combination would be issued. To suppress 
the issueing of the CR & LF the program¬ 
mer would merely include another semi¬ 


colon at the end of the statement! A comma 
sign in a PRINT statement will direct the out¬ 
put to start at the next TAB point in a line. 
A special function may also be called upon 
to direct the output to begin at a specified 
position in a line to allow for neat formatting. 

The power of the language is further 
enhanced by the inclusion of seven functions 
that may be used in statements. The seven 
functions available in SCELBAL are discussed 
below. 

INT returns the INTeger value of the ex¬ 
pression, variable, or number, requested as the 
argument. This is the greatest integer number 
less than or equaL to the argument. 

SGN returns the SiGN of the variable, num¬ 
ber, or expression. If the value is greater than 
zero, the value +1.0 is returned. If the value is 
less than zero, the value -1.0 is returned. The 
value 0 is returned when the expression or 
variable is zero. 

ABS returns the ABSolute value (magni¬ 
tude without regard to sign) of the variable 
or expression identified as the argument of 
the function. 

SQR returns the SQuare Root of the ex¬ 
pression, variable, or number. 

RND produces a semi-psuedo-RaNDom 
number in the range of 0 to 0.99. This func¬ 
tion is particularly useful to have available 
for games programs. 

CHR is the CHaRacter function. It may be 
used in a PRINT statement and will cause the 
ASCII character corresponding to the decimal 
value of the argument to be displayed. (A 
reverse function is available for the INPUT 
statement which will return the decimal 
value of a character when it is inputted.) 

TAB may also be used in a PRINT state¬ 
ment to direct the display device to space 
over to the column number specified in the 
argument. This function allows the program¬ 
mer to format the output into neat columns. 
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GENERAL INFORMATION 

User defined variables are limited to one or 
two characters. A variable must begin with a 
letter of the alphabet. Limiting variables to a 
maximum of two characters helps conserve 
memory space. IJp to twenty different vari¬ 
ables may be defned in a single program. 

SCELBAL allows the use of fixed and 
floating point notation. A minimum of 
twenty-three binary bits are used in the man¬ 
tissa portion of all calculations allowing for 
six to seven significant decimal digits to be 
entered or outputted. The exponent range is 
from plus to minus the 38th power. Numbers 
may be inputted in either fixed or floating 
point notation. Output from the program is 
automatically selected to be either fixed or 
floating point, depending on the size of the 
number that is to be displayed. 

The package, without the optional DIM 
statement, is designed to run in an 8K 8008 
or 8080 system leaving approximately 1250 
bytes for program storage. With this amount 
of storage available, surprisingly complex pro¬ 
grams can be executed. The program authors 
have successfully loaded and run such games 
as Lunar Landing in this configuration by re¬ 
ducing the number of messages issued to the 
player. 

The DIM statement requires approximately 
three pages of memory. It is recommended 
that users desiring to include the DIM capa¬ 
bility have more than the minimum 8K of 
memory available in their system. A parti¬ 
cularly attractive feature of SCELBAL is 
that users with more than 8K of memory can 
use the additional space for program storage. 
Thus, for example, a 12K system will enable 
a user to execute SCELBAL programs having 
as many as 150 to 200 statements! 

A major concern of the developers of 
SCELBAL was that the 8008 CPU might 
make the language so slow that it was im¬ 
practical for the user. Our tests indicate 


that the lime to perform typical calcula¬ 
tions, while they are slow compared with 
more powerful machines, are certainly 
tolerable. For instance, the typical response 
time between the displaying of a new set of 
parameters when running the Lunar Land¬ 
ing game is in the order of six to seven 
seconds. A program that calculates the 
mortgage payments on a house on a monthly 
basis, and displays such values as the pay¬ 
ment number and balance after each pay¬ 
ment, requires a few seconds between the 
displaying of each new line of information. 
A dice playing game responds with new 
throws of the dice in the order of a second 
or so when using a formula that includes 
the use of the random number generator. 
These times are by no means fast, but 
they are certainly adequate for the intended 
uses of this language on an 8008 system. 
The developers were pleasantly surprised 
with the overall speed performance of the 
package. Of course, these response times 
can be cut almost in half by using an 8008-1 
CPU. Naturally, if the program is installed 
in an 8080 system, the response time is im¬ 
proved an order of magnitude. 

Since the program will be supplied in 
the form of a publication that includes 
a complete highly commented source 
listing (as well as assembled object code 
for both the 8008 and 8080), the user 
who desires to modify or expand the 
capabilities of the basic package will be 
in a position to do so. It is felt that the 
availibility of such a powerful program 
in this form will greatly enhance the general 
usefulness of small systems and open new 
vistas to users. The program in this form 
should also be of considerable value to 
educationalists who desire a good reference 
framework from which to introduce students 
to the development of similar packages. 

The publication will be made available 
in June, 1976, by the developer, Scelbi 
Computer Consulting, Inc., 1322 Rear - 
Boston Post Road, Milford, CT 06460. 
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TINY BASIC, EXTENDED (Part Two) 

Dick Whipple, 305 Clemson Dr., Tyler TX 75701 
John Arnold, Route 4, Box 52-A, Tyler TX 75701 

In the preceeding article on TINY BASIC, EXTENDED 
(TBX), notes concerning the loading and use of TBX were pre¬ 
sented, along with an octal listing of the entire interpreter 
[Dr Dobb’s Journal of Tiny BASIC Calisthenics & Orthodontia 
Vol. 1, No. 1]. This article presents source code matching that 
octal code, documentation of the implementation, some modifi¬ 
cations and error corrections, notes on the addition of the DTA 
statement, and an announcement of two relocated versions of 
TBX requested by some of our readers. 

TBX is not meant to be the last word in Tiny BASIC 
interpreters. Almost certainly, its users will find ways to improve 
it. Please keep its creators, and our readers, informed of those 
improvements. 

NOTES ON NOTES 

Before continuing, a few remarks are necessary concern¬ 
ing assumptions and working used in the source listing and the 
text that follows it. 

1. All addresses will be given in split octal with no sep¬ 
aration character, i.e., 012504 (true octal); 025104 (split octal). 

2. Registers will be referred to by letter: A, B, etc. 
Register pairs will be referred to as BC, DE, and HL. If a register 
pair holds an address, the most significant bits will fall in the 
first letter. 

3. The source listing is NOT the result of computer 
\assembly. It was hand-typed in a format similar to assembly 

language. One caution-labels are unique only within a given 
routine. Therefore, in the whole of TBX, labels may be dupli¬ 
cated. 

4. The terms “label” and “line number” will be used 
interchangeably when referring to BASIC lines. 

5. On the source listing, double lines are used to 
separate major routines. 

A NEW FEATURE: The DTA Statement 

The DTA statement allows the programmer to initialize 
several variables at one time and is thus more convenient to use 
than LET statements. DTA is more like DATA statements of 
FORTRAN than the READ-DATA statements of BASIC. DTA 
statements may be used anywhere in a program and as many 
times as required. 

EX 1. 12 DTA A( 1 )= 1,2,3,4;B(4)=5,6;X= 10 
RESULTING VALUES: A(l)=l 
A(2)=2 
A(3)=3 
A(4)=4 
B(4)=5 
B(5)=6 
X=10 

EX 2. 20 DTA A=10,20,30 

RESULTING VALUES: A=10 
B=20 
C=30 

Changes required in TBX to add DTA statements (octal 
dump form): 

031200 315 147 024 043 315 044 023 247 
031210 311 

031230 000 000 000 232 150 104 124 301_ 
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031240 133 310 232 330 275 132 343 231 
031250 256 254 331 200 031 245 324 147 
031260 231 265 273 031 240 322 304 322 
031270 375 
033326 231 233 

RELOCATED VERSIONS OF TBX 

At the requests of readers, we have made two relocations 
of TBX. As you are no doubt aware, the original TBX began at 

020000 split octal. The two new versions begin at 000000 and 
011000. The octal listing of the 000000 version will appear in 
a later issue of this Journal. The 011000 version seems to es¬ 
pecially interest people with Suding operating systems (Suding 
CRT, etc.). At the present, either version-or both-can be 
obtained from us on Suding cassette. If you have already 
ordered one and received the original version on cassette, we 
will provide the relocated version free of charge if you will 
return the cassette with your order. The charge for new orders 
will be the same as indicated in the preceeding issue: $5, for the 
Suding cassette. Be sure to request the version desired, namely 
020000, or 011000, or 000000. Send orders to: 

TBX Tape 
c/o John Arnold 
Rt 4, Box 52A 
Tyler TX 75701 

HOW IT DOES WHAT IT DOES 

IL Executor, ILXQT and IL Program (021254-022037, & 
031300-033376): 

The fundamental IL instruction consists of two bytes. The 
two most significant bits of the first byte are used to encode the 
type of IL instruction while the remaining bits in the first and 
second byte represent an address. The four IL instruction types 
are specified in octal as follows: 


IL JUMP 

Oxx 

yyy 

Transfers IL Program to IL Instruction at 
Oxxyyy. 

IL CALL 

lxx 

Calls IL Subroutine at Oxxyyy. 


yyy 


TST 

2xx 

yyy 

Compares Character Strings. Test Failure 
Transfers IL Program to Oxxyyy. 

ML CALL 

3xx 

yyy 

Calls Machine Language Program at 
Oxxyyy. 


The IL Executor program, ILXQT, merely sorts out the IL 
instructions according to the above list and carries out the 
appropriate action. DE is used as the cursor in scanning the 
BASIC text. HL serves as the IL program counter. When a pro¬ 
gram other than ILXQT has system control, care must be exer¬ 
cised not to use DE for a purpose other than scanning unless its 
value is saved and returned before returning to ILXQT. BC, IIL, 
and A may be used by system routines as required. (Note: HL is 
pushed and popped by ILXQT to maintain the status of the IL 
program counter.) 

SPECIAL REMARKS 

1. IL JUMP: Note that an IL JUMP and a machine language 
jump (JMP) are not the same. After an IL JUMP is executed, 
ILXQT expects to find another IL insstruction not a machine 
language instruction. Therefore, an IL JUMP cannot be used to 
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transfer to a machine language program. 

2. IL CALL: The same applies to IL CALLs. They cannot 
be used to call machine language subroutines. That requires the 
ML CALL type IL instruction ( see 4., following). The IL return 
address for the IL CALL is placed on the 8080 stack for later 
use. ML routines must not leave trash on the stack or proper 
return within the IL program will not be made. 

3. TST: The TST IL instruction is actually more than two 
bytes in length. Following the instruction byte pair are the 
ASCII string characters to be compared against BASIC text. 

There is one byte for each character in the string with the 
parity bit (No. 7) set only on the last character. The parity bit 

is used by ILXQT to detect the end of the string. As an example, 
consider the test for “LET” (see DIR, 032022): 

232 

041} TST 

114 “L” 

105 “E” 

324 “T” + 200 

If the comparison to BASIC text fails, the IL program 
transfers to the fail address 032041 for the next IL instruction. 

In this case the cursor (DE) is set back to rescan the BASIC 
text. If a match is found, the IL program continues at the IL 
instruction just after the “ ‘T’ + 200.” 

4. ML CALL: The greater number of routines used in TBX 
are machine language calls made by ILXQT. Return to ILXQT 
from such a routine occurs when a machine langauge RET is 
executed. A return option is available to the programmer. If the 
carry is set upon return to ILXQT, the next IL instruction is 
skipped and the second one is executed. If the carry is reset, the 
next IL instruction is executed. This feature allows various tests 
to be handled as ML CALLs. TSTL--Test Label-is an example. 

5. THE IL PROGRAM can be studied to get an idea of the 
manner in which BASIC lines are interpreted. Often used, run 
time commands are tested first to achieve greater speed in execu¬ 
tion. System commands such as RUN, LST, etc. are placed last 
in the test sequence. You will notice that the IL Program is 
somewhat disordered. This “house that Jack built” appearance is 
the result of adding features to the original TB. 


EVOLUTIONARY NOTE 

A modification was made to TBX after the octal listing 
was published in the previous issue, but before this source listing 
was produced. Therefore the source contains the modifications 
but the octal listing does not. The change involves the INNUM 
and NLINE routines. The net effect of these changes will be that 
IN statements will be terminated by a CR--not a SPACE as in the 
original TBX. To make the modifications, follow the steps below: 

1. Re-enter the INNUM routine using the source listing. 

2. Re-enter the NLINE routine using the source listing. 

3. Add a test in your INPUT routine that will inhibit echo 
of a CR. 

4. Make changes in the IL program at locations given 
below. Use the source listing to obtain the corrected 
values. 

031325 031326 

031334 031335 

032002 032003 

032006 032007 

032202 032203 

032271 032272 



ERRORS & CORRECTIONS 

These errors were noted after the listing that follows was 
produced. Thus, the corrections given here should be made in 
the octal code given in the preceeding issue and in the listing 
given in this issue. 


ERROR 

FIX 

CHANGE 


ADDRS 

FROM 

TO 

1. “FOR” statement syntax 

032127 

226 

232 

error not functioning properly* 032130 

363 

121 

2. “IN” statement does not 

032245 

322 

032 

issue a crlf. After fix, a semi¬ 

032246 

304 

143 

colon “;” at the end of an 

032143 


232 

“IN” line inhibits crlf.* 

032144 


202 


032145 


273 


032146 


032 


032147 


216 

3. Array syntax error not 

033211 

226 

233 

functioning properly.* 

033212 

355 

077 


033223 

226 

233 


033224 

355 

077 


033241 

226 

233 


033242 

355 

077 


033254 

226 

233 


033255 

355 

077 


033266 

226 

233 


033267 

355 

077 


033275 

226 

233 


033276 

355 

077 

4. System destroys itself after 

033354 


001 

first line entry following turn¬ 

033355 


034 

on. Issuing a “new” command 

034000 


377 

first will initialize the system 

034001 


377 

properly. The fix given is 




satisfactory as well.* 




5. “SZE” command giving 

031007 

376 

115 

erroneous values. 

031010 

033 

026 

6. “TB” function incorrectly 

031312 

124 

123 

named. It should be called 

031313 

302 

332 


“SP” for space. 

* These problems were reported by Linchen Wang with 
suggested corrections. Dick Whipple modified the 
modifications, and submitted these fixes. 
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TAG 

ADDRESS 

11 

12 

13 

MNEMONIC 

BUFIN 

020000 

041 

111 

020 

LX I 

H BU r STRT 


020003 

006 

no 


MV I 

B 72D 

OVER 

020005 

33 7 



RST 

INPUT 


020006 

3 76 

015 


CPI 

•£8’ 


020010 

312 

036 

020 

JZ END 


020013 

3 76 

177 


CPI 

•DEL' 


020015 

312 

040 

020 

JZ RUBOUT 


020020 

376 

014 


CPI 

•CNTRL L* 


020022 

312 

067 

020 

JZ NEWLINE 


020025 

167 



MOV 

M, A 


020026 

043 



INX 

H 


020027 

005 



DCR 

B 


020030 

312 

306 

026 

JZ ERR 1 


020033 

303 

005 

020 

JMP 

OVER 

END 

020036 

167 



MOV 

M,A 


020037 

311 



RET 


RUBOUT 

020040 

053 



DCX 

H 


020041 

004 



INR 

B 


020042 

076 

07 7 


MV I 

A ’7' 


020044 

357 



RST 

OUTPUT 


. 02004 5 

303 

005 

020 

JMP 

OVER 

FIXINSR 

020050 

332 

000 

021 

JPC 

CONT 


020053 

076 

057 


MV I 

A V 


020055 

276 



CMP 

M 


020056 

322 

000 

021 

JNC 

CONT 


020061 

303 

371 

020 

JMP 

LOOP 1*2 


020064 

000 

000 

000 

NOP 

’S 

NEWLINE 

0?0067 

32 7 



RST 

CRLF 

GETLINE 

020070 

076 

072 


MV I 

A ’»• 


020072 

357 



RST 

OUTPUT 


020073 

303 

000 

020 

JMP 

BUFIN 


020076 

000 

000 





SUBROUTINE TO LOAD BUFFER 
SET LINE LENCTH 


BUFIN: A software buffer is used to hold tine data from the 
input device. BUFIN is an ML routine used to load and edit 
the buffer. Character deletion and whole line erasure are pro¬ 
vided for in this routine. B is used to count characters. If B 
exceeds 72 , an error is reported. If entry to BUFIN is made at 
GETLINE (020070), a colon is output at the beginning of the 
line. HL is used as cursor in the buffer. 


LINE TOO LONG 


MODIFICATION OF INSERT 
SUBROUTINE REQUIRED FOR 
ASCII VERSION OF TBX 


OUTPUT PROMPT 


t LOC 020100-020110 IS UNUSED. THE BUFFER RESIDES BETWEEN 020111-020220. 


020221 

032 

LDAX D 

ASCII INPUT 

SUBROUTINE 




FROM CURSOR 

LOCATION. 




NUMBER DATA 

MASKED. 

020222 

376 060 

CPI *1 r 



020224 

330 

RC 



020223 

376 072 

CPI ’I’ 



020227 

320 

RNC 



020230 

346 017 

AN1 0000111 IB 



020232 

311 

RET 




ASCIN: This routine moves a byte from the BASIC text to A 
using the cursor DE. If the byte represents an ASCII number 
(060-071), the upper four bits are masked off. 


i LOC 020233-02026A IS UNUSED. 


TSTL 

020265 

021 

111 

020 

LXI D BUE3TRT 


020270 

325 



PUSH D 


020271 

032 



LDAX D 


020272 

376 

040 


cpi ’sf* 


020274 

023 



INX D 


020275 

312 

271 

020 

JZ SKIP 


020300 

033 



DCX D 


020301 

041 

000 

000 

LXI H 0D 


020304 

376 

100 


CPI * A * -1 


020306 

332 

320 

020 

JPC LBL 

CMND 

020311 

042 

350 

033 

SHL CURLBL 


020314 

000 



NOP 


020315 

321 



POP D 


020316 

311 



RET 


020317 

000 



NOP 

LBL 

020320 

315 

331 

020 

CALL BIN 


020323 

042 

350 

033 

SHL CURLBL 


020326 

067 



STC 


020327 

321 



POP D 


020330 

Jl 1 



RET 

BIN 

020331 

315 

221 

020 

CALL ASCIN 


020334 

376 

012 


CPI 10D 


020336 

320 



RNC 


020337 

023 



IND D 


020340 

104 



MOV B,H 


020341 

115 



MOV C,L 


020342 

051 



DAO H 


020343 

051 



DAD H 


020344 

on 



DAD B 


020345 

051 



DAD H 


020346 

332 

311 

026 

JPC ERR2 


020351 

117 



MOV C f A 


020352 

006 

000 


MV l B 0D 


TEST FOR LABEL SUBROUTINE 


ASCII-BINARY SUBROUTINE 


NUMBER TOO LARGE 


TSTL: This ML routine is used to determine whether the line 
in the buffer has a label or not. If so, the label is converted to 
binary by BIN and stored in CURLBL (Current Label). The 
carry is set and return is made to ILXQT. Otherwise, a zero is 
placed in CURLBL and return is made with the carry reset. 


BIN: As the text cursor DE scans an ASCII number, BIN con¬ 
verts it to binary in HL. The first non-number encountered 
signals the end of conversion and return is made to the calling 
program. 
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TAG 

INSRT 

L00P1 

L00P2 

CONTI 

LOOP4 

LOOPS 

C0NT2 

HERE 

C0NT3 

LOOP? 


LOOP 6 


ADDRESS 

II 

12 

13 

MNEMONIC 

020354 

Oil 



DAD b 

020355 

303 

331 

020 

JMP BIN 

020J60 

32 5 



PUSH D 

020561 

052 

350 

033 

LHL CURLBL 

02056A 

104 



MOV B,H 

020365 

US 



MOV C,L 

020566 

04 1 

111 

020 

LX I H BUFSTRT 

020371 

076 

071 


MVI A '9' 

020373 

043 



I NX H 

02037A 

276 



CMP M 

020375 

303 

050 

020 

JMP FIXINSR 

021000 

345 



PUSH H 

021001 

026 

001 


MVI D ID 

021003 

076 

015 


MVI A ’CS* 

021005 

276 



CMP M 

021006 

312 

016 

021 

J2 CONTI 

021011 

024 



INR D 

021012 

043 



INX H 

021013 

303 

005 

021 

JMP L00P2 

021016 

172 



MOV A,D 

021017 

062 

356 

033 

3TA COUNT 

021022 

321 



POP D 

021023 

052 

352 

033 

LHL PRGSTRT 

021026 

176 



MOV A,M 

021027 

270 



CMP B 

021030 

312 

052 

021 

JZ C0HT2 

021033 

322 

064 

021 

JNC HERE 

021036 

043 



INX H 

021037 

043 



INX H 

0210AO 

175 



MOV A,L 

0210A1 

206 



ADDR M 

0210A2 

157 



MOV L,A 

0210A3 

322 

026 

021 

JNC LOOP4 

021046 

044 



INR H 

02 104 7 

303 

026 

021 

JMP L00P4 

021052 

043 



INX H 

021053 

176 



MOV A,M 

021054 

271 



CMP C 

021055 

312 

170 

021 

JZ OVRDEL 

021060 

332 

037 

021 

JPC L00P3 

021063 

053 



DCX H 

021064 

053 



DCX H 

021065 

325 



PUSH D 

021066 

353 



XCHG 

021067 

052 

354 

033 

LHL PRGEND 

021072 

345 



PUSH H 

021073 

072 

356 

033 

LDA COUNT 

021076 

306 

003 


ADI 3D 

021100 

205 



ADDR L 

021101 

322 

105 

021 

JNC C0NT3 

021104 

044 



INH H 

021105 

157 



MOV L,A 

021106 

315 

340 

030 

CALL MEMTEST 

021111 

104 



MOV B,H 

021112 

115 



MOV C,L 

021113 

341 



POP H 

021114 

176 



MOV A.M 

021115 

002 



STAX B 

021116 

053 



DCX H 

021117 

013 



DCX B 

021120 

174 



MOV A|H 

021121 

272 



CMP D 

021122 

302 

114 

021 

JNZ L00P5 

021125 

175 



MOV A,L 

021126 

273 



CMP E 

021127 

302 

114 

021 

JNZ L00P5 

021132 

023 



INX D 

021133 

052 

350 

033 

LHL CURLBL 

021136 

353 



XCHG 

021137 

162 



MOV M.D 

021140 

043 



INX H 

02 1141 

163 



MOV M,E 

021142 

043 



INX H 

021143 

072 

356 

033 

LDA COUNT 

021146 

074 



INR A 

021147 

167 



MOV M,A 

021150 

043 



INX H 

021151 

321 



POP D 

021152 

032 



LDAX D 

021153 

167 



MOV M,A 

021154 

376 

015 


CPI 'C£* 

021156 

312 

166 

021 

JZ END 

021161 

043 



INX H 


COMMENTS 


LINE INSERTION SUBROUTINE INSRT: This ML routine is perhaps the most powerful and 
ALSO DELETES AND OVERWRITES intricate program in TBX. It handles virtually all line editing. 

AS REQUIRED Lines are inserted by label (line number), deleted, and over¬ 

written as required. Ignoring the label, INSRT gets the length of 
the line in the buffer, adds 1, and places the result in COUNT 
for later use. Beginning at PRGSTRT (Starting location for 
BASIC programs), INSRT compares the line numbers of lines 
already stored to the line number in CURLBL. If a direct 
REFER TO PAGE 1 match is found, then either a deletion or overwrite is needed. In 

either case a branch is made to point OVRDEL. If a match is 
not found, comparison continues until the stored line number 
exceeds CURLBL. At this point, the program branches to 
HERE (021064). 


SAVE LENGTH OF TEXT 


INSERT LINE HERE 


The HERE routine inserts the new line at the point designated 
in B above. Before insertion begins, a check is made to be sure 
that enough memory space is available for the new line. If not, 
an error is called. If all is well, insertion continues. Beginning at 
the first stored line number above CURLBL, all BASIC lines 
are moved up in memory an amount equal to COUNT plus 3 
decimal Space is thus made available for the new line. The line 
number, the length of text (as stored in COUNT), and the text 
of the new line are then moved into this space. At this point 
CHECK FOR MEMORY DEPLETION normal return is made to ILXQT. 
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TAC 

ADDRESS 

II 

12 

13 

MNEMONIC 

COMMENTS 


021162 

023 



INX D 



021163 

303 

152 

021 

JMP L00P6 


END 

021166 

321 



POP D 



021167 

311 



RET 


OVRDEL 

021170 

053 



OCX H 

OVERWRITES OR DELETES A LI7C OVRDEL first deletes the line with the same number as 


021171 

345 



PUSH H 

CURLBL. The length of this line is determined by scanning and 


021172 

043 



INX H 

then all lines above it in memroy are moved down by this 


021173 
021174 

04.5 

04,5 



INX H 

INX H 

amount. PRGEND (Endling location of BASIC program) is 

LOOP 7 

021175 

176 



MOV A,M 

adjusted to always reflect the end of BASIC line storage. At 


021176 

376 

015 


CPI 

this point COUNT is checked. If it is one, a deletion is all that 


021200 

312 

207 

021 

JZ C0NT6 

is required and return to ILXQT is made. Otherwise, the pro- 

C0NT6 

021203 
02120A 
021207 

043 

303 

043 

175 

021 

INX H 

JMP L00P7 

INX H 

gram branches to near the beginning of INSRT so that the 
buffered line can be inserted. This time no match will be found 

021210 

353 



XCHC 

(the deletion step took care of that). 


021211 

052 

354 

033 

LHL PRCEND 

When the BASIC program storage area is initialized 


02121A 

043 



INX H 

after typing NEW, the highest line number (3773 7 7) is stored at 


021215 

021216 

021217 

104 
115 
34 1 



MOV B,H 

the beginning of the area . This is required to establish a base 




POP H 

for INSRT to begin its function . 

LOOPS 

021220 

032 



LDAX D 



021221 

167 



MOV M|A 



021222 

043 



INX H 



021223 

023 



INX D 



021224 

172 



MOV A,D 



021225 

270 



CMP B 



021226 

302 

220 

021 

JNZ L00P8 



021231 

173 



MOV A,E 



021232 

271 



CMP C 



021233 

302 

220 

021 

JNZ L00P8 



021236 

053 



DCX H 



021237 

042 

354 

033 

SHL PRCEND 



021242 

072 

356 

033 

LDA COUNT 



021245 

376 

001 


CPI ID 



021247 

021252 

021253 

021254 

302 
321 
311 
04 1 

361 

020 

JNZ INSRT+1 

POP D 


1LXQT 

002 

032 

LXI H ILSTRT 

INTERPRETIVE LANCUACE EXE- 

NXTIL 

021257 

176 



MOV A,M 

CPI 200 

CUT10N ROUTINE 

021260 

376 

200 




021262 

322 

314 

021 

JNC ML 


IL 

021265 

376 

100 


CPI 100 



021267 

322 

300 

021 

JNC ILCALL 


ILJMP 

0212 72 

043 



INX H 



021273 

156 



MOV L,M 



021274 

147 



MOV H,A 



021275 

303 

257 

02 l 

JMP NXTIL 


ILCALL 

021300 

346 

077 


ANI 0011111 IB 



021302 

107 



MOV B,A 



021303 

043 



INX H 



021304 

116 



MOV C y M 



021305 

043 



INX H 



021306 

34 5 



PUSH H 



021307 

140 



MOV H,B 



021310 

151 



MOV L,C 



021311 

303 

257 

021 

JMP NXTIL 


ML 

021314 

376 

300 


CPI 300 



021316 

322 

000 

022 

JNC MLCALL 


TST 

021321 

346 

077 


ANI 00111111B 

STRING COMPARASION ROUTINE 


021323 

10 7 



MOV B,A 



021324 

043 



INX H 



021325 

116 



MOV C,M 



021326 

043 



INX H 


LOOPl 

021327 

032 



LDAX D 



021330 

023 



INX D 



021331 

376 

040 


CPI '£?' 



021333 

312 

327 

021 

JZ LOOPl 



021336 

033 



DCX D 



021337 

325 



PUSH D 



021340 

353 



XCHG 


L00P2 

021341 

032 



LDAX D 



021342 

376 

200 


CPI 200 



021344 

322 

363 

021 

JNC END1 



021347 

276 



CMP M 



021350 

043 



INX H 



021351 

023 



INX D 



021352 

312 

341 

021 

JZ L00P2 


END2 

021355 

321 



POP D 



021356 

140 



MOV H,B 



021357 

151 



MOV L,C 



021360 

303 

257 

021 

JMP NXTIL 


END1 

021363 

346 

177 


ANI 0111111 IB 



021365 

27 6 



CMP M 



021366 

302 

355 

021 

JNZ END2 



021371 

353 



XCHC 



021372 

301 



POP B 



021373 

023 



INX D 



021374 

043 



INX H 
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TAC 

ADDRESS 

11 12 13 

MNEMONIC 


021375 

303 257 021 

JMP NXTIL 

MLCALL 

022000 

346 077 

ANI 0011111 IB 


022002 

043 

INX H 


022003 

116 

MOV C,M 


022004 

043 

INX H 


022005 

345 

PUSH H 


022006 

041 015 022 

LX I H RETRN 


022011 

345 

PUSH H 


022012 

147 

MOV H|A 


022013 

151 

MOV L,C 


022014 

351 

PCHL 

RETRN 

022015 

341 

POP H 


022016 

322 257 021 

JNC NXTIL 


022021 

043 

INX H 


022022 

043 

INX H 


022023 

303 257 021 

JMP NXTIL 

ASCOUT 

022026 

041 357 033 

LX I H ZONE-1 


022031 

357 

RST OUTPUT 


022032 

043 

INX H 


022033 

065 

DCR M 


022034 

300 

RNZ 


022035 

066 017 

MVI M 15D 


022037 

311 

RET 

# LOC 022040-022100 IS UNUSED 


iout 

022101 

345 

PUSH H 


022102 

325 

PUSH D 


022103 

305 

PUSH B 


022104 

353 

XCHG 


022105 

016 000 

MV I C 0 


022107 

041 020 047 

LXI H 10,0000 


022112 

315 147 022 

CALL CNVRT 


022115 

041 350 003 

LX I H 1,000D 


022120 

315 147 022 

CALL CNVRT 


022123 

041 144 000 

LX I H 100D 


022126 

315 147 022 

CALL CNVRT 


022131 

04 1 012 000 

LX I H 10D 


022134 

315 147 022 

CALL CNVRT 


022137 

173 

MOV A,C 


022140 

315 201 022 

CALL ASCOUT 


022143 

301 

POP B 


022144 

321 

POP D 


022145 

341 

POP H 


022146 

311 

RET 

CNVRT 

022147 

006 377 

MVI B 377 

LOOP 

022151 

004 

INR B 


022152 

173 

MOV A,E 


022153 

225 

SUB L 


022154 

137 

MOV E,A 


022155 

172 

MOV A,D 


022156 

234 

S8B H 


022157 

127 

MOV D,A 


022160 

322 151 022 

JNC LOOP 


022163 

173 

MOV A,E 


022164 

205 

ADDR L 


022165 

137 

MOV E|A 


022166 

172 

MOV A,D 


022167 

214 

ADC H 


022170 

127 

MOV D, A 


02217 1 

170 

MOV A | B 


022172 

271 

CMP C 


022173 

310 

RZ 


022174 

015 

DCR C 


022175 

315 201 022 

CALL BCDOUT 


022200 

311 

RET 

BCDOUT 

022201 

000 OOO 000 

NOP'S 


022204 

000 

NOP 


022205 

306 060 

ADI 060 


022207 

315 026 022 

CALL ASCOUT 


022212 

311 

RET 

LST 

022213 

325 

PUSH D 


022214 

052 306 033 

LKL LSTEND 


022217 

053 

DCX H 


022220 

104 

MOV B,H 


022221 

115 

MOV C,L 


022222 

052 304 033 

LHL LSTSTRT 


022225 

353 

XCHG 


022226 

033 

DCX H 

NLINE 

022227 

023 

INX D 


022230 

327 

RST CRLF 


022231 

170 

MOV A,B 


022232 

272 

CMP D 


022233 

302 243 022 

JNZ CONT 


022236 

171 

MOV A,C 


022237 

273 

CMP E 


022240 

312 275 022 

JZ END 


COMMENTS 


MACHINE LANCUACE CALLING 
PROCRAM 


NORMAL RETURN 


ALTERNATE RETURN 
ASCII OUTPUT ROUTINE 
ZONE DECREMENTED AND RESET 
AS REQUIRED 


INTEGER OUTPUT ROUTINE 
HAL IS OUTPUTTED IN DECIMAL 
PROVISION MADE FOR ZERO 
SUPPRESSION. 


BCD TO ASCII CONVERSION 


SUBROUTINE TO LIST BASIC 
PROCRAMS 


ASCOUT: This routine outputs an ASCII character via the 
external OUTPUT routine and decrements the location called 
ZONE. ZONE is used to keep track of print positioning on the 
output device. If ZONE should reach zero on a given call of 
ASCOUT, it is reset to 15 decimal. 


IOUT: IOUT is used to convert the binary number in HL to 
ASCII for outputting. The routine works by subtracting binary 
equivalents of decreasing powers of 10 from the binary value in 
HL. The number of times each power of 10 can be subtracted 
without producing a negative result represents the digit for the 
respective decimal place. If C is zero, leading zeroes are not 
outputted. CNVRT is a subroutine of IOUT that actually does 
the conversion and outputting of each digit. BCDOUT is a sub¬ 
routine that adds 060 to the BCD value of the digit to produce 
the ASCII value. ASCOUT is called so that ZONE will be dec¬ 
remented. 


LST: An ML routine used to list BASCI program lines beginning 
at the location stored in LSTSTRT and ending at the location 
stored in LSTEND. LBLOUT is used to output the line number 
for each line. The text length byte is skipped and the text is 
outputted until a CR is detected. The CR produces a new line 
and so long as the address in LSTEND is not exceeded, listing 
continues. 
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TAG 

ADDRESS 

11 

12 

13 

MNEMONIC 


022243 

032 



LOAX D 


022244 

147 



MOV H,A 


02224 5 

023 



INX D 


022246 

032 



LDAX D 


022247 

157 



MOV L,A 


022250 

315 

205 

026 

CALL LBLOUT 


022253 

023 



INX D 

LOOP 

022254 

023 



INX D 


022255 

032 



LDAX D 


022256 

376 

015 


CPI 'tS* 


022260 

312 

227 

022 

JZ NLINE 


022263 

305 



PUSH B 


022264 

345 



PUSH H 


022265 

315 

026 

022 

CALL ASCOUT 


022270 

341 



POP H 


022271 

301 



POP B 


022272 

303 

254 

022 

JMP LOOP 

END 

022275 

321 



POP D 


022276 

311 



RET 


022277 

000 



NOP 

RTN 

022300 

341 



POP H 


022301 

301 



POP B 


022302 

022303 

345 

311 



PUSH H 

RET 

DONE 

022304 

032 



LDAX D 


022305 

023 



INX D 


022306 

376 

040 


cpi *sp* 


022310 

312 

304 

022 

JZ DONE 


022313 

033 



DCX D 


022314 

376 

015 


CPI 'CR* 


022316 

310 



RZ 


022317 

303 

022 

030 

JMP FIXDONE 

PRS 

022322 

032 



LDAX D 


022323 

023 



INX D 


022324 

376 

042 


CPI ••• 


022326 

310 



RZ 


022327 

376 

015 


CPI 'CB* 


022331 

312 

317 

026 

JZ ERR4 


022334 

315 

026 

022 

CALL ASCOUT 


: 022337 

303 

322 

022 

JMP PRS 

SPC 

022342 

041 

360 

033 

LX I H ZONE 

LOOP 

022345 

076 

040 


MVI A *SP' 


022347 

357 



RST OUTPUT 


022350 

065 



DCR M 


022351 

302 

345 

022 

JNZ LOOP 


022354 

066 

017 


MVI M ISO 


022356 

247 



ANA A 


; 022357 

311 



RET 

NLINE 

022360 

327 



RST CRLF 


022361 

041 

360 

033 

LX I H ZONE 


022364 

066 

017 


MVI M 15D 


022366 

227 



SUB A 


022367 

311 



RET 


022370 

000 

000 

000 

NOP'S 


■ 022373 

000 

000 


NOP’S 

NXT 

022375 

052 

350 

033 

LHL CURLBL 


023000 

227 



SUB A 


023001 

274 



CMP H 


023002 

302 

021 

023 

JNZ CONT 


023005 

275 



CMP L 

Hi i rnMT 


023006 

302 

02 1 

023 

JN2 LUN1 

FIN 

023011 

041 

004 

032 

LX I H ILBCN+1 


023014 

301 



POP B 


023015 

343 



XTHL 


023016 

305 



PUSH B 


023017 

247 



ANA A 


023020 

311 



RET 

CONT 

023021 

023 



INX D 


023022 

032 



LDAX D 


023023 

147 



MOV H|A 


023024 

023 



INX D 


023025 

032 



LDAX D 


023026 

157 



MOV L,A 


023027 

042 

350 

033 

SHL CURLBL 


023032 

023 



INX D 


023033 

023 



INX D 

NXTX 

023034 

301 



POP B 


023035 

041 

022 

032 

LX I H STMT 


023040 

343 



XTHL 


023041 

305 



PUSH B 


023042 

247 



ANA A 


COMMENTS 


RTN: This ML routine terminates an IL CALL. Just prior to 
calling RTN, the 8080 stack looks like this: 

Top - Return address to ILXQT 
— Present IL program address 
- Return IL program address 

RTN simply deletes the ‘‘present IL program address” from 
stack producing: 

Top — Return address to ILXQT 
— Return IL program address 


the 


ML SUBROUTINE USED TO RETUFM ILXQT will then start execution at the IL instruction following 
AN IL CALL the last IL CALL. 


ML SUBROUTINE USED TO FOR 
TERMINATION OF A BASIC LINE 


MODIFICATION TO PERMIT 
MULTI-STATEMENT LINES 
ML SUBROUTINE USED TO 
PRINT LITERAL 


CR ENCOUNTERED IN LITERAL 


DONE: DONE is an ML routine that checks for proper line 
termination. After scanning over spaces (ASCII 040), DONE 
checks for the presence of a CR or dollar sign. If neither is 
encountered an error is signalled. If a CR is detected, a 
normal return to ILXQT is made. If a dollar sign is found, 
another BASIC command exists on the same line. In this case 
a branch is made to the NXT routine (see below) where 
interpretation is permitted to continue. 

PRS: PRS is an ML routine used to output literals in PRint 
statements. A quotation mark is used by PRS to signal the end 
of a character string. A CR encountered before an ending 
quotation mark signals an error. 


ML SUBROUTINE USED 
TO NEXT ZONE 


TO SPACE SPC: An ML routine used to space the output device to the 
next zone. The memroy location ZONE is decremented and a 
space is output until ZONE reaches zero. ZONE is then reset to 
15 decimal and control returned to ILXQT. 


ML SUBROUTINE USED TO ISSUE 
CR AND LF. ALSO RESETS ZONE 


NLINE: This ML routine issues a CR and LF to produce a new 
Hne on the output device. ZONE is also reset to 15 decimal. 


NXT: The NXT routine handles the transition between one 
BASIC line and the next during the execution phase. As inter- 

_ pretation of a line finishes, the NXT routine checks to see if the 

FER^MCUTiSn TO Sex? BASIC* line number stored in CURLBL is a zero. If so a direct inter- 
LINE* ALSO CHECKS FOR DIRECT pretation of a line is indicated. In this case , NXI sets up 
EXECUTIONS LABEL). GETUNE as the next IL instruction. If not, interpretation is 

set to begin at the next BASIC line in the program area. 
CURLBL is updated to the new line number. In this way the 
error routine can report at which line an error occurred. 

ML SUBROUTINE USED TO RE- FIN: Actually, this routine is part of NXT. When an END 
TURN TO LINE COLLECT ROUTlfE statement is encountered, FIN is called and IL execution is 

directed to GET LINE. This essentially terminates BASIC 
execution. 
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TAG 

ADDRESS 

11 

12 

13 

MNEMONIC 


023043 

311 



RET 

PSHAE 

023044 

305 



PUSH B 


023045 

104 



MOV B,H 


023046 

115 



MOV C,L 


023047 

052 

361 

033 

LHL AELVL 


023052 

160 



MOV M,B 


023053 

043 



INX H 


023054 

161 



MOV M,C 


023055 

043 



INX H 


023056 

042 

361 

033 

SHL AELVL 


023061 

301 



POP B 


023062 

175 



MOV A,L 


023063 

376 

177 


CPI 177 


023065 

330 



RC 


023066 

303 

322 

026 

JMP ERR5 

POPAE 

023071 

305 



PUSH B 


023072 

052 

361 

033 

LHL AELVL 


023075 

053 



DCX H 


023076 

106 



MOV B,M 


023077 

053 



DCX H 


023100 

042 

361 

033 

SHL AELVL 


023103 

146 



MOV H,M 


023104 

175 



MOV A,L 


023105 

376 

100 


CPI 100 


023107 

150 



MOV L,B 


023110 

301 



POP B 


023111 

320 



RNC 


023112 

303 

325 

026 

JMP ERR6 

TWOCMP 

023115 

174 



MOV A,H 


023116 

057 



CMA 


023117 

147 



MOV H,A 


023120 

175 



MOV A,L 


023121 

057 



CMA 


023122 

157 



MOV L,A 


023123 

043 



INX H 


023124 

311 



RET 

PRN 

023125 

315 

071 

023 

CALL POPAE 


023130 

174 



MOV A,H 


023131 

267 



ORA A 


023132 

362 

147 

023 

JP CONT 


023135 

315 

115 

023 

CALL TWOCMP 


023140 

076 

055 


MVI A 


023142 

345 



PUSH H 


023143 

315 

026 

022 

CALL ASCOUT 


02314 6 

341 



POP H 

CONT 

02314 7 

315 

101 

022 

CALL IOUT 


023152 

247 



ANA A 


023153 

311 



RET 

FNDLBL 

023154 

345 



PUSH H 


023155 

052 

352 

033 

LHL PRCSTRT 


023160 

104 



MOV B,H 


023161 

115 



MOV C,L 


023162 

341 



POP H 

OVER 

023163 

012 



LDAX B 


023164 

274 



CMP H 


023165 

312 

174 

023 

JZ NXT1 


023170 

320 



RNC 


023171 

303 

204 

023 

JMP NEW1 

NXT! 

023174 

003 



INX B 


02317 5 

012 



LDAX B 


023176 

275 



CMP L 


023177 

312 

220 

023 

JZ END 


023202 

320 



RNC 


023203 

013 



DCX B 

NEV1 

023204 

003 



INX B 


023205 

003 



INX B 


023206 

012 



LDAX B 


023207 

201 



ADDR C 


023210 

117 



MOV C,A 


023211 

322 

163 

023 

JNC OVER 


023214 

004 



INH B 


023215 

303 

163 

023 

JMP OVER 

END1 

023220 

013 



DCX B 


023221 

140 



MOV H,B 


023222 

151 



MOV L,C 


023223 

311 



RET 

XFER 

023224 

315 

071 

023 

CALL POPAE 


023227 

315 

154 

023 

CALL FNDLBL 


023232 

353 



XCHG 


COMMENTS 


SUBROUTINE USED TO PUSH PSHAE: A subroutine that pushes a binary value in HL onto 

HAL ONTO AE STACK. the arithmetic stack (separate from 80S0 stack). The AE stack 

pointer is stored at AEL VL. Each time PSHAE is called, the 
pointer is incremented twice. The space reserved for the AE 
stack will allow 32 pushes without pops. Exceeding 32 causes 
an error condition. 


AE TOO COMPLEX 
SUBROUTINE USED TO POP TOP 
OP AE STACK INTO HAL 


POPAE: This subroutine pops a binary value off the AE stack 
into HL. AELVL is decremented twice. If AELVL is decrement¬ 
ed below the space reserved for the AE stack, an error is 
indicated. 


SUBROUTINE USED TO TAKE TWOCMP: The value in HL is two’s complemented and placed 

2'S COMPLEMENT OF HAL back in HL. 


SUBROUTINE USED TO OUTPUT PRN: An ML routine that outputs the numeric value on the 

THE TOP OF THE AE STACK top of the AE stack. If a negative number is detected (most 

significant bit of H equal to 1), a minus sign is printed and 
TWOCMP called before IOUT prints HL. If the number is 
positive, IOUT is called directly. 


SUBROUTINE USED TO GET FNDLBL: The FNDLBL routine is used to search the BASIC 

ADDRESS OF LABEL IN HAL program area for the label stored in HL. A linear search is begun 

at PRGSTRT. In order to speed the search, the stored line 
length is used to skip over tine text. If the label is not found, 
return to the calling program is with the zero status bit reset. If 
the label is found, the location is placed in HL and the zero bit 
is set before return. 


SUBROUTINE USED TO TRANSFER XFER: This ML routine transfers execution to the label stored 
TOP cm the top of the AE stack. The tine number is popped off the 
* AE stack into HL and FNDLBL is called. If upon return the 

zero bit is set, HL contains the location of the next line to be 
executed. A branch to the NXT routine completes the transfer 
process. 
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TAC 

ADDRESS 

II 

12 

13 

MNEMONIC 


023233 

312 

022 

023 

JZ CONT+1 


~ 023236 

303 

330 

026 

JMP ERR7 

INNUM 

023241 

325 



PUSH D 


023242 

076 

077 


MVI A 'V 


023244 

315 

026 

022 

CALL ASCOUT 


023247 

076 

040 


MVI A • SP' 


023251 

315 

026 

022 

CALL ASCOUT 


023254 

000 



NOP 


023255 

315 

000 

020 

CALL BUFIN 


023260 

021 

111 

020 

LX I D BUFSTRT 


023263 

032 



LDAX D 


023264 

376 

055 


CPI 


023266 

041 

000 

000 

LX I H 0 


023271 

312 

312 

023 

JZ NEC 1 


023274 

315 

331 

020 

CALL BIN 

END1 

023277 

315 

044 

023 

CALL PSHAE 


023302 

076 

040 


MVI A ’SP* 


023304 

357 



RST OUTPUT 


023305 

321 



POP D 


023306 

247 



ANA A 


023307 

311 



RET 


023310 

2H 7 

3II 


NOP'S 

NEC1 

023312 

023 



INX D 


023313 

315 

331 

020 

CALL BIN 


023316 

315 

115 

023 

CALL TWOCMP 


~ 023321 

303 

277 

023 

JMP END1 

TSTV 

023324 

032 



LDAX D 


023325 

376 

040 


CPI 'SP' 


023327 

023 



INX D 


023330 

312 

324 

023 

JZ TSTV 


023333 

033 



DCX D 


023334 

306 

300 


ADI 300 


023336 

320 



RNC 


023337 

007 



RLC 


023340 

157 



MOV L,A 


023341 

046 

024 


MVI H 024 


023343 

315 

044 

023 

CALL PSHAE 


023346 

067 



STC 


023347 

023 



INX D 


— 0233 50 

311 



RET 

TSTN 

023351 

032 



LDAX D 


023352 

376 

040 


CPI 'SP' 


023354 

023 



INX D 


023355 

312 

351 

023 

JZ TSTN 


023360 

033 



DCX D 


023361 

376 

100 


CPI *A'-1 


023363 

322 

310 

023 

JNC END1 


023366 

376 

050 


CPI •(' 


023370 

310 



RZ 


023371 

041 

000 

000 

LX I H 0 


023374 

303 

124 

024 

JMP CONT 

# LOC 

023377 IS 

A NOP. LOC 024000-024077 RE 

DONE* 

“ 024100 

032 



LDAX D 


024101 

023 



INX D 


024102 

376 

040 


CPI ’SP* 


024104 

312 

100 

o 

fO 

JZ DONEX 


024107 

033 



DCX D 


024110 

376 

015 


CPI ’Cfj * 


024112 

310 



RZ 


024113 

376 

044 


CPI ’*• 


024115 

310 



RZ 


024116 

303 

314 

026 

JMP ERR3 


024121 

000 

000 

000 

NOP’ S 


024124 

315 

331 

020 

CALL BIN 


024127 

315 

044 

023 

CALL PSHAE 


- 024132 

311 



RET 

IND 

024133 

315 

071 

023 

CALL POPAE 


024136 

106 



MOV B,M 


024137 

043 



INX H 


024140 

146 



MOV H,M 


024141 

150 



MOV L,B 


024142 

315 

044 

023 

CALL PSHAE 


024145 

247 



ANA A 


“ 024146 

311 



RET 

STORE 

024147 

315 

071 

023 

CALL POPAE 


A NUMBER FROM 
ON AE STACK. 


COMMENTS 

*C0NT* IN NXT SUBROUTINE INNUM: INNUM is an ML routine used to input a number from 

LABEL NOT FOUND the input device, convert it to binary, and place it on the AE 

ML SUBROUTINE USED TO INPUT stack. The routine first outputs a question mark and a space. 

a uiimdtd roriM TTY ANH PI APT J ~ “ r 

ill nu rv. m. gupjfj is then called permitting the number to be inputted to 

the buffer. When a CR is detected, INNUM examines the buffer 
to see if a minus sign is present. If so, the program branches to 
NEG1. Otherwise, BIN is called to convert the number to binary 
and HL is pushed onto the AE stack. For a negative number, 
NEG1 makes the binary conversion, calls TWOCMP, and then 
pushes HL onto the AE stack. 


ML SUBROUTINE USED TO TEST 
FOR VARIABLE AND PLACE 
ADDRESS ON AE STACK. 


ML SUBROUTINE USED TO TEST 
FOR A NUMBER AND PLACE IT 
ON TOP OF AE STACK. 


ML SUBROUTINE SIMILAR TO 
DONE BUT NO PROVISION FOR 
TRANSFER. 


DONE FAIL 


ML SUBROUTINE USED TO 
REPLACE TOP OF AE STACK 
BY VARIABLE IT INDEXES. 


ML SUBROUTINE USED TO 
PLACE TOP OF STACK INTO 
VARIABLE INDEXED. 


TSTV: TSTV is an ML routine that determines whether the 
cursor points to a variable. First, TSTV scans over spaces. 300 
is then added to the first non-space value. A no-carry condition 
will result if a shifted character or number is present. Return 
will be made to ILXQT and the next IL instruction executed. 

An ASCII letter (A-Z) will produce a carry and at the same 
time zero the two most significant bits. In this case, the 
address of the variable is computed by doubling A to form the 
lower half. The upper half is a constant, 024. With A moved to 
L and 024 in H, PSHAE is called to place the variable address on | 
the AE stack. The carry is set before return to ILXQT causing 
the next IL to be skipped. 

TSTN: This routine tests for the presence of a number in the 
BASIC text. Spaces are scanned over and the first non-space is 
checked to find if it is a letter variable. If so, return to ILXQT 
is made with the carry reset. If not, a check is made to see if 
the byte is an open parenthesis. If it is, return is made with no 
carry. If the character is not a letter or open parenthesis, it is 
assumed to be the first digit of a number. In this case, BIN is 
called, HL pushed on the AE stack, and return is made with 
the carry set. 


DONEX: DONEX is identical to DONE except that detection 
of a dollar sign does not lead to transfer in the NXT routine. 
Instead, it produces a simple return to ILXQT exactly as a CR 
would do. 


IND: This ML routine pops the AE stack to bring the address 
of a variable into HL. The value of the variable is then obtained 
and pushed onto the AE stack. 


STORE: An ML routine that first pops a variable address off 
the AE stack and places it in BC. A numeric value is then 
popped off the AE stack and placed at the variable address in 
BC. _ 
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ADDRESS II 12 13 MNEMONIC 


COMMENTS 


024122 
024153 
024154 
024157 
024160 
024161 
024162 
024163 


114 

105 

315 071 023 
160 
043 
161 
247 
311 


t LOC 024164-024177 RESERVED 

# 


MOV C,H 
MOV B,L 
CALL POPAE 
MOV M.B 
INX H 
MOV M,C 
ANA A 


FOR BASIC SUBROUTINE STACK 


ADD 

024200 

315 

071 

023 

CALL POPAE 


024203 

104 



MOV B,H 


024204 

115 



MOV C.L 


024205 

315 

071 

023 

CALL POPAE 


024210 

Oil 



DAD B 


024211 

315 

044 

023 

CALL PSHAE 


024214 

247 



ANA A 


024215 

311 



RET 

SUB 

024216 

315 

071 

023 

CALL POPAE 


024221 

315 

115 

023 

CALL TWOCMP 


024224 

104 



MOV B,H 


024225 

115 



MOV C.L 


024226 

315 

071 

023 

CALL POPAE 


024231 

on 



DAD B 


024232 

315 

044 

023 

CALL PSHAE 


024235 

247 



ANA A 


024236 

311 



RET 


024237 

000 



NOP 

MUL 

024240 

325 



PUSH D 


024241 

006 

000 


MV I B 0 


024243 

315 

071 

023 

CALL POPAE 


024246 

174 



MOV A,H 


024247 

267 



ORA A 


024250 

374 

301 

024 

CM NINOX 


024253 

353 



XCHC 


024254 

315 

071 

023 

CALL POPAE 


024257 

174 



MOV A,M 


024260 

267 



ORA A 


024261 

374 

301 

024 

CM NINOX 


024264 

315 

306 

024 

CALL MULT 


024267 

005 



DCR B 


024270 

314 

115 

023 

C2 TWOCMP 


024273 

315 

044 

023 

CALL PSHAE 


024276 

321 



POP D 


024277 

247 



ANA A 


024300 

311 



RET 

NINOX 

024301 

004 



INR B 


024302 

315 

115 

023 

CALL TWOCMP 


024305 

311 



RET 

MULT 

024306 

305 



PUSH B 


024307 

104 



MOV B,H 


024310 

115 



MOV C.L 


024311 

041 

000 

000 

LX I H 0 


024314 

076 

021 


MVI A 17D 


024316 

062 

363 

033 

STA INDX 

LOOP 

024321 

170 



MOV A,B 


024322 

037 



RAR 


024323 

107 



MOV B|A 


024324 

171 



MOV A,C 


024325 

037 



RAR 


024326 

117 



MOV C,A 


024327 

322 

333 

024 

JNC NXT1 


024332 

031 



DAD D 

NXT1 

024333 

174 



MOV A, H 


024334 

037 



RAR 


024335 

147 



MOV H|A 


024336 

175 



MOV A,L 


024337 

037 



RAR 


024340 

157 



MOV L,A 


024341 

072 

363 

033 

LDA INDX 


024344 

075 



DCR A 


024345 

312 

356 

024 

JZ END 1 


024350 

062 

363 

033 

STA INDX 


024353 

303 

321 

024 

JMP LOOP 

END1 

024356 

140 



MOV H,8 


024357 

151 



MOV L,C 


024360 

301 



POP B 


ML SUBROUTINE USED TO ADD 
TWO TOPMOST ELEMENTS ON 
STACK. 


ML SUBROUTINE USED TO FIND 
THE DIFFERENCE OF THE TWO 
TOPMOST ELEMENTS OF THE AE 
STACK. 


ADD: An ML routine used to perform signed addition on the 
two top elements of the AE stack, this sun being placed back on 
the AE stack. 


SUBTRACT: An ML routine used to perform signed subtrac¬ 
tion on the two top elements of the stack. After the first value 
is popped off the stack, the two’s complement is taken to 
produce the subtrahend. From that point on, the routine is 
similar to the ADD routine. 


ML SUBROUTINE USED TO MULTI- MUL: This routine performs signed multiplication of the two 
PLY THE TWO TOPMOST ELEMENTS top elements of the AE stack. MUL essentially takes care of 
OF AE STACK sifrn determination while another routine, MULT, actually per¬ 

forms the multiplication. Register B is used to logically deter¬ 
mine if either or both of the factors are negative. B is originally 
set to zero and then incremented in NINOX once for each nega¬ 
tive factor. In addition, each negative factor is two’s comple¬ 
mented to produce the corresponding positive value. At the 
end of MUL if B = 1, then the product should be negative. In 
this case two’s complement routine is called. All other values of 
B indicate a positive product. 


SUBROUTINE MULTIPLIES HAL 
BY DAE ANSWER IN HAL 


NINOX: A routine used with MUL and DIV is sign determina¬ 
tion (see MUL). 

MULT: This routine multiplies the two 16-bit numbers in HL 
and DE. The product is shifted into BC as multiplication takes 
place. This routine is a little unconventional and may require 
some close study to understand. 
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TAG 

ADDRESS 

II 12 13 

MNEMONIC 


024361 

311 

RET 

DIV 

024362 

325 

PUSH D 


024363 

006 000 

MVI B g 


024363 

315 071 023 

CALL POPAE 


024370 

174 

MOV A,H 


024371 

267 

ORA A 


024372 

374 301 024 

CM NINOX 


024375 

353 

XCHG 


024376 

315 071 023 

CALL POPAE 


025001 

174 

MOV A | H 


025002 

267 

ORA A 


025003 

374 301 024 

CM NINOX 


025006 

353 

XCHG 


025007 

227 

SUB A 


025010 

274 

CMP H 


025011 

302 020 025 

JNZ CONT 


025014 

275 

CMP L 


025015 

312 333 026 

JZ ERR8 

CONT 

025020 

315 026 025 

CALL DIVD 


025023 

303 267 024 

JMP NIN0X-1O 

DIVD 

025026 

305 

PUSH B 

025027 

006 001 

MVI B 1 

LOOP 

025031 

174 

MOV A,H 


025032 

346 100 

AN I 01000000B 


025034 

302 044 025 

JNZ OUT 


025037 

051 

DAD H 


025040 

004 

INR B 


025041 

303 031 025 

JMP LOOP 

OUT 

02 504 4 

170 

MOV A,B 


02504 5 

062 363 033 

STA INDX 


025050 

104 

MOV B,H 


025051 

115 

MOV C,L 


025052 

041 000 000 

LX I H f> 

OVER 

025055 

173 

MOV A,E 


025056 

221 

SUB C 


02 505 7 

137 

MOV F.,A 


025060 

172 

MOV A,D 


025061 

230 

SB8 B 


025062 

127 

MOV D|A 


025063 

322 117 025 

JNC DIV# 


025066 

173 

MOV A,E 


025067 

201 

ADDR C 


025070 

137 

MOV E,A 


025071 

172 

MOV A,D 


025072 

210 

ADC B 


025073 

127 

MOV D,A 


025074 

051 

DAD K 


025075 

072 363 033 

LDA INDX 


025100 

075 

DCR A 


025101 

312 115 025 

JZ END 

CONT 

025104 

062 363 033 

STA INDX 

025107 

353 

XCHG 


025110 

051 

DAD H 


025111 

353 

XCHG 


025112 

303 055 025 

JMP OVER 

END 

025115 

301 

POP B 

025116 

311 

RET 

DIV# 

025117 

051 

DAD H 


025120 

043 

INX H 


025121 

072 363 033 

LDA INDX 


025124 

075 

DCR A 


025125 

312 115 025 

JZ END 


025130 

303 104 025 

JMP CONT 

NEG 

025133 

315 071 023 

CALL POPAE 




CALL TWOCMP 


025136 

315 115 023 


025141 

315 044 023 

CALL PSHAE 


025144 

247 

ANA A 


025145 

311 

RET 


025146 

000 000 000 

NOP'S 

CHPR 

025151 

325 

PUSH D 


025152 

315 071 023 

CALL POPAE 


025155 

353 

XCHG 


025156 

315 071 023 

CALL POPAE 


025161 

025162 

345 

315 071 023 

PUSH H 

CALL POPAE 


025165 

174 

MOV A,H 


025166 

346 200 

ANI 10000000B 


025170 

302 262 025 

JNZ CONTI 


025173 

025174 

172 

346 200 

MOV A,D 

ANI 100000OOB 


025176 

302 227 025 

JNZ B:4 

C0NT2 

025201 

174 

MOV A,H 


025202 

272 

CMP D 


025203 

312 214 025 

JZ OVR 


COMMENTS 

ML SUBROUTINE USED TO DI- DIV: This ML routine is basically similar to the MUL routine in 
VIDE TWO TOPMOST ELEMENTS that it handles sign determination for division. The quotient of 
OF AE STACK* the two top elements of the stack is taken with the first popped 

off the stack treated as the divisor. Integer division actually 
takes place in a called routine, DIVD. 


DIVIDE BY ZERO 


DIVD: The contents of DE is divided by the contents of HL in 
this routine. The divisor (HL) is left justified before division 
actually begins. The number of left shifts required for this 
determines the number of shifted subtractions used in the 
binary division process. A check is made for division by zero 
and an error is reported if this is the case. The quotient is 
developed in HL. 


ML SUBROUTINE USED TO NE- NEG: An ML routine used to negate the top element of the AE 
GATE TOP OP AE STACK* stack. The two’s complement routine is used and the result is 

placed back on the stack. 


CMPR: At the time CMPR is called, the AE stack has at least 
ML SUBROUTINE USED TO COM" three elements consisting of the first expression value, the 
PARE TWO TOPMOST ELEMENTS logical operator address code (labeled 0:, 1:, 2:, etc. on listing), 
OP AE STACK. and a second expression value. Testing is performed on the two 

expression values and A is made a 0, 1, or 4 depending on the 
numerical comparison: 

Expression values equal A - 0 

First expression greater than second A = 1 

Second expression greater than first A = 4 

The logical operator address code then sends the program to 
one of 6 testing subroutines (labelled 0:, l:, 2:, etc.) where a 
check is made on A to see if the condition is true or false. If 
the zero bit is set upon return then a true' condition exists; oth¬ 
erwise, the condition is false. For a true condition, execution is 
set to continue at the next statement following the IF. A false 
cause execution of the next numbered line. 
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TAG 

ADDRESS 

11 

12 

13 

MNEMONIC 

COMMENTS 




025206 

322 

227 

025 

jnc b:a 





025211 

303 

22 A 

025 

jmp b:i 




OVfi 

02521A 

175 



MOV A, L 





025215 

273 



CMP E 





025216 

312 

232 

025 

J2 B:0 





025221 

322 

22 7 

025 

JNC B:A 




Bll 

02 522A 

076 

001 


MVI A ID 





02 522 6 

0A1 



SPECIAL 




Bi 4 

025227 

076 

OOA 


MVI A AD 





025231 

0A1 



SPECIAL 




Biff 

025232 

076 

000 


MV I A (JD 




02523A 

3A l 



POP H 





025235 

021 

242 

025 

LX I D ALPHA 





025240 

325 



PUSH D 





0252A1 

351 



PCHL 




ALPHA 

0252A2 

312 

260 

025 

JZ TRUE 




FALSE 

0252A5 

321 



POP D 




LOOP 

0252A6 

032 



LDAX D 





0252A7 

376 

015 


CPI *(1B r 

•NXT* SUBROUTINE 




025251 

312 

375 

022 

JZ NXT 




02525A 

023 



INX D 





025255 

303 

2A6 

025 

JMP LOOP 




TRUE 

025260 

321 



POP D 





025261 

311 



RET 




CONTI 

025262 

025263 

172 

3A6 

200 


MOV A.D 

ANI iOOOOOOOB 





025265 

302 

201 

025 

3Uf. C0NT2 





025270 

303 

22A 

025 

JMP Bll 




01 

025273 

376 

000 


CPI to 




025275 

311 



RET 




IS 

025276 

376 

001 


CPI ID 





025300 

311 



RET 




2S 

025301 

376 

000 


CPI t D 





02 53 0 3 

310 



RZ 





02530A 

376 

001 


CPI ID 





025306 

311 



RET 




3S 

025307 

376 

001 


CPI ID 





025311 

310 



RZ 





025312 

376 

OOA 


CPI AD 





02531A 

311 



RET 




AS 

025315 

376 

OOA 


CPI AD 





025317 

311 



RET 




5S 

025320 

376 

000 


CPI 0D 





025322 

310 



RZ 





025323 

376 

OOA 


CPI AD 




LIT0 

025325 

311 



RET 




025326 

056 

273 


MVI L 273 



UTO through LIT5: These ML routines are used to put the 

*- 

025330 

001 

276 


SPECIAL 



logical operator address on the AE stack during execution of an 

LIT l 

025331 

025333 

056 

001 


MVI L 276 
SPECIAL 



r F statement. See CMPR. 

LIT? 

02 533A » 

056 

301 


MVI L 301 




- - 

025336 

001 



SPECIAL 




LIT3 

025337 

056 

307 


MVI L 307 




— 

0253A1 

001 



SPECIAL 




LITA 

0253A2 

056 

315 


MVI L 315 




— 

0253AA 

001 



SPECIAL 




LIT5 

0253A 5 

056 

320 


MVI L 320 




' “ 

0253A7 

0A6 

025 


MVI H 02A 





025351 

315 

OAA 

023 

CALL PSHAE 





02535A 

2A7 



ANA A 





025355 

311 



RET 




PSHSBR 

025356 

305 



PUSH B 

SUBROUTINE USED 

TO SAVE 

PSHSBR: A routine used to place the return address of GOSUB 







BASIC SUBROUTINE 

RETURN 

on the subroutine stack. The subroutine stack is separate from 


025357 

104 



MOV B,H 

MOV C,L 

ADDRESS* 


the AE stack. SBRL VL is a pair of locations used to keep track 


025360 

115 





of the level of subroutining. 


025361 

052 

36A 

033 

LHL SBRLVL 





02536A 

160 



MOV M,B 





025365 

0A3 



INX H 





025366 

161 



MOV M,C 





025367 

0A3 



INX H 





025370 

0A2 

36A 

033 

SHL SBRLVL 





025373 

301 



POP B 





02537A 

175 



MOV A.L 





02537 5 

376 

177 


CPI 177 





025377 

330 



RC 





026000 

303 

336 

VO 

CM 

O 

JMP ERR9 

NESTING TOO DEEP 



POPSBR 

026003 

305 



PUSH B 

SUBROUTINE USED 

TOO RETRIEVE 

POPSBR: A routine used to pop the GOSUB return address off 







BASIC SUBROUTINE 

ADDRESS. 

the subroutine stack. 


02600A 

052 

36A 

033 

LHL SBRLVL 





026007 

053 



DCX H 





026010 

106 



MOV B,M 





026011 

053 



DCX H 





026012 

0A2 

36A 

033 

SHL SBRLVL 





026015 

1A6 



MOV H,M 





026016 

175 



MOV A,L 





026017 

376 

16A 


CPI 16A 





026021 

150 



MOV L,B 





026022 

301 



POP B 
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TAC 

ADDRESS 

11 

12 

13 

MNEMONIC 


026023 

320 



RNC 


026024 

303 

341 

026 

JMP ERR10 

SAVE 

026027 

142 



MOV H|D 


026030 

153 



MOV L.E 


026031 

315 

356 

025 

CALL PSHSBR 


026034 

247 



ANA A 


026035 

Jll 



RET 

RSTR 

026036 

315 

003 

026 

CALL POPSBR 


026041 

353 



XCHC 


026042 

247 



ANA A 


026043 

311 



RET 

SPCONE 

026044 

076 

040 


MVI A 'SP' 


026046 

315 

026 

022 

CALL ASCOUT 


026051 

247 



ANA A 


026052 

311 



RET 

INIT 

026053 

000 

000 

000 

NOP'S 


026056 041 077 

026061 001 J50 

LOOP 026064 176 

026065 002 

026066 175 

026067 376 130 

026071 310 

026072 003 

026073 043 

026074 303 064 

026077 000 

026100 000 000 
026103 001 034 

026106 040 017 

026111 030000 

026114 024 377 

026117 000 000 

026122 241 051 

026125 377 057 

026130 377 

XINIT 026131 041 100 



026134 

042 

361 

033 

SHL AELVL 


026137 

04 1 

164 

024 

LX I H 


026142 

042 

364 

033 

SHL SBRLVL 


026145 

315 

020 

027 

CALL INIARY 


026150 

052 

352 

033 

LHL PRCSTRT 


026153 

126 



MOV D,M 


026154 

043 



INX H 


026155 

136 



MOV E,M 


026156 

353 



XCHC 


026157 

000 



NOP 


026160 

042 

350 

033 

SHL CURLBL 


026163 

023 



INX D 


026164 

023 



INX D 


026165 

247 



ANA A 


026166 

311 



RET 

# LOC 026167-026204 IS UNUSED 

• 

LBLOUT 

026205 

345 



PUSH H 


026206 

325 



PUSH D 


026207 

305 



PUSH B 


026210 

353 



XCHC 


026211 

016 

37 7 


MVI C 377 


026213 

303 

107 

022 

JMP IOUT+6 

ERRMAIN 

026216 

000 



NOP 


0262 17 

000 



NOP 


026220 

327 



RST CRLF 


026221 

000 

000 

000 

NOP'S 


026224 

076 

105 


MVI A 'E' 


026226 

357 



RST OUTPUT 


026227 

076 

122 


MVI A 'R' 


026231 

357 



RST OUTPUT 


026232 

357 



RST OUTPUT 


026233 

076 

040 


MVI A ’Sf” 


026235 

357 



RST OUTPUT 


026236 

046 

000 


MVI H 9> 


026240 

000 

000 

000 

NOP'S 


026243 

315 

101 

022 

CALL IOUT 


026246 

052 

3 50 

033 

LHL CURLBL 


026251 

076 

040 


MVI A ’5?' 


026253 

357 



RST OUTPUT 


026254 

315 

205 

026 

CALL LBLOUT 


026257 

016 

010 


MVI C 8D 


026 LXI H STRT 
033 LX I B CURLBL 
MOV A,M 
STAX B 
MOV A,L 
CPI 130 
R7. 

I MX B 
INX H 

026 JMP LOOP 
DATA 
034 DATA 
000 DATA 
100 DATA 
164 DATA 
057 DATA 
056 DATA 
321 DATA 
377 DATA 
DATA 

030 LX I H 


COMMENTS 


TOO MANY RETURN STATEMENTS 
ML SUBROUTINE USED TO PLACE 
RETURN ADDRESS ON SBR STACK. 


SAVE: This ML routine places the GOSUB return address on 
the subroutine stack using PSHSBR. 


ML SUBROUTINE USED TO RE¬ 
TRIEVE RETURN ADDRESS FROM 
SBR STACK. 


RSTR: Upon execution of a RET statement, this ML routine 
uses POPSBR to fetch the return address off the subroutine 
stack. 


PUT S ONE°SPACE TO^TTY^ SPOONE: ML routine that issues one space on the output 

device. This is the execution routine for a semicolon in the 
PR statement. 


ML SUBROUTINE USED TO 
INITIALIZE BASIC SYSTEM. 


INIT: This ML routine initializes the TBX system when a NEW 
statement is executed. The program area is preset to that a new 
program can be entered. 


ML SUBROUTINE USED TO XINIT: When RUN is typed, certain locations in TBX must be 

PREPARE SYSTEM FOR EXECUTION initialized. The XINIT routine performs the following tasks: 

1. AE and subroutine stacks are emptied; 

2. The array storage area is preset at zero length; and 

3. The label number of the first statement to be executed 
is placed in CURLBL. 


SUBROUTINE USED TO OUTPUT LBLOUT: This routine is called by LIST to output a label 
LABELfNO ZERO SUPPRESSION) number of a TBX statement. IOUT is used with C preset to 

377 octal preventing zero suppression. 


ERRMAIN: This routine is used to process an error condition. 
“ERR” is outputted followed by the error number and the 
CURLBL. Entry to ERRMAIN is made through ERR1, ERR2, 
etc., where L is set to the error number desired. 
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TAG 

ADDRESS 

II 

12 

13 

MNEMONIC 

COMMENTS 



026261 

041 

357 

033 

LX I H 

PARTIAL REINITIALIZATION 



026264 

021 

106 

026 

LX I D 

SEQUENCE 


LOOP 

026267 

032 



LDAX D 




026270 

167 



MOV M,A 




026271 

015 



DCR C 




026272 

302 

267 

026 

JNZ LOOP 




026275 

041 

002 

032 

LX I H 




026300 

061 

077 

002 

LX I 3P 




026303 

303 

257 

021 

JMP ILXQT 



ERRLIST, 

026306 

056 

001 


MVI L ID 



ERR1 

026310 

001 



SPECIAL 



ERR2 

026311 

056 

002 


MVI L 2D 




026313 

001 



SPECIAL 



ERR 3 

026314 

056 

003 


MVI L 3D 




026316 

001 



SPECIAL 



err 4 

026317 

056 

004 


MVI L 4D 




026321 

001 



SPECIAL 



ERR5 

026322 

056 

005 


MVI L 5D 




026324 

001 



SPECIAL 



ERR6 

026325 

056 

006 


MVI L 6D 




026327 

001 



SPECIAL 



ERR 7 

026330 

056 

007 


MVI L 7D 




026332 

001 



SPECIAL 



ERRS 

026333 

056 

010 


MVI L 8D 




026335 

001 



SPECIAL 



ERR9 

026336 

056 

Oil 


MVI L 9D 




026340 

001 



SPECIAL 



ERR 10 

026341 

056 

012 


MVI L 10D 




026343 

001 



SPECIAL 



ERR 11 

026344 

056 

013 


MVI L 1 ID 




026346 

001 



SPECIAL 



ERR 12 

026347 

056 

014 


MVI L 12D 




026351 

001 



SPECIAL 



ERR 13 

026352 

056 

015 


MVI L 13D 




026354 

001 



SPECIAL 



ERR14 

026355 

056 

016 


MVI L 14D 




026357 

001 



SPECIAL 



ERR 15 

026360 

056 

017 


MVI L 15D 




026362 

001 



SPECIAL 



ERR 16 

026363 

056 

020 


MVI L 16D 




026365 

303 

216 

026 

JMP ERRMAIN 



# LOC 026370-027017 

IS UNUSED 




INIARY 

027020 

076 

012 


MVI A ’JJ* 

ARRAY INITIALIZATION SUB- 

INI A R Y: A subroutine called by XINIT to preset the array 


027022 

357 



RST OUTPUT 

ROUTINE 

area of memory. 


027023 

052 

115 

026 

LHL 




027026 

042 

366 

033 

SHL ARYSTRT 




027031 

311 



RET 



DIM2 

027032 

325 



PUSH D 

ML SUBROUTINE USED TO 


““““ 






SET UP TWO DIMENSIONAL 

ARRAYS. 



027033 

315 

071 

023 

CALL POPAE 




027036 

353 



XCHG 




027037 

315 

071 

023 

CALL POPAE 




027042 

104 



MOV B,H 




027043 

115 



MOV C,L 




027044 

315 

044 

023 

CALL PSHAE 




027047 

353 



XCHG 




027050 

315 

044 

023 

CALL PSHAE 




027053 

321 



POP D 




027054 

305 



PUSH B 




027055 

315 

240 

024 

CALL MULT 




027060 

315 

071 

023 

CALL POPAE 




027063 

303 

072 

02 7 

JMP CONT 



DIM1 

027066 

315 

071 

023 

CALL POPAE 

ML SUBROUTINE USED TO SET IP 

DIM1 and DIM2: These ML routines are used to set up array 

— 

027071 

027072 

027073 

345 

051 

104 



PUSH H 

DAD H 

MOV B,H 

ONE DIMENSIONAL ARRAYS. 

storage as a result of execution of a DIMension statement. 

CONT 




DIM2 handles two dimensional arrays while DIM1 handles the 
one-dimensional arrays. At the time these routines are called. 


027074 

115 



MOV C,L 


the array dimensions are on top of the AE stack. MULT and 


027075 

052 

366 

033 

LHL ARYSTRT 


double register addition are used to calculate memory needed 


027100 

175 



MOV A,L 


for a given array dimension. The variable associated with the 


027101 
027 102 

221 

117 



SUP C 

MOV C,A 


array name is used to hold the location of the beginning of 


027103 

174 



MOV A|H 


that array . 


027104 

230 



SBB B 




027105 

107 



MOV B,A 




027106 

013 



DCX B 




027107 

052 

354 

033 

LHL PRGEND 




027112 

274 



CMP H 




027113 

302 

120 

027 

JNZ CONTI 




027116 

171 



MOV A,C 




027117 

275 



CMP L 



CONTI 

027120 

332 

360 

026 

JC ERR 15 




027123 

140 



MOV H,B 




027124 

151 



MOV L,C 




027125 

301 



POP B 




027126 

160 



MOV M,B 
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TAG 

ADDRESS 

II 

12 

13 

MNEMONIC 


027127 

05J 



DCX H 


0271 JO 

161 



MOV M,C 


0271J1 

104 



MOV B,H 


0271J2 

115 



MOV C.L 


0271JJ 

042 

366 

033 

SHL ARYSTRT 


027136 

J15 

071 

023 

CALL POPAE 


027141 

161 



MOV M,C 


027142 

04 J 



INX H 


02714J 

160 



MOV M,B 


027144 

247 



ANA A 


027145 

Jl 1 



RET 

ARRAYI 

027146 

J15 

071 

023 

CALL POPAE 


027151 

05J 



DCX H 


027152 

051 



DAD H 


02715J 

104 



MOV B,H 


027154 

115 



MOV C,L 


027155 

J15 

071 

023 

CALL POPAE 


027160 

Oil 



DAD B 


027161 

J15 

044 

023 

CALL PSHAE 


027164 

247 



ANA A 


027165 

Jl 1 



RET 

ARRAY2 

027166 

J15 

071 

023 

CALL POPAE 


027171 

05J 



DCX H 


027172 

J15 

044 

023 

CALL PSHAE 


027175 

052 

370 

033 

LHL ATEMP 


027200 

J15 

044 

023 

CALL PSHAE 


02720J 

J15 

240 

024 

CALL MULT 


027206 

J15 

200 

024 

CALL ADD 


027211 

JOJ 

146 

027 

JMP ARRAYI 

TSTA 

027214 

0J2 



LDAX D 








027215 

02J 



I MX D 


027216 

J76 

040 


CPI 'sp* 


027220 

J 12 

214 

027 

JZ TSTA 


02722J 

OJJ 



DCX D 


027224 

JO 6 

300 


ADI 300 


027226 

J20 



RNC 


027227 

007 



RLC 


0272JO 

117 



MOV C,A 


0272J1 

02 J 



INX D 


0272J2 

0J2 



LDAX D 


0272JJ 

J76 

050 


CPI *(* 


0272J5 

312 24J 027 

JZ CONT 


027240 

OJJ 



DCX D 


027241 

247 



ANA A 


027242 

Jll 



RET 

CONT 

02724J 

151 



MOV L,C 


027244 

046 

024 


MV I H 024 


027246 

116 



MOV C,M 


027247 

04 J 



INX H 


027250 

146 



MOV H,M 


027251 

151 



MOV L,C 


027252 

116 



MOV C,M 


02725J 

04 J 



INX H 


027254 

106 



MOV B,M 


027255 

04 J 



INX H 


027256 

J15 

044 

023 

CALL PSHAE 


027261 

140 



MOV H,B 


027262 

151 



MOV L,C 


02726J 

042 

370 

033 

SHL ATEMP 


027266 

067 



STC 


027267 

Jll 



RET 


027270 

OOO 

000 000 

NOP'S 

# LOC 

02727J-027J04 IS UNUSED 


# 

FOR 

027J05 

325 



PUSH D 

E0OT> 

027J06 

023 



INX D 


027J07 

032 



LDAX D 


027J10 

376 

015 


CPI 'CR* 


027J12 

302 

064 

030 

JNZ fiafoR 

CONT 

027J15 

353 



XCHG 


027J16 

315 

044 

023 

CALL PSHAE 


027 J21 

321 



POP D 


027J22 

247 



ANA A 


027J2J 

311 



RET 

NEXT 

027J24 

325 



PUSH D 


027J25 

315 

071 

023 

CALL POPAE 


027JJ0 

345 



PUSH H 


027JJ1 

116 



MOV C,M 


027JJ2 

043 



INX H 


027JJJ 

106 



MOV B,M 


027JJ4 

315 

071 

023 

CALL POPAE 


027JJ7 

353 



XCHG 


027J40 

315 

071 

023 

CALL POPAE 


COMMENTS 


ML SUBROUTINE USED TO GET ARRAY1 and ARRAY2: These ML routines are used to calcu- 

THE ADDRESS 0Y A ONE DIMEN - late the address of an array variable. The array position values 
SIONAL ARRAY VARIABLE* are on fae AE stack at the time these routines are called. MUL1 

and double register addition are used in the calculation. 


ML SUBROUTINE USED TO CET 
THE ADDRESS OF A TWO DIMEN¬ 
SIONAL ARRAY VARIABLE. 


ML SUBROUTINE USED TO TEST 
FOR AN ARRAY. 


TSTA: An ML routine used to test TBX text for the presence 
of an array variable. If a letter is immediately followed by an 
open parenthesis, then an array is indicated. Otherwise, an 
ordinary variable is present. 


ML SUBROUTINE USED TO SET IP FOR: When a FOR statement is executed, this ML routine 
FOR LOOP. places the address of the next statement following the FOR 

on the AE stack. 


ML SUBROUTINE USED TO CHECK 
END OF FOR LOOP. 


NEXT: This ML routine is used to process a NXT instruction. 
During its execution the following tasks are performed: 

1. The index variable is incremented; 

2. A check is made to see if the variable limit has been 
exceeded; 

3. If so, the next TBX instruction is executed; and 

4. If not, execution is returned to the statement follow¬ 
ing the appropriate FOR statement. 
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TAC 

ADDRESS 

11 

12 

13 

MNEMONIC 

COMMENTS 




02731*3 

003 



I NX B 






0273itH 

172 



MOV A,D 






02731*5 

270 



CMP B 






02731*6 

302 

361 

027 

JNZ CONT 






027351 

173 



MOV A,E 






027352 

27 1 



CMP C 






027353 

322 

361 

027 

JNZ CONT 






027356 

503 

006 

030 

JMP CONTI 





CONT 

027361 

345 



PUSH H 






027362 

315 

044 

023 

CALL PSHAE 






027365 

34 1 



POP H 






027366 

353 



XCHG 






027367 

315 

044 

023 

CALL PSHAE 






027372 

34 1 



POP H 






027373 

315 

044 

023 

CALL PSHAE 






027376 

140 



MOV H,B 






027377 

151 



MOV L,C 

CALL PSHAE 






030000 

315 

044 

023 






030003 

3k I 



POP H 






030001* 

247 



ANA A 






030005 

311 



RET 





CONTI 

030006 

341 



POP H 






030007 

315 

044 

023 

CALL PSHAE 






030012 

140 



MOV H,8i 






030013 

151 



MOV L,C 






03001H 

315 

044 

023 

CALL PSHAE 






030017 

321 



POP D 






030020 

247 



ANA A , 






030021 

311 



RET 





FIX DONE 

030022 

376 

044 


CPI *$• 






03002*1 

302 

314 

026 

JNZ 






030027 

303 

033 

023 

JMP 





TSTF 

030032 

032 



LDAX D 

ML 

SUBROUTINE USED TO 

TEST 

TSTF: A test is performed by this ML routine to check for the 


030033 

030035 

030036 

376 

023 

312 

040 


CPI ’SP* 

I NX D 

JZ TSTF 

FOR 

FUNCTION. 


presence of a function in the TBX text. The function is 
recognized by the occurrence of two letters in sequence, i.e„ 


032 

030 




RN for the random number function. 


03001*1 

033 



DCX D 






0300H2 

306 

300 


ADI 300 






03001*1* 

320 



RNC 






03001*5 

325 



PUSH D 






03001*6 

023 



INX D 






0300*17 

032 



LDAX D 






030050 

306 

300 


ADI 300 






030052 

321 



POP D 






030053 

320 



RNC 






030051* 

376 

015 


CPI *££• 






030056 

310 



RZ 






030057 

376 

040 


CPI 'SP' 






030061 

310 



RZ _ 






030062 

067 



STC 






030063 

311 



RET 





FIXFOR 

030064 

376 

044 


CPI ’$• 






030066 

312 

315 

027 

JZ CONT 

IN 

•FOR’ ROUTINE 




030071 

303 

306 

027 

JMP LOOP 

IN 

•FOR* ROUTINE 



# LOC 03007*1-030077 IS UNUSED 

. LOC 030100-030177 

RESERVED FOR AE STACK. 


# LOC 030200-03020J IS UNUSED 






RNDM 

030204 

041 

375 

033 

LX I H SEED4 

ML 

SUBROUTINE USED TO 

CEN- 

RNDM: A random number generator based on a technique by 


030207 

006 

010 


MVI B BD 

LKA IL KANDUn NUnbtK5 


Jim Parker appearing in The Computer Hobbyist” (VoL 1, 

LOOP 





No. 5). The routine returns only when a value between 0 and 

030211 

030212 

176 

007 



MOV A,M 

RLC 




10,000 decimal is sensed. 


030213 

007 



RLC 






030214 

007 



RLC 






030215 

2 56 



XOR M 






030216 

027 



RAL 






030217 

027 



RAL 






030220 

055 



DCR L 






030221 

055 



OCR L 






030222 

055 



DCR L 






030223 

176 



MOV A,M 






030224 

027 



RAL 






030225 

167 



MOV M,A 






030226 

054 



INR L 






030227 

176 



MOV A,M 






030230 

02 7 



RAL 






030231 

167 



MOV A,M 






030232 

054 



INR L 






030233 

176 



MOV A,M 






030234 

027 



RAL 






030235 

167 



MOV M,A 






030236 

054 



INR L 






030237 

176 



MOV A,M 






030240 

027 



RAL 






030241 

167 



MOV M,A 






030242 

005 



DCR B 






030243 

302 

211 

030 

JNZ LOOP 






030246 

052 

374 

033 

LHL SEED3 








February 1976 

Dr 

Dobb's 

Journal of Computer Calisthenics & Orthodontia Box 310, Menlo Park CA 94025 Page 29 

TAG 

ADDRESS 

11 

12 

13 

MNEMONIC 

COMMENTS 



030251 

17*4 



MOV A,H 




030252 

3**6 

077 


ANI 00111111B 




030254 

1 *4 7 



MOV H,A 




030255 

376 

047 


CPI 047 




030257 

312 

272 

030 

JZ CONTI 



C0NT2 

030262 

322 

204 

030 

JNC RNDM 




030265 

315 

044 

023 

CALL PSHAE 




030270 

077 



CMC 




03027 1 

311 



RET 



CONTI 

030272 

175 



MOV A,L 




030273 

376 

020 


CPI 020 




030275 

303 

262 

030 

JMP C0NT2 



TAB 

030300 

315 

071 

023 

CALL POPAE 

ML SUBROUTINE USED TO. PRO- 

TAB: This ML routine spaces over an amount equal to the 







DUCE TAB FUNCTION. 

value stored on the top of the AE stack. 


030303 

105 



MOV B,A 



LOOP 

03030*4 

076 

040 


MVI A ’SP* 




030306 

315 

026 

022 

CALL ASCOUT 




030311 

005 



DCR B 




030312 

302 

304 

030 

JNZ LOOP 




030315 

063 

063 

063 

3XINX SP 




030320 

063 

063 

063 

3XINX SP 




030323 

301 



POP B 




03032*1 

3*4 1 



POP H 




030325 

0*4 3 



INX H 




030326 

0*4 3 



INX H 




030327 

3** 5 



PUSH H 




030330 

305 



PUSH B 




030331 

073 

073 

073 

3XDCX SP 




03033*4 

073 

073 

073 

3XDCX SP 




030337 

311 



RET 



IMEMTEST 030340 

072 

367 

033 

LDA ASTRT(H) 

SUBROUTINE USED TO TFST FOR 

MEMTEST: A routine used to test for memory depletion. If 







MEMORY DEPLETION. 

array storage area overlaps the program area, an error is 


0303*43 

27** 



CMP H 


reported. 


0303**** 

312 

360 

030 

JZ CONT 




0303**7 

332 

360 

026 

JPC ERR 15 



END 

030352 

042 

354 

033 

SHL PRGEND 




030355 

311 



RET 




030356 

000 

000 


NOP’S 



CONT 

030360 

072 

366 

033 

LDA ASTRT(L) 




030363 

326 

000 


SUI 0 




030365 

275 



CMP L 




030366 

322 

352 

030 

JNC END 




030371 

303 

360 

026 

JMP ERR13 



f LOC 

03037*4-030377 

IS NOT USED. 



SIZE 

031000 

052 

354 

033 

LHL PRGEND 

ML SUBROUTIME USED TO DETER- 

SIZE: This ML routine computes the amount of memory being 

—— 

031003 

053 



DCX H 

MINE SIZE OF PROGRAM AND 

used and the amount left. 


03100*4 

104 



MOV B,H 

AMOUNT OF MEMORY REMAINING. 



031005 

115 



MOV C|H 




031006 

052 

376 

033 

LHL MEMEND 




031011 

Oil 



DAD B 




031012 

345 



PUSH H 




031013 

052 

366 

033 

LHL ASTRT 




031016 

104 



MOV B,H 




031017 

115 



MOV C,L 




031020 

052 

352 

033 

LHL PRGSTRT 




031023 

Oil 



DAD B 




03102*4 

301 



POP B 




031025 

315 

060 

031 

CALL DIVE 




031030 

315 

101 

022 

CALL IOUT 




031033 

076 

040 


MVI A 




031035 

357 



RST OUTPUT 




031036 

052 

366 

033 

LHL ASTRT 




0310i*l 

104 



MOV B,H 




0310**2 

115 



MOV C,L 




0310*43 

052 

354 

033 

LHL PRGEND 




0310**6 

053 



DCX H 




03101*7 

315 

060 

031 

CALL DIET 




031052 

315 

101 

022 

CALL IOUT 




031055 

327 



RST CRLF 




031056 

247 



ANA A 




031057 

311 



RET 



DiFr 

031060 

171 



MOV A,C 




031061 

225 



SUB L 




031062 

157 



MOV L,A 




031063 

170 



MOV A,B 




03106*4 

234 



SBB H 




031065 

147 



MOV H,A 




031066 

311 



tfET 



LST0 

031067 

052 

352 

033 

LHL PRGSTRT 

ML SUBROUTINE USED TO LIST 

LSTO, LSTl, and LST2: These three routines set up LSTSTRT 







ENTIRE BASIC PROGRAM. 

and LSTEND so that when LIST is called, only the required 


031072 

042 

304 

033 

SHL LSTSTRT 


lines will be listed. LSTO is called if the entire program is to be 


031075 

031100 

052 

042 

354 

306 

033 

033 

LHL PRGEND 

SHL LSTEND 


listed. LSTl is called to list only one line. LST2 sets up a listing 


031103 

247 



ANA A 


between two given lines. 


03110*4 

311 



RET 



LSTl 

031105 

315 

165 

031 

CALL FIND 

ML SUBROUTINE USED TO LIST 


~ 






ONE LINE. 



031110 

042 

304 

033 

SHL LSTSTRT 
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TAG 

ADDRESS 

U 

12 

13 

MNEMONIC 


031113 

043 



INX H 


031114 

043 



INX H 


031115 

076 

015 


MVI A *££* 

LOOP 

031117 

043 



INX H 


031120 

276 



CMP M 


031121 

302 

117 

031 

JNZ LOOP 


031124 

043 



INX H 


031125 

043 



INX H 


03112$ 

042 

306 

033 

SHL LSTEND 


031131 

247 



ANA A 


031132 

311 



RET 


031133 

000 



NOP 

LST2 

031134 

315 

165 

031 

CALL FIND 


031137 

043 



INX H 


031140 

043 



INX H 


031141 

076 

015 


MVI A *CR* 

LOOP 

031 143 

043 



INX H 


031144 

276 



CMP M 


031145 

302 

143 

031 

JNZ LOOP 


031150 

043 



INX H 


031151 

043 



INX H 


031152 

042 

306 

033 

SHL LSTEND 


031155 

315 

165 

031 

CALL FIND 


031160 

042 

304 

033 

SHL LSTEND 


031163 

247 



ANA A 


031164 

311 



RET 

FIND 

031165 

315 

071 

023 

CALL POPAE 


031170 

315 

154 

023 

CALL FINDLBL 


031173 

310 



RZ 


031174 

303 

330 

026 

JMP ERR7 

# LOC 

# 

031177-031277 IS UNUSED. 

» 

FN 

031300 

231 

310 


TST FNO •RN* 


031302 

122 

316 




031304 

330 

204 


RANDOM 


031306 

322 

300 


RTN 

FNO 

031310 

232 

330 


TST S17 *TB' 


031312 

124 

302 




031314 

132 

343 


CALL EXPR 


031316 

330 

300 


TAB 


031320 

322 

300 


RTN 

SBC 

031322 

231 

331 


TST S8B ’£jj' 


031324 

215 




031325 

322 

3 tO 


NLINE 


031327 

322 

375 


NXT 

S8B 

031331 

232 

210 


TST SB *»• 


031333 

244 





031334 

322 

360 


NLINE 


031336 

323 

034 


NXTX 

SM 

031340 

231 

351 


TST S14A 'JR 1 


031342 

215 




031343 

331 

067 


LISTO 


031345 

322 

213 


LST 


031347 

322 

375 


NXT 

S1AA 

031351 

132 

343 


CALL EXPR 


031353 

231 

366 


TST SUB 


031355 

254 





031356 

132 

343 


CALL EXPR 


031360 

331 

134 


LIST2 


031362 

322 

213 


LST 


031364 

032 

216 


JMP S8A 

SUB 

031366 

331 

105 


LIST1 


031370 

322 

213 


LST 


031372 

032 

216 


JMP S8A 


COMMENTS 


ML SUBROUTINE USED TO LIST 
BETWEEN TWO LINE NUMBERS. 


XL PROGRAM 

TAG ADDRESS U 12 13 MNEMONIC 


032000 32$ 053 

032002 322 3$0 

LNECLT 03200A 320 070 

032006 322 360 


INIT 

NLINE 

GETLINE 

NLINE 


TAC 

ADDRESS 

; n 

12 13 

MNEMONIC 


032010 

320 

265 

TSTL 


032012 

032 

022 

JMP DIR 


032014 

320 

360 

INSRT 


032016 

032 

004 

JMP LNECLT 

XEQ 

032020 

32 6 

131 

XINIT 

DIR 

032022 

232 

041 

TST SI 'LET' 


032024 

114 

105 324 



032027 

133 

310 

CALL AVTEST 


032031 

132 

340 

CALL EXPR1 


032033 

324 

147 

STORE 


032035 

322 

304 

DONE 


032037 

322 

375 

NXT 

SI 

032041 

232 

074 

TST S3 ’GO' 


032043 

107 

317 



032045 

232 

057 

TST S2 'TO' 


032047 

124 

317 



032051 

132 

343 

CALL EXPR 


032053 

322 

304 

DONE 


032055 

323 

224 

XFER 

S2 

032057 

232 

275 

TST S14 'SUB* 


032061 

123 

125 302 



032064 

132 

343 

CALL EXPR 


032066 

324 

100 

DONEX 


032070 

326 

027 

SAVE 


032072 

323 

224 

XFER 

S3 

032074 

232 

112 

TST S3A ’IF* 


032076 

111 

306 



032100 

132 

343 

CALL EXPR 


032102 

133 

114 

CALL RELOP 


032104 

132 

343 

CALL EXPR 


032106 

325 

151 

CMPR 


032110 

032 

022 

JMP DIR 

S3A 

032112 

233 

326 

TST S4A ’FOR* 


032114 

106 

117 322 



032117 

323 

324 

TSTV 


032121 

326 

363 

ERR 16 


032123 

132 

340 

CALL EXPR 


032125 

324 

147 

STORE 


032127 

226 

363 

TST ERR 


032131 

124 

317 



032133 

327 

305 

FOR 


032135 

132 

343 

CALL EXPR 


032137 

322 

304 

DONE 


032141 

322 

375 

NXT 

# LOC 

# 

032143-032147 IS UNUSED 

• 

S4 

032150 

232 

226 

TST S9 'PR* 


032152 

120 

322 


S5 

032154 

231 

322 

TST SBC 


032156 

242 




032157 

322 

322 

PRS 

S6 

032161 

232 

173 

TST S7A ',' 


032163 

254 




032164 

322 

342 

SPCZONE 

S7B 

032166 

232 

332 

TST S5A '£B' 


032170 

215 




032171 

322 

375 

NXT 

S7A 

032173 

232 

202 

TST S7 *}' 


032175 

273 




032176 

326 

044 

SPCONE 


032200 

032 

166 

JMP S7B 

S7 

032202 

322 

360 

NLINE 


032204 

322 

304 

DONE 


032206 

322 

375 

NXT 

SB 

032210 

132 

343 

CALL EXPR 


032212 

323 

125 

PRN 


032214 

032 

161 

JMP S6 

S8A 

032216 

322 

304 

DONE 


032220 

322 

375 

NXT 

# LOC 

032222-032225 IS UNUSED, 

1 

SS 

032226 

232 

251 

TST S12 'IN' 


032230 

111 

316 


S10 

032232 

133 

310 

CALL AVTEST 


032234 

323 

241 

INNUM 


032236 

324 

147 

STORE 


032240 

232 

245 

TST Sll 


032242 

254 




032243 

032 

232 

JMP S10 

Sll 

032245 

322 

304 

DONE 


032247 

322 

375 

NXT 

S12 

032251 

232 

264 

TST S13 'RET' 


032253 

122 

105 324 



032256 

326 

036 

DONE 


032260 

322 

304 

RSTR 


032262 

322 

375 

NXT 

S13 

032264 

233 

200 

TST S14 'END' 


032266 

105 

116 304 
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TAG 

ADDRESS 

11 

12 

13 

MNEMONIC 


032271 

322 

360 


NLINE 


032273 

323 

Oil 


FIN 

SIS 

032275 

232 

306 


TST SI5 ' LST 


032277 

114 

123 

324 



032302 

031 

340 


LST 


032304 

322 

375 


JMP 58A 

S15 

032306 

232 

317 


TST S16 'RUN 


032310 

122 

125 

316 



032313 

322 

304 


DONE 


032315 

032 

020 


JMP XEQ 

S16 

032317 

233 

101 


TST S17A ' NEI 


032321 

116 

105 

327 



032324 

322 

304 


DONE 


032326 

032 

000 


JMP STRT 

SJ7 

032330 

326 

34 7 


ERR 12 

S5A 

032332 

232 

154 


TST S5A 


032334' 

244 





032335 

323 

034 


NXTX 


032337 

000 



NOP 

EXPR1 

032340 

232 

343 


TST EXPR 


032342 

275 




EXPR 

032343 

232 

354 


TST Ej9 


032345 

255 





032346 

133 

003 


CALL TERM 


032350 

325 

133 


NEC 


032352 

032 

361 


JMP El 

Ej< 

032354 

232 

357 


TST E3 ' * 


032356 

253 





032357 

133 

003 


CALL TERM 

El 

032361 

232 

372 


TST E2 '+' 


032363 

253 





032364 

133 

003 


CALL TERM 


032366 

324 

200 


ADD 


032370 

032 

361 


JMP El 

E2 

032372 

233 

055 


TST E4 


032374 

255 





032375 

133 

003 


CALL TERM 


032377 

324 

216 


SUB 


033001 

032 

361 


JMP El 

TERM 

033003 

133 

027 


CALL FACT 

TJ» 

033005 

233 

016 


TST Tl '*■' 


033007 

252 





033010 

133 

027 


CALL FACT 


033012 

324 

240 


MULT 


033014 

033 

005 


JMP T0 

Tl 

033016 

233 

055 


TST T2 •/• 


033020 

257 





033021 

133 

027 


CALL FACT 


033023 

324 

362 


DIV 


033025 

033 

005 


JMP TJ» 

FACT 

033027 

330 

032 


TSTF 


033031 

033 

035 


JMP F4 


033033 

031 

300 


JMP FN 

F4 

033035 

327 

214 


TSTA 


033037 

033 

047 


JMP Fff 


03304 1 

133 

254 


CALL ARRAY 


033043 

324 

133 


IND 


033045 

322 

300 


RTN 

n 

033047 

323 

324 


TSTV 


033051 

033 

057 


JMP Fl 


033053 

324 

133 


IND 

T2IE4 

033055 

322 

300 


RTN 

FJ 

033057 

323 

351 


TSTN 


033061 

033 

065 


JMP F2 


033063 

322 

300 


RTN 

F2 

033065 

233 

077 


TST F3 '<' 


033067 

250 





033070 

132 

343 


CALL EXPR 


033072 

233 

077 


TST F3 ')' 


033074 

251 





033075 

322 

300 


RTN 

F3 

033077 

326 

352 


ERR13 

S17A 

033101 

232 

330 


TS1 SJ7 'SZE' 


033103 

123 

132 

305 



033106 

331 

000 


SIZE 


033110 

032 

216 


JMP S8A 


033112 

000 

000 


NOP'S 

RE LOP 

033114 

233 

123 


TST R0 '=' 


033116 

275 





033117 

325 

326 


LITO 


033121 

322 

300 


RTN 


033123 

233 

150 


TST R4 '<* 


033125 

274 





033126 

233 

135 


TST R1 *=' 


033130 

275 





03.1131 

32 5 

3.14 


L112 


033133 

322 

300 


HI N 

R1 

033135 

233 

144 


TST KJ V 


033137 

276 





TAG ADDRESS U 12 13 MNEMONIC 



033140 

325 

337 

LIT3 


033142 

322 

300 

H1N 

R3 

033144 

32 5 

331 

LIT1 


033146 

322 

300 

RTN 

R4 

033150 

232 

330 

TST SIT *>' 


033152 

276 




033153 

233 

162 

TST R5 '=' 


033155 

275 




033156 

325 

34 5 

LIT3 


033160 

322 

300 

RTN 

R5 

033162 

233 

171 

TST R6 '<* 


033164 

274 




033165 

325 

337 

LIT3 


033167 

322 

300 

RTN 

R6 

033171 

325 

342 

LIT4 


033173 

322 

300 

RTN 


033175 

000 

000 000 

NOP'S 

S14 

033200 

232 

275 

TST S18 'DIM* 


033202 

104 

111 313 


Z* 

033205 

323 

324 

TSTV 


033207 

326 

352 

ERR 13 


033211 

233 

077 

TST F3 


033213 

250 




033214 

132 

343 

CALL EXPR 


033216 

233 

241 

TS1 Z1 V 


033220 

254 




033221 

132 

343 

CALL EXPR 


033223 

233 

077 

TST F3 . *)* 


033225 

251 




033226 

327 

032 

DIM2 

Z3 

033230 

233 

235 

TST 22 *,« 


033232 

254 




033233 

033 

205 

JMP Z0 

22 

033235 

322 

304 

DONE 


033237 

322 

373 

NXT 

Z1 

033241 

233 

077 

TST F3 ')• 


033243 

251 




033244 

327 

066 

DIM1 


033246 

033 

230 

JMP ZJ 


033250 

000 

000 000 

NOP'S 


033253 

000 


NOP 

ARRAY 

033254 

233 

077 

TST F3 '(» 


033256 

250 




033257 

132 

343 

CALL EXPR 


033261 

233 

275 

TST X0 ',' 


033263 

254 




033264 

132 

343 

CALL EXPR 


033266 

233 

077 

TST FJ 4 ')* 


033270 

251 




033271 

327 

166 

ARRAY2 


033273 

322 

300 

RTN 


033275 

233 

07 7 

TST FJ •)' 

033277 

251 




033300 

327 

146 

ARRAY 1 


033302 

322 

300 

RTN 

LSTSTRT 

033304 

000 

034 


LSTEND 

033306 

036 

037 


AVTEST 

033310 

327 

214 

TSTA 


033312 

033 

320 

JMP V0 


033314 

133 

254 

CALL ARRAY 


033316 

322 

300 

RTN 

V0 

033320 

323 

324 

TSTV 

033322 

326 

344 

ERR 11 


033324 

322 

300 

RTN 

S4A 

033326 

232 

150 

TST S4 'NXT' 


033330 

116 

130 324 



033333 

323 

324 

TSTV 


033335 

326 

352 

ERR 14 


033337 

327 

324 

NEXT 


033341 

324 

147 

STORE 


033343 

322 

304 

DONE 


033345 

322 

375 

NXT 


033347 

OCO 


NOP 

CURLPL 

033350 

000 

000 


PRGSTKT 

033352 

000 

034 


PRGLND 

033354 

036 

037 


COUNT 

033356 

001 



CASE 

033357 

040 



ZONE 

033360 

004 



AELVL 

033361 

100 030 


INDX 

033363 

001 



SBRLVL 

033364 

164 

024 


ASTKT 

033366 

377 

057 


ATEMP 

033370 

000 

000 


SEED1 

033372 

150 



SEED2 

033373 

205 



SEED3 

033374 

341 



SEED4 

033375 

336 



MEND 

033376 

377 

037 
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jlffl day's COMPUTERS THAT TALK-UPDATE 


DAZE 

[reprinted from PCC VoL 4, No. 5] 

COMPUTERS THAT TALK 

Wouldn’t it he nice if your computer could speak to you in English, French, Ger¬ 
man, or Esperanto like the computer oil the starship Enterprise? Then it could say things 
like, “Wake up, sir” or “Get with it, turkey” (depending on what kind of mood it was in) 
or maybe, “The lime is six o’clock, the temperature is 46 degrees, and tomorrow is your 
wife’s birthday.” Most people have prnhahly assumed that some day, perhaps by the year 
2000, talking computers will be a reality instead of simply science fiction. Well, hang onto 
your prognostications, people, because that day is today! 

In recent years many people have been working on voice output devices for com¬ 
puters. Some of these devices have been electro-mechanical analogs of the human vocal 
tract, similar in principle to the Voder exhibited at the New York World’s Fair in 1939. 
Others have used electronic waveform generators to synthesize human speech sounds. Of 
these, the Votrax synthesizer can truly be said to represent a significant breakthrough with 
rcs|>ect to voice quality, case of programming, and cost. 

Smaller than a breadbox and priced at about $3500 for the basic unit, Votrax is 
produced by the Vocal Interface Division of the Federal Screw. Works (500 Stephenson 
Highway, Troy Ml 18084; (313) 588-2050). Any computer capable of outputting a 
string of ASCII code to a terminal can be used to control Votrax. As an output device, 
Votrax can be used alone or in conjunction with an ordinary TTY, using embedded 
ASCII control codes and simple logic to switch voice strings to Votrax, and print strings to 
the TTY, TVT, or other conventional terminal. 

Programming Votrax is a snap. Using BASIC, FORTRAN, APL, PL/1, or just about 
any other programming language, it’s easy to convert ordinary English (or other natural 
language) into voice strings for Votrax. The best quality of vocal output is obtained by 
using a dictionary lookup technique to substitute a string of phoneme codes for each 
English word. Votrax responds to ASCII codes for 63 different phonemes (basic speech 
sounds) and each phoneme can have one of four levels of inflection. 

If perfect voice quality is not essential and random-access file space is not available 
for a large dictionary, an algorithm can be used to convert English words to phoneme 
codes. Such an algorithm, developed hv Bell Telephone Laboratories, is said to work 
almost as well as dictionary lookup. An unpronounceable string such as “PQP-8” can be 
spelled out phonetically as though written “pec dee pee dash ate,” and the number 10.6 
can he rendered as “ten jioint six” by means of a simple subroutine. Pauses can be 
inserted automatically in response to punctuation and paragraphing. 

Maybe you arc wondering whether anyone has actually used Votrax and, if so, how 
did they like it? The answer to both questions is yes. People are using Votrax and they 
like it a lot. For example, the Coast Community College District in Costa Mesa, California, 
is using Votrax for computer-aided instruction and also in an on-line student information 
system. Votrax was cho .cn in preference to other audio response units not only because it 
is much less expensive hut also because it is ideal for a wide range of applications, the 
size of its vocabulary is unlimited, and it functions well in a real-time environment. In the 
student information system application, Touch-Tone telephones are used as “terminals.” 
Although this limits the user to numeric input, it would be hard to find a cheaper or more 
readily available 1/0 device. Several extensions to the district’s present use of V otrax are 
being developed, such as a voice-output interface for their on-line budget svstem. allowing 
administrators to inquire aliout specific accounts and receive immediate vocal replies. 

David Clements, senior programmcr/analysl for the district s student information system, 
reports that he is amazed at the results achieved with Votrax and believes that synthesized 
voice output will lieeome. a widely used medium in the near future. 

Another application of Votrax is as an aid to blind programmers. In the Homer 
system, written in FORTRAN for a CDC 6500 at Michigan State University, Votrax is 
used to echo each line input from a conventional terminal. It is also used to deliver 
FORTRAN diagnostics and as a tool in the editing of source program files. 

Operating in conjunction with an optical page reader, Votrax can be used to convert 
printed matter, such as books, magazines, and newspapers, into audible form. If desired, 
the output from Votrax can be tape recorded for distribution to the blind. 

These are but a few of the uses to which voice output can be put, and it appears 
likely that voice output will soon become a familiar feature of many computer systems. 
Maybe yours will be one of them. 

(Also sec “Talking Calculator” in November 1975 PCC [Vol. 4, No. 3, p. 9].) 


Jim Day had an article in the most recent issue of PCC discussing 
the use of a Votrax machine to allow a computer to synthesize 
speech [article is reprinted, herein]. In the article, he indicated 
that the machine, essentially a solid-state phoneme generator, 
was priced at about $3500 for a basic system ... a bit high for 
most hobbyists’ budget. [Phonemes are the basic components 
that make up spoken words.] 

Well, we just finished talking to the west coast rep for 
Votrax for about an hour and a half, and have some exciting 
possibilities to report! 

Votrax is currently selling relatively few of their systems. 

It would be easy for the computer hobbyist community to 
significantly increase their sales (and, presumably, thereby drive 
the price per unit significantly downward). And, the rep didn’t 
even know the hobbyist market existed; he does now. 

First of all, the price that Jim quoted was for a turnkey 
system; one that includes two 25-pin interconnect boards, an 
80-byte buffer for the incoming phoneme codes, an amplifier, 
and a power supply Such a configuration is usually expected 
and demanded by the commerical and industrial users. How¬ 
ever, it’s a different matter with computer hobbyists. Hobbyists 
are accustomed to using breadboarding, can supply their own 
buffering via their system’s memory, invariably have the ability 
to input to a hi fi amp, and usually can find super-cheap power 
supplies. 

Assuming this, all that one really needs to purchase are 
the four phoneme generator boards, and have access to the 
interface engineering specifications and schematics. These are 
available for under $2K in small quantities; $1800 @ in groups 
of ten, and $1600 @ in groups of fifty. 

Would you rather have a $1600 hardcopy device or 
the ability to generate English speech, including inflection? 

Since the Votrax equipment is based on phoneme generation, 
the vocabulary is essentially unlimited. Further, since the 
generators are entirely electronic, the equipment has much 
greater reliability than electro-mechanical equipment. Also, the 
Votrax equipment and circuitry has been in the field for about 
half a decade, now, and is thoroughly debugged. 

If you would like for Votrax equipment to become 
available to the hobbyist community: 

(1) Write to John McDaniel, Votrax, 4340 Campus Dr., 
No. 212 Newport Beach, Ca. 92660; tell him that you would 
like for your computer to be able to talk to you, and indicate 
how much you would be willing to pay for that facility. Give 
him correspondence to support him when he approaches Votrax 
management. Make him and them aware of their untapped 
potential market for stripped-down systems in the hobbyist 
community. 

(2) Tell the owners of your local computer store 
about Votrax and encourage them to contact Mr. McDaniel. 
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A BIT OF BLUE SKYING 

Bob, February 19, 1976 

By all means keep up the Calisthenics & 
Orthodontia. But I suspect that as Tiny BASIC 
matures it will acquire a full set of canines, bicuspids, 
and molars. As the price of main memory continues 
to drop, the need for a minimal BASIC will assume 
less importance and the emphasis will shift to better 
performance and convenience. Still, IL is a good tool 
for those who may want to experiment with variants 
of BASIC or some other language. As unlikely as it 
may seem, I think that by 1980 most hobbyists will 
be using a subset of PL/1.1 also preduct that the 
1980 hobbyist will own a computer system the size 
of a breadbox and comprising a 16-bit CPU, 25 6K 
bytes of main memory, 8M byte floppy disc, dual 
tape cassettes, full ASCII keyboard, CRT display, 
modem, and non-impact printer (all in one box). The 
whole thing will sell (assembled) for $695 at Sears 
and will have the computing power of an IBM 370. 
Last, but not least, the CPU chip will be designed 
expressly for the hobbyist, not for some pedestrian 
application such as traffic signal control. 

Jim Day 17042 Gunther St 

Granada Hills CA 91344 


Dear Bob, February 4, 1976 

Thank you for your note and interest. Our 
system is growing by small leaps and bounds. We 
have an Altair 8800 with the Processor Tech, mother 
board. We also have the following items: 

Qty Description 


1 

VLCT (octal loader) 

Altair 

1 

PIO 

Altair 

1 

256 byte static RAM board 

Altair 

2 

4K RAM boards 

Godbout 

3 

4K RAM boards 

Proc. Tech. 

1 

3 P + S 

Proc. Tech. 

1 

wire wrap prototype board 

TCH 

1 

cassette interface 

TCH 

1 

VDM 

Proc. Tech. 

1 

Real time clock and VI 

IMS 

1 

ASR-33 (10 cps) 

Teletype 

1 

Silent 700 (30 cps) 

TI 

1 

2K ROM board 

Proc. Tech. 


We are building a version of the TCH graphics 


interactive display with direct Altair plus in boards 
(double-sided). 

We are also ordering the Processor Tech, dual 
cassette drive, controller and PTCOS. 

We have several interactive editors, assemblers, 
monitors, and cross assemblers. We are currently 
experimenting with minimal editors and assemblers 
and have a strong desire to put together a micro- 
BASIC (Tiny BASIC). The editor package looks like 
it will be around 510-512 bytes and the same for a 
“mini-assembler.” We are also looking for 4K, 8K, 
and 12K BASICs which are public. 

We are hoping to eventually acquire a TV 
Dazzler and a floppy disc to extend our system. 
Future desires also include the IMS shared processor/ 
memory and an additional CPU board in addition to 
12K-16K more low power status RAM memory. 

Who knows what else the future has in store? 

We are strongly interested in developing soft¬ 
ware (for the Altair and other micro-processors) 
which can be used for instruction and instructional 
support in the school media center. 

Our research interests vary considerably here 
so we also will be running some basic human learn¬ 
ing experiments under processor control. We have 
been involved in research in CAI and computer- 
managed instruction for about 9 years here. We have 
PLANIT, COURSEWRITER, P1CLS, PLATO 
(TUTOR), and BASIC available and a wide range of 
instructional programs for these languages. 

Franz Frederick 112 Education Big 

Associate Professor Purdue University 

W. Lafayette IN 47907 

Franz, We would be very interested in publishing the 
source code and documentation (user and implemen¬ 
tation details) for the “tiny” editors and assemblers 
you are implementing. Any chance of your forward¬ 
ing copies, once they are up and running? -JCW, Jr 
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TBX MODS FOR A SWTP TVT-2 


TINY BASIC AVAILABLE FOR THE 6800 


Dear Dennis and all TB people, 

First of all, thanks to Dick Whipple and John 
Arnold for a great job they have done on TB, and 
for making their program available. Many hobbyists, 
including myself, don’t have the skill or time to write 
anything as complex as an interpreter. 

TBX is working and programming is now FUN. 

It took about six hours to put TBX on a cassette. 
Loading TB from TP (tiny print) is a severe strain 
on the eyes. 

A listing of the I/O routines for my Altair/TVT-2 
system is enclosed. An instruction is encluded in the 
Entry Routine to turn on the TVT cursor and initiate 
a Home Up/Erase Frame. In the Input routine the 
code for ESC should be 033; otherwise a rubout 
(backspace in TBX) will give a system restart. The 
basic Altair executes a RST 7 if the keyboard is tied 
directly to the interrupt bus. I had to change the in¬ 
struction at 000070 to 311. No harmful effects so far. 


000 076 004 

MVI A 

Turn on cursor on 

002 323 002 

OUT 

TVT & initiate 

004 061 377 000LXI SP 

Home up/Erase fr. 

007 303 254 021JMP 

TBX entry point 

020 076 012 

MVI A 


022 357 

RST 

Output LF 

023 076 015 

MVI A 


025 357 

RST 

Output CR 

026 311 

RET 


030 373 

El 


031 166 

HLT 

Wait for KBD entry 

032 333 001 

IN 

Input KBD charctr 

034 346 177 

ANI 

Mask parity bit 

036 376 033 

CPI 

“ESC” 

040 312 000 

000JZ 

System entry 

043 357 

RST 

Echo character 

044 311 

RET 


050 365 

PUSH PSW 

Save registers & flags 

051 323 001 

OUT 

Output character to TVT 

053 333 002 

IN 

Writ for “data ac¬ 

055 037 

RAR 

cepted” signal 

056 322 053 

000JNC 

from TVT 

061 361 

POP PSW 

Restore register & 

062 311 

RET 

flags 

070 311 

RET 

Keyboard interrupt 


PORT ASSIGNMENTS: 

IN 001 ASCII keyboard input 
OUT 001 Character output to TVT 
IN 002 “Data accepted” from TVT 
OUT 002 Cursor control to TVT 


A version of Tiny BASIC has been developed for the Motorola 
and AMI 6800. A tape and instruction manual for it are 
available for $5 from: 

Tim Pittman 
Box 23189 
San Jose CA 95153 
(408) 578-4944 

We understand that the source code will not be made available, 
however, we expect that Tom will back his “product” . . . 
and the price is right. 

We would be interested in hearing of the joys and/or 
woes incurred by those who purchase Tom’s Tiny BASIC. 



BYTE SWAP 

We are experimenting with offering a “Want Ad” section. We 
will continue to do it as long as we can afford it (in terms of 
staff time and printing costs). Note: the charge for running an 
ad will undoubtedly increase as our circulation (and printing 
costs) increases. 

Please follow these instructions in submitting ads. Ads received in 
other than this form cannot be accepted, and will be returned to the 
sender. 

1. Type the ad, with a blank space between each line, in lines no 
more than 50 character positions in length. 

2. Include at least your name and address as part of the ad. 

"Blind" ads will not be accepted. 

3. Compute the charge on the basis of $1 per line or partial line, 
per issue. 

4. Forward the typed copy and a check or money order payable 
to "PCC," to: DDJ Byte Swap, PCC, Box 310, Menlo Park CA 94025. 
Do not send cash. Your cancelled check is your receipt. Payment 
must accompany the ad. 

aflaaaa BaflgQQgflQflflaflflfloaflaflaflflflOBQOooQOQGooQo 
SAVE MY MARRIAGE! Buy my new assembled IMSAI 8080, loaded 
22 slot mother board, 8k Ram, regular price, $1835.00. Will sell to 
highest bidder above $1700.00. Also, IMSAI 8080 kit, still in box, 
large mother board, regular price $578.00. Will sell to highest bidder 
above $547.00. Send bids to: Eric Stewart, 664 Via Alamo, San 
Lorenzo CA 94580. 


I am looking forward to an annotated source 
code listing for TBS; like to do some tinkering. 
Floating point and math functions would also be nice 
to have. Dr Suding’s scientific calculator interface 
looks good. However, it’s only available through 
MiniMicroMart and doing business with them has 
been a frustrating experience. 

When deciding on the future of the newsletter 
keep in mind that hardware is available and getting 
cheaper. Software has been a big problem and prob¬ 
ably will be for some time to come (unless you can 
afford to pay for it). The newsletter is a step in the 
right direction to solve this problem. Please don’t 
stop after three issues. 
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Adolph Stumpf 


5639-A Ute 
Glendale AZ 85307 
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A REFERENCE JOURNAL FOR USERS 

OF SMALL COMPUTERS 

In This Issue. . . 


Denver Tiny BASIC, including 1-D arrays — user & implementation details, and source code 

A Breakpoint Routine for MOS Technology 6502’s 
Keyboard Loader for Octal Code via the TVT-2 
Program Repository & Tape Duplication Facility 


Programming 


Division remainder & Multiplication overflow 

Proposed Functions for Tiny BASIC 

Notes to Tiny BASIC Implementers 

Tiny BASIC Suggestions & Mark-8 Needs 

Parser Saves Pain & Another BASIC Bombout 

6800 Tiny BASIC for $5 

APL’s Appeal 

Signetics 2650 Tiny BASIC 

Music & Computers 


Mods to Dompier’s Music Program 


Computer Process for Rapid Production of Musical Compositions (big machine stuff) 

Computer Speech & Computer Sensing 


It Can Talk . . . But, Can It Sing? 

Touchless Sensing for Under $100 

Bugs & Fixes 


Altair Hardware Glitches & Fixes 

Grammar Glitch in Extendable Tiny BASIC 

SPHERE-ical Complaint 

Quik Bits 


Seattle Computer Hobbyists Unite 

Diablo Printers 

New Jersey Computer Festival 

Microcomputer APL 

Southern California Computer Society 

8080 Systems for the Wealthy 

16K BASIC for the 8008 (public domain) 

Monterey Computer Phreaques 

Future Stuff 


Where Do We Go From Here? 

Our ‘Want’ List 

A Public Interest Communications Satellite 

Miscellaneous & Nitty Gritty Stuff 


Signetics 2650 Kit for Under $200 — includes 1K monitor ROM and 512 bytes of RAM 

Submitting Items for Publication 

PCC Bookstore and Byte Swap (ads) 
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Where do we go from here? 


To date, Tiny BASIC has dominated the issues of this Journal. Perhaps that is as it should be in view of 
the fact that Dr. Dobb’s Journal initially came into being for the single purpose of discussing T.B. There will con¬ 
tinue to be considerable information about T.B. carried in at least the next several issues. We are particularly 
interested in publishing implementations on microprocessors other than the 8080. 

However, we do not mean to be “pushing” Tiny BASIC, or even full-blown BASIC. We do not consider it 
to be a particularly desirable language for many - perhaps most - purposes (see “A Critical Look at BASIC,” 
written by the originator of Tiny BASIC, in the preceeding issue). It’s simply “better than nothing,” and some¬ 
times even better than an assembler. It was fun to do, but it is now time to begin moving on to more worthy 
and useful projects and languages. 

We have already begun to move. In the area of systems software, we expect to publish details of assemblers, 
debuggers, and an already-up-and-running floppy disc operating system within the next several months. In some 
cases, we will present complete implementation and user documentation, including annotated source code. In 
other cases, we will publish partial details of such systems, and directions on how they may be purchased for 
little more than the cost of their reproduction. 

By the Fall, we expect to publish some exciting graphics software, and some more music software. All of 
this will be available at very low cost and/or will be in the public domain. 

We will continue the active pursuit of “realizable fantasies.” By this, we mean projects that we feel are 
1) within the bounds of current technology and knowledge, 2) can be implemented by members of the hobbyist 
community, and 3) can, for the most part, be realized within the next 24 months, or less. 

This specifically includes projects concerned with computer music, real-time video graphics, computer speech, 
and unusual input techniques (e.g. the “Touchless Sensing...” article on page 13). 

We will also explore more esoteric uses of home computers such as residential environmental control, elec¬ 
tronic phone books, biofeedback, computer animation, community memory and shared memory, computer 
networking via radio and telephone, electronic newspapers, and who knows what else. 

If no other means is available, we will pursue these projects in the same manner as was so successful with 
the Tiny BASIC project: 1) We will propose a project in broad outline form. 2) That will be followed with 
a moderately detailed outline of how it might be accomplished. 3) Finally, we will publish information 
concerning the implementations, improvements, and variations that result. 

For simple projects, Steps 1 and 2 may require only two articles. For more exotic ventures, it will take 
a number of articles to get through the outline and design stages. 

You are part of this. The Journal staff and hangers-on will propose and detail some of these projects. 
However, the Journal is primarily a communication medium and intellectual rabble-rouser. As often as not, 
the proposals and designs and certainly the implementations will come from you. 

You. . . the hobbyist / inventor / dreamer. Send us your ideas, your creations, your problems, and your 
solutions, so that we may share them with everyone. The more we all share; the more we all gain. 

Send us your realizable fantasies. 


March, 1976 
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C uik bits 


SEATTLE COMPUTER HOBBYISTS UNITE 

The Northwest Computer Club held its first meeting on 
January 12th. The Seattle area almost had three clubs start, 
independently of one another, in January. Fortunately, however, 
their organizers discovered each other and joined forces. 

They meet at 7 p.m. on the first and third Tuesday of 
each month, usually at the Pacific Science Center. Their first 
newsletter was published in March. The Editor is Bob Wallace, 
Box 5415, Seattle WA 98105, (206) 524-6359 (11 a.m. - 3 p.m.). 
Phone him for subscription information, or write: Northwest 
Computer Club, Pacific Science Center Foundation, 200 - 2 Ave 
N., Seattle WA 98109. 


NEW JERSEY COMPUTER FESTIVAL 

Over 2K hobbyists are expected to attend the May 2nd 
Amateur Computer Convention in Trenton, NJ. The gathering, 
called the “Trenton Computer Festival,” will include exhibits, 
technical talks, panel discussions, and (perhaps most important) 
ample opportunity for personal interchange. It will be held at 
Trenton State College. 

It is sponsored by the TSC Digital Computer Society, and 
the Amateur Computer Group of New Jersey. For details, con¬ 
tact: Prof. Sol Libes, Union County Technical, Scotch Plains NJ 
07076, (201) 889-2000; or Dr Allen Katz, Trenton State College, 
Trenton NJ 08625, (609) 771-2487. 


MICROCOMPUTER APL 

MAPLE stands for Microcomputer APL Enthusiasts, a 
group interested in promoting the development of APL for 
micros. APL is an exotic computer language designed by Ken 
Iverson in the early 1960’s. It uses a highly compact notation 
and contains a number of quite powerful operations. 

MAPLE is interested in serving as the focus for design and 
implementation of microprocessor APL interpreters, firmware to 
support the APL character set on TVT’s and matrix printers, 
etc. Those interested in working on such projects should contact 
John Sikorski, Box 574, Northwestern University Medical 
School, 303 E. Chicago Ave, Chicago IL 60611. 


TINY BASIC IN SOUTHERN CALIFORNIA 

We hear that a version of Tiny BASIC has been implement¬ 
ed for the MOS Technology 6502, and has been seen scurrying 
about at the Southern California Computer Society. Anyone 
know if there is truth in that rumor? If so, wanna place it in 
the public domain via publication in Dr Dobb’s Journal'! We’d be 
delighted to do so. 


sees GROWS AND GROWS 

The Southern California Computer Society has told us 
that they have about 3000 members, and are currently process¬ 
ing about 1500 new membership applications. 


DIABLO PRINTERS FOR OEMers 

For those who are into daisy-wheel printers, Diablo is hi- 
balling their printer developments. The HyType II is in production, 
and is rumored to be a considerable improvement over the HyType I 
OEMers (Original Equipment Manufacturers) can buy ’em for 
about $1,335 in single-unit quantities. With appropriate stationery, 
you or your distributer probably could do so, also. There is cur¬ 
rently a 3-4 month backlog on orders. Diablo has also announced 
45- and 55-CPS printers, and more options: bottom paper feed, 
end-of-ribbon and paper-out signals, 8-bit parallel microprocessor 
and RS-232 interfaces, more type faces and ribbon options, etc. 
Diablo is located at 24500 Industrial Blvd, Hayward CA 94545. 


8080 SYSTEMS FOR THE WELL-TO-DO 

If you are a wealthy software phreaque, and not much into 
hardwaring, Microkit, Inc., is making a complete 8080 development 
system for $3,850. It includes an 8K memory, alphanumeric CRT 
display, ASCII keyboard, two cassette tape units, and software 
including a monitor, editor, assembler, and debugger. The tape 
units use a proprietary recording technique to squeeze 2000 BPS 
out of audio cassettes with “reliability comparable to digital 
cassettes.” 

They are located at 2180 Colorado Ave, Santa Monica CA 
90404; 213-828-8539. 


16K BASIC FOR THE 8008 

The following publication is available for $4.25 from 
NTIS: National Technical Information Service 

5285 Port Royal Rd, Springfield VA 22161 

No. PB-235 874-Weaver, A.C., M.H. Tindall, and R. L. 
Danielson, A Basic Language Interpreter for the Intel 8008 
Microprocessor. 52 pp. 

A BASIC language interpreter has been designed for use in 
a microprocessor environment. This report discussed the develop¬ 
ment of 1) an elaborate text editor and 2) a table-driven inter¬ 
preter. The entire system, including text editor, interpreter, user 
test buffer, and full floating point arithmetic routines fits in 
16K words. 


MONTEREY CPU’S- 
COMPUTER PHREAQUES UNITED 

A new computer “club” is starting up in the Monterey/ 
Carmel/Seaside/Pacific Grove area of California, named “CPU.” 
They have about 15 or 20 members [as of April 8th; things 
change fast]. For more data, contact: 

Mac McCormick 
2090 Cross St. 

Seaside CA 93955 
(408) 393-2422 


Page 4 Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025_ March, 1976 


59 



Letters 

[LETTER WRITERS: Please, please, please include the date and 
your address in your letters. Also, note that we assume we can 
publish anything sent to us, unless there is an explicit indication 
to the contrary. If you do not want something published, e.g., 
your phone number; be sure to so state.] 

FREEKSHOW DELIGHT 

People’s Compusymbolator Conglomeration: 30Jan76 

Re: Tiny BASIC, of course! 

The whole project is a wonderful idea. I favor interactive 
languages, thus, highly value the IL approach for the multi- 
linguic reason mentioned by William Catteg. Of course, for step 
1, I’ll keep it simple (stupid) by concentrating on TBASIC 
(TASIC? TINIC?). What’s more basic than basic BASIC? Prime? 
Simple? Backbone? (OSTEOBASIC?) Keel? Plain? With that end 
in view, I hope Dennis A., Bernard G., and Happy L. will find 
my check and send me the journal. 

I haven’t had time to contemplate every aspect completely, 
’though the letters in PCC Vol. 4, No. 2 & 3 are elucidating. 

The only suggestion I have that would make a useful feature 
available at low added overhead: a way to get at the remainder 
from division, & overflow from multiplication (comparable to 
access to an MQ register on the hardware level). Use a reserved 
word? (REM, for instance~not a function, rather like a variable 
containing the remainder or overflow from the last or Operation.) 
No-K.I.S.S. A reserved variable (R)? No--don’t deplete our 
already small collection of variables. Alright, then, a symbol %, 
perhaps. I’ve included an example of how I think a dialog using 
it might look. 

A direct or “top-level” dialog: 

System in italics. Me in boldface. 

? PRINT 35/3 cr 
... 11 

? PRINT % cr 

... 2 

? PRINT % + 1, 2 + % cr 
... 3.. . 4 
? PRINT 2*3, % cr 
... 6.. . 0 

? PRINT 9/5, %, %/3, %, %*2, %, %*7, % cr 
1 4 1 1 2 0 0 0 

? PRINT 3*10923, %, 4*8192, % cr 
1 10 1 

? REM- t f cr 

1234 

? REM- VALUE OF THESE ARE MATHWISE = 1*32768 cr 

1234 (Syntax error message-TBASIC doesn’t have a REM) 

Intuitively, doesn’t seem to me to need very much extra 
interpreter overhead. Might be able to use it for borrow/carry of 
the -, &, + operations too. It seems like a good compromise 
feature. 

Pax & lux, 

Chris Johansen 176 Grove St 

Freekshow Electron works Auburndale MA 02166 



Chris, I dig you on the remainder problem. In regular BASIC, 
we do it like this 

LET Q = INT(A/B) 

LET R = A - Q*B 

Or, in Tiny BASIC, using integer arithmetic, 

LET Q = A/B 
LET R = A - Q*B 

If you want only the remainder, do it like this: 

LET R = A - (A/B)*B 

In some BASICs there is a MOD function, which computes 
remainder. 

LET R = MOD(A,B) 

Do, do, do tell me about Freekshow Electronworks!!! One of 
the next moves for PCC will be slowly into electronic music 
and art and biofeedback and . . . computer sound and light 
environments, . . . -Bob Albrecht 

PROPOSED FUNCTIONS FOR TINY BASIC 
Tiny BASIC a la Dragon 

To make things easy for tiny kids and old dragons, I 
would like to see the Tiny BASIC RND function look like this: 

RND(a,b) gives random integer from a to b, inclusive 
RND( 1,100) gives random integer from 1 to 100, inclusive 
RND(100,1) gives random integer from 1 to 100, inclusive 
And, of course, a and b can be expressions. 

Still thinking about things for kids, here are some 
addititional functions I’d like to see . . . (someday). 

SGN(a) 1 if a > 0, 0 if a=0, ~\ if a < 0 
TAB (a) Tab to print position a 
MOD(a,b) Remainder on dividing a by b 
GCD(a,b) Greatest Common Divisor of a and b 
XCH(a,b) Exchange a and b 
MAX(a,b) Maximum of a,b 
MIN(a,b) Minimum of a,b 
LPF(a) Least Prime Factor of a 
GPF(a) Greatest Prime Factor of a 

Or should we scrap BASIC and start over? 

The Dragon PCC 

Box 310 

Menlo Park CA 94025 
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MODS TO DOMPIER’S MUSIC PROGRAM 
& ALTAIR HARDWARE GLITCHES/FIXES 

Dear Editor, March 30, 1976 

I am sending you my modifications to Steve Dompier’s 
Altair music program [see Dr Dobb’s Journal, Vol. 1, No. 2, 
p. 6]. Using this program you can store several tunes in mem¬ 
ory and select which one will be played by using the sense 
switches. Each tune is stored with its first note at HI adr. 
“XXX,” and LO adr. “000.” (“XXX” is any HI address avail¬ 
able in memory.) Each tune will be played when its HI adr. 
is selected by the sense switches. If a new address is selected, 
the first tune will complete, and then the next one will start. 

Perhaps some of your readers would also be interested in 
some of the problems I had in de-bugging my Altair. The fix 
for the RAM board has been published before, but it is still 
not in the Altair manual. 

On the 4K dynamic RAM board, connect pin 10 of IC 
“T” to ground (pin 11) instead of to plus 5 volts. If IC “T” is 
already installed you must remove it to get at the PC board 
land that must be removed. Also, connect a .01 MFD capacitor 
from pin 5 of IC “T” to ground. These changes stabilize the 
operation of the protect flip-flop. 

On the CPU board, some of the capacitors being supplied 
for C5 in the clock circuit are off tolerance, causing the 02 
clock pulse to be too wide. This prevents the CPU from writing 
into memory correctly. (In my case, the result of any arith¬ 
metic operation was octal 377 written into memory.) The Mits 
engineer I talked to suggested trying other lOOpf capacitors for 
C5.1 didn’t have any so I instead changed R42 to 5.6K and 
this worked fine. 

If your kit comes with a little blue capacitor for C5 you 
should be on the lookout for this problem. 

Bob Wilcox 902 N. Washington 

Owosso MI 48867 


DOMPIER’S ALTAIR MUSIC PROGRAM 
MODIFIED 


ADR 

DATA 

000 

333 

001 

377 

002 

147 

003 

056 

004 

000 

005 

176 

006 

376 

007 

377 

010 

312 

Oil 

000 

012 

000 

013 

026 

014 

XXX (Tempo: higher = slower) 

015 

005 

016 

302 

017 

022 

020 

000 

021 

106 

022 

015 

023 

302 

024 

015 

025 

000 

026 

025 

027 

302 

030 

015 

031 

000 

032 

043 

032 

303 

033 

303 

034 

005 

035 

000 


GRAMMAR GLITCH IN 
EXTENDABLE TINY BASIC SPECS 

Dear PCC, 

In the Nov., ’75 issue of PCC [reprinted in Dr. Dobb’s 
Journal, Vol. 1, No. 1, p. 10], John Rible’s extendable Tiny 
BASIC seems to have an error in its grammar. The entity 
<iline> does not appear in the righthand side of any rule. 

This would seem to mean that there is no way to utilize this 
rule. To correct this is a manner which will follow the author’s 
intent, I would recommend changing the rule 
<program> : :=<pline> 
to 

<program> : :=<pline> | <iline> 

Thanks for your attention. 

Donald D. Hartley 3415 NE Manchester 

Corvallis OR 97330 


Dear Sir, March 26, 1976 

I ordered a system 3 assembled from SPHERE in 
September 1975 during their introductory offer period. Until 
now, almost 180 days after I sent the check, I have not yet 
received the system. I already wrote them another nasty letter 
a few days ago. If I don’t hear from them in early April, I will 
write another nasty letter and send copies to all the hobbyist 
computer clubs in the States. Also I will have to write to FTC 
concerning this matter. 

Sincerely yours, 

Eugene Cheng Box 6177 T.S.T. 

Kowloon, Hong Kong 


Jim: April 12, 1976 

DDJ could perform a great service to hobbyists by coming 
down hard on kit manufacturers who have lousy documentation. 
Send out a call for very carefully done criticisms on documentation. 
Bob Albrecht P.O. Box 310 

Menlo Park, CA 94025 
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TINY BASIC EXPANDERS, 
TAKE NOTE 


Dear Bob, 28 Aug 1975 

It would be nice to have CLOAD, CSAVE for cassette 
LOAD/DUMP. Also eventually a floating point package to 
replace the integer arithmetic. 

3723 Jackstadt 

Paul Farr San Pedro CA 90731 


j^If you only subscribed to the first three issues 
' YOUR SUBSCRIPTION HAS RUN OUT! 

J3lf you like what you have seen, and want to see more.jfc 
S hurry and send in your subscription renewal. fi 

See page 33 for details & form. « 




rt 




Dear Tiny BASIC, 

I have a suggestion. Identify all subroutines required, then 
split them into 8080 and 8008 Groups. Let those of us with 
8008s in on a good thing. 

By the way, I think a stack should be included in the 
8008 program as it is easy and cheap to add. 

Sincerely, 2914 Snyder Ave 

Lee Hanson Cheyenne WY 82001 

Hey implementers: How Trout trying to isolate 8080 code that 
will cause 8008 owners headaches? Then they will need only to 
modify those headache routines in order to share your software 
and praise your thoughtfulness. -JCW, Jr 


Dear Sirs, 19 Jan. 1976 

I am currently working on a Tiny BASIC interpreter to 
run on my Altair 8800, and at the same time, am interested in 
the educational aspects of computers. 

613 Willow Oaks Blvd 

M.B. Bloodworth Hampton VA 23669 


TINY BASIC 
& MICRO-8 

Dear Editor 3/31/76 

I noted your request for Tiny BASIC suggestions: 

1. KEY WORD TABLE: with key words (“PRINT”, built- 
in fuctions like ABS, etc.--ignore or eliminate LET in stored 
programs?) versus a special 8-bit code assigned to it (codes from 
octal 200 to 377 could be reserved for such special purposes, 
and 040 through 137 would be regular ASCII characters) versus 
the address of a routine to perform the execution for that 
keyboard. 

Interpretation routines would be set up to use this same 
table to convert both ways between key words and those special 
coded bytes. (I.e., for when a user enters a program, the key 
words get condensed to a single byte and stored in memory; 
and when the program is LISTED, these special bytes get con¬ 
verted back to keywords.) 

If there are several parameters or “control modes” that 
need to be controllable by the user as well as accessible to the 
user (by displaying the “status” of something?), then it may be 
advantageous to modify that table so each “definition” (which 
need only be 1 byte) implies the address of the parameter in 
memory, and the address of a pair of subroutines. One to take 
input from a keyboard, perform a code conversion unique to 
this pair of subroutines, and store the resulting data in the 
proper memory location. The other would perform the reverse 
conversion and output the result. 

This would have the overall effect of making your 


“portable” interpreter efficient at interpreting tables, especially 
if several tables are used. 

2. OUTPUT PAGE WIDTHS: you will, no doubt, find it 
necessary to allow for different page widths (line lengths) on 
different output devices, etc. TVT-I & II have 32 characters per 
line; and have no need of carriage returns if you want to con¬ 
tinue on the next line, after storing the last character on the 
previous fine. Note, however, that carriage returns on TVT-I 

(I don’t know about TVT-II--haven’t studied the RE schematics 
in detail) do not blank the characters they skip over (in the 
original version, anyway). 

It will be highly desirable not to split words/numbers 
between lines, therefore it is necessary to more than just have 
Tiny BASIC call a user-defined subroutine to output characters. 
The user may also want to output to more than one device in 
the same session-further complicating the problem of different 
line lengths. I suggest you have 2 routines: 

a) One that is given a string of characters to be outputted 
without splitting between lines. (Say, with beginning address in 
HL and end address in DE, or length? or 1 register?) This 
routine would then take appropriate action depending on 
whether this additional segment will fit on the current line, by 
making use of access to the current line length accessible to it~ 
but not to the program that called it. 

b) Another-user-defined-subroutine that handles the 
actual output characters, which is separate from the user- 
defined line length parameter. (I have implemented a scheme 
very similar to this on the IBM 360 and the-then RCA Spectra 
70--which have the same user = non-privileged instructions, but 
the I/Omacros are quite different-in which the same program 
could be used in either batch or time sharing mode as well as 
accommodate a variety of page widths on printers and termin¬ 
als.) 

3. INFIX (ALGEBRAIC) EXPRESSION INTERPRETA¬ 
TION: If you want, I can supply information on an algorithm 
that uses stacks for result numbers and saving binary operators 
that have to be delayed one operand/expression before execu- 
tion-without having to scan the algebraic expression more than 
once. 

While I find your Tiny BASIC project intriguing, I am not 
interested enough to spend the money to subscribe to yet 
another journal. Pop, (Victor W. Amoth) doesn’t seem to think 
computer hobbyists need high level languages, even though his 
programming experience is almost entirely confined to BASIC on 
GE time sharing-he’s still very “green” at programming in 
machine language on the Mark-8. 

My expertise runs the full range from hardware through 
software to continued fraction series for transcendental func¬ 
tions. I’m interested in further developing the “asynchronous 
I/O ports” I implemented. They make hardware automatically 
take care of “waiting,” etc., and make possible my 180 cps TVT-I 

[please continue on page 31 ] 
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The Community Computer Center (CCC) will act as a 
repository for program tapes; both source tapes and binary tapes. 
Everyone wishing to contribute programs to the public domain 
may do so by forwarding appropriate paper tapes to CCC. In 
particular, if you are hesitant about submitting a program for 
publication in Dr. Dobb’s Journal because you don’t want to 
hassle with its distribution, you are encouraged to forward the 
tapes to CCC and the documentation to the Journal for publication. 

The CCC will thus serve as a desirable alternative and 
supplement to the User Groups that are controlled and operated 
by many of the processor manufacturers, some of whom charge 
up to $100 for “membership” and access to the programs that 
their customers developed and offered to the User Group, without 
compensation. 

There is no membership fee for access to the tapes from the 
Community Computer Center. Instead, one pays only for the 
duplication and mailing costs: 

Duplication charge: $1/ounce or fraction thereof, for tapes 
(weighed after punching on fanfold tape) 

(Add 6% tax for orders mailed to a California address) 
Postage & handling: $0.50 on orders of $5 and less 
$1 on orders exceeding $5 

Payment must accompany all orders. Orders will be mailed 
First Class, within 3 days of receipt. 

Lists of available tapes will be published, periodically, in 
Dr. Dobb’s Journal, as well as being available from CCC: 

Community Computer Center 
1919 Menalto Avenue 
Menlo Park, CA 94025 
(415)326-4444 

The following source tapes are currently available. They 
are programs written for the version of BASIC that is implemented 
for the HP 2000F minicomputers, and are discussed in What To Do 
After You Hit Return (available from the PCC Bookstore, $6.95). 


Number Guessing Games $ 12 

Number 2 

Abase 3 

Trap 2 

Stars 2 

Clocks 3 

Bagels 2 

Quadgt 3 

Button 2 

Word Games $10 

Letter 2 

Abagel 3 

Hangmn 3 

Madlib 6 

Word 2 

“Nimlike” Games $11 

23Mtch 2 

Batnum 3 

Nim 4 

Chomp 3 

Zot 5 


Hide-n-Seek in 2D $ 4 

Hurkle 2 

Mugwmp 2 

Snark 2 

Pattern Games $11 

Dangle 2 

Sunsgn 3 

Biosin 3 

Mandal 3 

Life 3 

Amaze 3 

Board Games $11 

Qubic5 5 

Gomoku 4 

Teaser 3 

Rover 5 

Welcome to the Caves $ 9 

Caves 1 5 

Wumpus 4 

Caves2 5 

Business & Social Science $22 
Hamrbi 3 

King 5 

Civil2 7 

Market 5 

Stock 5 

Policy 4 

Polut 4 

Science Fiction Games $12 

Trader 10 

Sttrl 9 

Last Chapter $10 

Crash 4 

Lunar 3 

Revers 2 

Zeros 3 

Taxman 3 

The following games are in 
Dartmouth BASIC 

Motie 5 

Rescue 5 


For historical reasons, 

CCC maintains a different price schedule for postage and handling 
on this particular set of tapes: 

duplication charge and tax, as above 
postage and handling: 

$0.50 on orders under $10 
$1.00 on order of $10 or more 
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SIGNETICS 2650 KIT FOR UNDER $200 

[from Roy Blacksher, MOS Microprocessor Applications 
Manager, Signetics, 811 E. Arques, Sunnyvale CA 94086; 

(408) 739-7700] 

The Signetics Adaptable Board Computer, ABC 1500, is a 
modular microcomputer containing a CPU, memory, I/O ports 
and support circuitry. It is designed to cover a broad range of 
applications from software development to system hardware 
prototyping. Cost performance trade-offs have been carefully 
considered to achieve maximum flexibility and allow the card 
to be tailored to a variety of individual requirements. 

The basic configuration consists of the 2650 microprocessor, 

512 bytes of read/write memory (four 2112 static RAM’s), IK 
bytes of 2608 ROM with PIPBUG*, two 8T31 I/O ports and 
buffering on data, address and control lines. A single +5 volt 
supply will be required to power the card and communicate 
with a serial 20 ma current-loop terminal. 

Modifications to the basic system can be easily made to allow 
for various memory configurations and operating modes. Unused 
plated-through holes are provided for the PROM memory chips 
(82S115’s). Other options are jumper selectable. 

The ABC 1500 is sold either as a completely assembled and 
tested card (2650 PCI500) or in kit form (2650KT9500). The 
kit is priced below $200. 

FEATURES 

- Expandable printed circuit card: unused area on card 
filled with plated-through holes on .300-inch centers for 
wirewrap sockets. 


- IK bytes of PIPBUG ROM (in socket). 

- 512 bytes of RAM 

- Two latched I/O ports 

-- Four non-extended I/) read/write user strobes. 

-- Tri-state buffers on data, address and control lines. 

- Serial input/output port. 

- Single +5 volt supply requirement (1.7A max.) for card 
and 20 ma current loop interface (+12 volt supply for RS 232 
interface). 

- Simple memory and I/O port decoding with two 
16-pin dips. 

- Interrupt and single step capability. 

- Simple clock configured from dual monostable multi¬ 
vibrator. 

- 24K memory expansion capability. 

- Directly compatible with 4K RAM card (2650PC2000) 
and power supply demonstration base (2650DS2000). 

- Card dimensions: 8” x 6.875” with a 100-pin 
connector along the 8” dimension. 


*PIPBUG is a basic monitor having the following commands: 
ALPHA CHARACTER INPUT COMMAND 

A Alter memory 

B Set breakpoint 

C Clear breakpoint 

D Dump memory to papertape 

G Go to address 

L Load memory from papertape 

S See and alter registers 

Note: the program is entered by resetting the card. The termin¬ 
al will then respond with an asterisk (*). 


PUBLIC INTEREST SATELLITE ASSOCIATION 

The Public Interest Satellite Association (PISA) was 
formed in October, 1975, as a non-profit national organization 
to explore how satellite communications technology can be 
adapted to meet the long-distance telecommunications needs 
of non-profit users. 

For the past fifteen years, satellites have been providing 
global links via television, radio, telephone, data, telex and 
facsimile for business, industry, and the military. Up to now, 
though, the technology, for a number of reasons, has been 
beyond the reach of public groups, despite the fact that 
satellites have been developed with nearly $80 billion of public 
funds. But recent technical breakthroughs in the field promise 
to greatly reduce satellite costs, and make the technology 
available for low-cost public use. To spearhead the public effort 
that will be required to turn this potential into reality, PISA 
has been formed. 

PISA’s goals are to: 

1) Help non-profit groups understand the many facets of 
satellite technology; 

2) Assist these groups in examining their long-distance 


communications costs, and in determining how satellites--and 
what kinds of satellites--may better serve their needs; and 

3) Explore ways the technology can be used by them 
to form new networks of information exchange, and to im¬ 
prove their outreadh to the public-at-large. 

In March, 1975, PISA received grants from the Stern 
Fund and the Ottinger Foundation to permit the following 
first steps to be taken: 

1) Conduct a survey of the communications needs, uses, 
and costs of non-profit organizations; 

2) Prepare written material informing these groups about 
satellites, the potential benefit they hold for the non-profit 
community, and what must be done to realize this potential; 

3) Design one or more demonstration projects, using 
available NASA experimental satellites, to give non-profit 
groups some experience with the technology; and 

4) Plan PISA’s organization structure. 

For additional information, write or call: 

PISA 

55 W 44 Street 

New York NY 10036 

(212) 661-2540 
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DON’T KEEP IT A SECRET! 

Let us know what exciting new software and systems you are 
working on. We’ll tell everyone else (if you wish). Maybe 
someone is also working on the same thing. You can work 
together and get results twice as fast. Or, may be someone 
else has already done it; no reason for everyone to reinvent 
the wheel. 



Careful, detailed comparison and contrast of the several versions 
of Tiny BASIC we are publishing. Systems software for the 
public domain, including: 

— Tiny BASIC versions for the 

INTEL 8008 SIGNETICS 2650 

Motorola/AMI 6800 MOS Technology 6502 

RCA COSMAC Fairchild F-8 

— Tiny block-structured languages for Microprocessors 

PASCAL-like ALGOL-like 

— Resident structured and unstructured assemblers 

Any old assemblers Macro-assemblers 

PL360-like 

— Interactive Debuggers 

— Graphics Software 

For the TV Dazzler For any TV interface 

(including schematics) 

— Music software 

Like Dompier’s program ( DDJ , V. 1, No. 2) 

Like Wright’s Alpha Numeric Music (PCC Bookstore) 

— File systems for cassettes 

This is a partial list. It will change before the ink drys. We 
welcome your suggestions for additions. 


For any TV interface 
(including schematics) 


COMPUTER PROCESS FOR RAPID 
PRODUCTION OF MUSICAL COMPOSITIONS 

[reprinted from Stanford University’s 
March 31,1976, Campus Report ] 

A complete cycle of music produc¬ 
tion from the composer’s mind to the 
page the musicians play-has been devel¬ 
oped at Stanford’s ('enter for Research in 
Music and Acoustics. 

Here’s how it works: 

Prof. Leland Smith, working at the 
Artificial Intelligence Laboratory on 
Arastradero Road, types a composition 
into the computer. 

The computer then transmits all the 
necessary parts either directly to a Xerox 
copier or to a plotter. The latter makes a 
king-sized reproduction of the score 
which can be reduced in size mechanical¬ 
ly. 

Either copy produces an engraving- 
quality format from the Xerox in about 
15 seconds. 

The sapie procedure, done the old way 
by a music publisher, might take as long 
as two years, with the necessary en¬ 
graving, printing, binding, and publishing. 

At Stanford it can take less than two 
weeks, including final editing. 

The advantage of Smith’s system is 
that it eliminates the need for copyists. 

The computer supplies all the parts for 
the instruments based on the master copy 
typed into the PDP-10 computer. 

At the moment, the process is strictly 
for academic purposes. It allows com¬ 
posers like Smith to prepare works for 
performance or enables graduate students 
to prepare scores for their degree require¬ 
ments. 

Smith feels it is inevitable that such a 
system will become the standard method 
for the publication of music. 

But Smith’s work on music printing 
has been done without formal sponsor- 
ship-literally, on his own time. 

He sometimes gets tothe Lab at 4 a.m. 
to take advantage of the quiet and the 
availability of the computer. 

Michael McNabb, a Stanford graduate 
student in music now studying in Paris, 
wrote an impressionistic piece called 
“Solstice.” which was premiered by the 
Stanford Symphony under Prof. Mark 
Starr a few weeks ago. 

It was prepared and produced entirely 
by computer, with Smith’s help. 

“It took longer to rehearse than it did 
to edit it,” Smith said. 

One of his own projects shows how a 
computer can help. 

Francesco Bonporti, an obscure 18th 
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century Italian composer, once had the 
misfortune to get his work accidentally 
mixed up with that of the great Johann 
Sebastian Bach. 

This came about when Bach, taken 
with Bonporti’s ingenious “inventions” 
for violin and string bass, hand copied the 
latter’s work. When someone else in¬ 
cluded four of them in Bach’s collected 
works, they were credited to Bach’s 
genius until researchers discovered the 
error. 

Using the computer printing method, 
Smith developed and expanded Bon¬ 
porti’s “Inventio Septima” (“Seven In¬ 
ventions,”) adding a double scherzo of his 
own, based on Bonporti’s original. 

Smith published it under his own 
“logo,” the San Andreas Press, with the 
credit line: “Graphic Realization by 
POP-10 Computer.” 

The computer printed the entire score 
and the title page, including a “snapshot” 
of an oaktree against rolling Peninsula 
hills-the “San Andreas" monogram. 

Smith has produced computer scores 
for Renaissance and Baroque chamber 
groups of ancient instruments in the origi¬ 
nal notation-square instead of round 
notes, or special notation for the 17th 
century lute. 

Students in Prof. George Houle’s 
classes in early music already are finding 
this handy for producing music required 
for their master’s degrees. 

The computer is coupled with a video 
display screen, which presents a five-line 
music staff on the operator’s command. 
The notes appear in response to the 
proper typing on the keyboard. 

These are fed into the computer which 
transmits them direct to the Xerox or to 
the “Calcomp” plotter, whichever is de¬ 
sired. 

The plotter, about 40 inches wide, has 
two parallel metal arms across the width. 
On these, a special ink-laden pen travels 
sedately back and forth, placing the notes 
on the treble or bass staff while the drum 
moves up or down to accommodate the 
notation. 

To the casual observer it looks as 
though a giant musical Ouija board was in 
action, operated by an invisible hand. 

Smith foresses the day when hundreds 
of computer-produced scores, reduced to 
digital form, can be stored in the Library 
of Congress. 

From any place in the country, he 
predicts, a musician could dial up the 
Library’s computer, code the correct 
numerals for Dvorak’s Fifth Symphony, 
for example, and have the full orchestral 
score delivered by telecopier. 


The cost could be billed to his phone 
or be provided for by a coin-in-the-slot 
arrangement. The computer in the Li¬ 
brary of Congress could assess the royal¬ 
ties due the composer, if necessary, and 
credit the amount to his account. 

The Stanford computer’s value as a 
research tool has no limits either, Smith 
feels. 

One doctoral candidate already has 
started a computer-developed thesis, 
working on a method which could pro¬ 
duce thematic catalogues of the works of 
the classical composers-a job of monu¬ 
mental drudgery if attacked in the tradi¬ 
tional manner. 

His project will be so comprehensive 
that it will be able to compare composers’ 
themes, where and when they were used, 
down' to the book, page, and line of the 
original score. It also will cite the places 
where the same themes have been used or 
adapted to other compositions. 

Anything the computer does can be 
stored on magnetic tape for permanent 
instant recall, or erasure and reuse. 

The Smith system could quite readily 
be adopted by music publishers. “It 
would cost them only about $130,000 to 
set up this system,” Smith says, “but 
they seem to be afraid or reluctant to 
make the change.” 

Smith, 50, is a native of Oakland who 
was elected to Phi Beta Kappa as an 
undergraduate at UC-Berkeley. He also 
earned his master’s degree in music at 
Berkeley, where he studied under the 
noted composer Roger Sessions. 

He took additional postgraduate work 
at the Paris Conservatory under Olivier 
Messaien. 

Smith taught at Mills and the Univer¬ 
sity of Chicago before coming to Stan¬ 
ford in 1958. He has received many com¬ 
missions for his original compositions, 
which include “Orpheus” for harps¬ 
ichord, harp, and guitar; a string trio, and 
an opera, “Santa Claus,” as well as 
“Three Pacifist Songs.” 

While he has been extremely busy in 
the last few years developing the Center’s 
comprehensive program for editing and 
printing computer music, he has also 
found time to produce a piano trio, a 
“Rhapsody for Flute and Computer,” 
“Arabesque for Small Orchestra,” “Six 
Bagatelles for Piano,” a suite for mixed 
trio, and two motets for mixed chorus. 

Almost all of these have been perfor¬ 
med at Stanford, the Cabrillo Music Fes¬ 
tival, or at other universities. 

An accomplished pianist, clarinetist, 
and bassoonist as well, he has played with 
the Chicago and San Francisco symphony 
orchestras. His papers on the computeri¬ 
zation of music have appeared in profes¬ 
sional journals. 


March, 1976 

66 


Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 


Page 11 



IT CAN TALK...BUT CAN IT SING? 


Votrax is proposing making the guts 
of this English language synthesizer 
system available in kit form for $1K. 
More details, next issue. 

Note that the system described 
below is a turn-key, off-the-shelf 
item that has been on the market 
for several years. 


The VOTRAX Model VS-6 is a new departure in voice response technology. This unique 
system combines low unit cost, unlimited vocabulary, operational simplicity and low data 
requirements to provide the ultimate in flexibility and cost effectiveness. The price of the 
VS-6 with parallel buffered interface is $3605 in single-unit quantity. Purchase prices are 
discounted for quantity buys starting at two units. Maximum discount is over 50%. 

The VS-6 is programmed to speak based on phonetic coding principles. Each eight-bit 
command word selects one of 61 phonemes (sounds) and one of four levels of inflection 
(pitch). Utterances are "spelled" phonetically to produce all combinations of words and 
phrases required by the application. Since words and phrases are stored in the form of 
digital information in some storage medium, such as magnetic disc or solid-state memory, 
there is virtually no limitation as to the amount of vocabulary VOTRAX can produce. 
One well-known computer services company reports a vocabulary in excess of 300,000 
words. The value of unlimited vocabulary is that the same low-cost VOTRAX unit can be 
used for any and all applications. 


The use of phonetic coding in the VOTRAX VS-6 permits the production of speech at 
uniquely low data rates. A rule of thumb indicates that the number of phonemes per word 
is approximately equal to the number of letters per word. At eight data bits per phoneme 
command, VOTRAX can achieve continuous speech from input as low as 150 bps. 


The VOTRAX VS-6 was developed to fit into a wide variety of applications and physical 
environments. A complete range of interface types and options makes VOTRAX compat¬ 
ible with virtually all computers, from the largest business mainframes to the smallest 
microprocessors. The small amount of data and limited controls required to drive VOTRAX 
permit installation at almost any point in a communications network: host computer, 
communications concentrator, communications multiplexor, or computer terminal. Data 
rates of 110 to 9600 bps also allow VOTRAX to fit in with a minimum of change to 
existing systems. Operating temperature and humidity specifications are such that specially 
conditioned environments are not required. Applications Include: Computer Timesharing, 
Education, Handicapped Aids, Instrumentation, Manufacturing, Military and Training 
Simulators. 


Electrical 

Input Power Requirements.115 VAC ±10%, 


47-420 Hz, 0.25 Amps 

Input Power Fuse.3AG - 1/2 Amp, 125 Volts 

Audio Output. 100-5000 Hz, 6 Volts Peak, Nominal 


Audio Output Drive Capability.0.5 Watts into an 

8 Ohm load 

Environmental 

Operating Temperature.0° C. to 50° C. 

Storage Temperature.— 20° C. to 70° C. 

Operating Humidity.0 to 95% with no condensation 

Command Word 

6-bits: 64 selections available, Includes phonemes, pauses 
and control functions 
2-bits: 4 levels of inflection available 


If you are interested in having this 
available in $1K kits, write to: 

John McDaniel 
Vocal Interface Div. 

4340 Campus Dr. 

Suite 212 

Newport Beach CA 92660 
(714) 557-9181 
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TOUCHLESS SENSING 
FOR UNDER $100 


available that "see" clear plate glass or 3 mil clear mylar 
or liquid surfaces at more than 102 cm (40 in). 


We just spoke with a representative for a manufacturer of 
low-cost proximity sensors (about $95@ in groups of 50; $133@ 
in single units), and turned him on to the hobbyist movement. 
These sensors are capable of determining the presence or 
absence of materials some distance away. They can “see” water 
flowing from a pipe or through a semi-transparent tube, doors 
that are opened or closed, people, hands, fingers, spokes of a 
rotating wheel, etc. Their range is from at least 24 inches for 
sensing highly reflective material, or 40 inches for minimally 
reflective material, up to about 30 feet when a reflector is used 
beyond the material “under surveillance.” They can even “see” 
through materials that we normally think of as being opaque 
(e.g., cardboard, skin, thin wood panels, etc.) much like you can 
see the glow of a flashlight that you have stuck in your mouth- 
for some obscure reason-through your cheeks. 

We will carry much more extensive information on this 
within the next several issues. In the meantime, if you are 
interested in such devices being made available through distribu¬ 
tors, mail-order hobbyist sales, and computer stores, write to 
the manufacturer and tell them so. You might also tell them 
the maximum that you would be willing to pay for such sensors. 
Please do not ask them for literature, schematics, etc., however, 
unless you are planning on purchasing them in quantity. We 
will be furnishing such information in forthcoming issues; the 
company is not set up to deal with very small retail sales . . . 
and we want them to be happy with the hobbyist community 
. . . and eager to enter our marketplace. We do not want them 
to avoid the hobbyist market because they feel they can’t deal 
with the end users. 

Just let ’em know you are very interested in their making 
the products available at the lowest possible price, to the hobby 
community, via the already-existent retail distributors (and, of 
course, group buys can be set up at any time). 

Send your quick statements of interest to: Anthony 
Lazzara, President, Scientific Technology, Inc., 1201 San 
Antonio Rd, Mountain View CA 94043. 


DESCRIPTION 

The STI Model AL3093 is a self-contained, complete, 
sensitive non-contact proximity and retro-reflective 
sensor system component. All circuitry is totally sealed 
in the shockproof 4.4 cm (1%") by 10.1 cm (4.06”) long 
aluminum housing. 

The AL3093 responds to any surface or object entering 
its field of view, irrespective of material. It also detects 
certain changes of color or texture. 

Range of the AL3093 is up to 102 cm (40 in) as a 
proximity sensor. When used with a retro-reflective 
target, range is up to 9.8 m (30 ft). Long range units are 


The AL3093 can be mounted anywhere, indoors or out, 
submerged or in a vacuum. Interference from ambient 
light, environmental contaminants and thin film accumu¬ 
lations of dust, oil, etc., is virtually impossible in normal 
operation. A form of automatic gain control (AGC) 
maintains the modulated beam sensitivity under chang¬ 
ing operating conditions. 

SPECIAL FEATURES 

■ Responsive to virtually all objects and materials, 
many color and texture changes. 

■ Simple to set up with adjustable, wide sensitivity 
range—visible alignment indicator—no focusing. 

■ Range to 102 cm (40”) in proximity mode, to 9.8 m 
(30 ) as a retro-reflective control. 

■ Long, maintenance-free life—solid state throughout, 
never a bulb to change. Circuit protected output. 

■ Operates anywhere—rugged, sealed unit is com¬ 
pletely self-contained. 

■ Invisible modulated beam unaffected by ambient 
light, even bright sun. 

■ Automatic compensation for fog, dust and other 
atmospheric or ambient conditions. 

■ Versatile system component—available in custom 
O.E.M. configurations. 

OPERATION 

The STI Model AL3093 is simple to set up and operate, 
requiring neither focusing nor critical adjustment. A 
visible LED indicator glows brightly when the sensor is 
aligned on target and permits visual monitoring during 
operation. A potentiometer provides range and target 
sensitivity adjustment. 

Maintenance requirements are practically non-existent. 
There are no lamps or other components that deteri¬ 
orate rapidly or periodically in the all solid state circuitry. 
Service life is conservatively rated at 10 years. 

Any number of sensors may be interconnected for 
simultaneous or sequential operation. Outputs can be 
ANDed, ORed, or arranged in any other logic sequence. 

USES 

The STI AL3093 is useful for every type of non-contact 
sensing application within its wide range capabilities. 
Major uses include sensing, counting, routing, position¬ 
ing, inspecting, measuring, code reading, web moni¬ 
toring and performing a wide variety of other automated 
process control functions. Additional applications in¬ 
clude safety controls, perimeter or intrusion protection 
or alarms and many, many others where visible 
movements or changes must be sensed automatically. 
A series of externally mounted relay and switch outputs, 
including delays, latches, and other control circuits are 
available for use with the AL3093. Externally mounted 
transformers for any input voltage are also optional. 


March, 1976 
68 


Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 


Page 13 



SPECIFICATIONS 


ELECTRICAL & PERFORMANCE 
SPECIFICATIONS 

Sensing Range—screwdriver adjustable 
Maximum Range 
Proximity Mode* 

40 in. (102 cm) (90% reflectance surface) 

24 in. (61 cm) (18% reflectance surface) 
Retro-reflective Mode 
30 ft. (9.8 m) 

‘Color and texture affect range in Proximity Mode. 
Measurements made with Kodak standard (visible) 
reflectance test cards. 


Input Power 

Normally 12 VAC or VDC, or 24 VDC at 200 mA. 
Externally mounted transformers available for other 
input voltages. 


Operating Temperature Range 

-50°C to +70°C (-60°F to +160°F) 

Control Options 

Time delays, one shots, alarm latches and other 
modular control options are available for remote, 
external mounting. 


MECHANICAL SPECIFICATIONS 



Output 

+ 10 VDC active pulldown—will sink 100 ma (current 
shutdown protection approximately 200 mA) or source 1 
mA. Output may be pulled up to higher voltages, e.g. 12 
VDC for MOS-type logic, without damage. 


Response Time 

Turn-On 0.0005 sec.; Turn-Off 0.01 sec.; Counting speed 6,000 CPM; Normal Cycle Life 10 billion. 


Cabling 

Standard 1.5 m (5 feet) 5-conductor for input and output leads. Additional length to 150 m (500 feet) and flexible 
armored conduit available. 

Circuitry 

Totally solid state, encapsulated. Withstands shock of 100 g @ 10 milliseconds. 

Multiple Sensor Options 

Any number of units may be ANDed or ORed through external logic circuitry. Specify requirements. 
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Parser saves pain 

Harvey E. Hahn February 24, 1976 

630 N. Lincoln Ave., Apt 208 
Addison IL 60101 

In reading PCC [article, below] I was intrigued by your 
parsing subroutine, which avoids the direct input of the user 
(which can prevent game players, etc., from initiating control 
commands to BASIC itself). This would appear to be very useful 
in situations where inadvertent input commands could upset or 
destroy a program, particularly by someone who is not conver¬ 
sant with programming or computer languages. It would appear 
to be a useful “safety” feature to incorporate in BASIC 
interpreters. 


yet another BASIC BOMBOUT! 
or 

How we learned to live with the INPUT statement 
[reprinted from PCC, Vol. 3, No. 3 (Jan., 1975)] 


Sometimes in the old days, often in the middle of a game, and usually 
to somebody new to computers, our terminals would say: 

ERROR xx IN LINE xxx 

READY 

(By which the computer meant: "You typed the wrong thing when I 
asked for INPUT so I've kicked you out of the program. Out of the 
goodness of my heart. I've described what you did wrong (i.e. ERROR 
xx) and where the error happened (i.e. IN LINE xxx). To understand 
it, all you have to do is look at page xx in the reference manual, then 
look at the program listing (wherever that is or type LIST), and with 
your thorough knowledge of BASIC (oh, you say you don't speak the 
language — well, ask somebody then), you can figure out where you 
went wrong. Naturally, the READY means you're in BASIC so if you 
type some "random" number (like the input you tried to type in the 
first place), you might wipe out a line in the program and then . .. 

To pick up again where you left off, type GOTO xxx — by the way, I 
zero all variables so you can't really start where you left off so you may 
as well start over. Be more careful next time!!") 

Games encourage non-standard responses — like, I THOUGHT YOU 
WERE 'IT' when the terminal is asking, WHERE DO YOU THINK THE 
HURKLE IS HIDING?. People were being heavily discouraged from 
exploring and seeing what would happen if. 

Suppose the terminals would print something like, I’M CONFUSED — 

I NEED 2 COORDINATES FROM 0 TO 9 . Then the computer is 
the dummy — it doesn't understand me. "Watch me get the computer 
all confused."Quite different than feeling upset because the program has 
to be reloaded (on our 10 cps reader — no mass storage, alas) because a 
few random lines were erased. Blahh! 


Our current solution happened in three stages. 

1. A subroutine for all input. Pass the number and types (numeric or 
String) of inputs wanted to the subroutine. Input the entire user 
response into a character string and parse it. One special input was 
always recognized — STOP (the user could type STOP anytime to 
stop the game). We never bothered to tell our game players about 
Control C (remember, we never wanted a game player to give com¬ 
mands directly to BASIC). Return the inputs and a condition code 
to the calling routine; 1 = STOP , 2 = couldn't find all the inputs 
you wanted , 3 = o.k. The '2' would cause a "helpful" message to 
be sent to the player and the input would again be requested. 

The parsing of the inputted string was complicated because there 
was no direct way to convert from string to ascii (ascii is the numeric 
representation of a character) and numeric operations (like subtrac¬ 
tion) could not be performed with strings. If we could compute 

T = C$ - “0” , 

we'd almost be done; T would equal the digit in C$ (from 0 to 9) 
(you still need to check if T is from 0 to 9 to see if C$ actually is 
a digit). For numeric input, we used a FOR-NEXT loop variable as 
a pointer into an internal character string. If a match were found 
with the input character, the value of the FOR-loop variable was 
the ascii representation. (?!?). 

The problem (and the reason that step 1 was not our final solution) 
was that it took a lot of time to parse the input. People got really 
impatient, especially with multiple terminals running. 

2. We eliminated the parsing subroutine. We tried all programs having 
line numbers greater than 1000 (hopefully, it would be harder to 
accidently erase a line since most inputs to the games were less than 
1000). The player was supposed to ignore an ERROR when (and 
generally when, rather than if, for first-timers) it occurred and 
blindly type RUN. 

It was faster than before but it didn't solve much — "What does 
ERROR xx IN LINE xxx mean"? And a player couldn't continue 
where the game aborted because of the zero-all-variables insanity 
of our BASIC. So, ... 

3. One night, after everyone was asleep and all was quiet, it happened. 
Did you know that if you compute 

T = C$ 

and X = INT(LOG(ABS(T))) + SGN(T) 
that X will be unique for each possible ascii character (on DEC 
EDU20, at least)? This gives you a unique index into an array where 
the ascii value of each character can be stored. 

So, we redid phase 1 with a streamlined, razzle-frazzle lookup that 
would gladden the heart of the most hardened hacker. And — our 
method of parsing INPUT isn't perceptibly slower to the user, even 
with multiple terminals, than good (or is it bad) ol' INPUT. 

THE END (We hope.) 
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KEYBOARD LOADER FOR OCTAL CODE 
VIA THE TVT-2 

Jack 0. Coats, Jr, 213 Argonaut, No. 27, El Paso TX 79912 
El Paso Computer Group 

This program is being used in a modified form by the EPCG 
(El Paso Computer Group) for loading machine language pro¬ 
grams that have been coded in octal. The program does no char¬ 
acter validation so if you enter an invalid character it will be 
processed just like a valid character (the digits 0 to 7, and 0 to 3 
in the most significant digit). This program should work without 
modification for an eight-level ASR-33 or similar device. 

The program will be loaded, beginning in location 000 111. 
Once loaded, a program may be started by typing “$” as input 
to this keyboard loader. 

The status input port is port no. 1, and the data I/O port, 
no. 0. In the status word, the high order (left-most) bit is the 
not-ready flag for the output port. It is high when the output 
port is busy and low when the port is ready to accept more out¬ 
put. The right-most bit is used for the input port status bit. It is 
low when the port is ready to present input, and high while 
there is no new data available. It is assumed that the input status 
bit is reset to the high state after data is input. 

All input and output are done by subroutines GET and 
PUT, respectively. If any other I/O routines are desired, these 
routines must be replaced. For the GET routine, the character is 
returned in the accumulator. For the PUT routine, the character 
is passed to it in the accumulator. These routines may be called 
from any user routine as a subroutine as long as the conventions 
are observed. 

These routines are not optimized for either memory or 
time. However, they are a starting place for those who need or 
desire a crude alternative to the panel switches. 


ADDR 

DATA 

LABEL SYM OPERAND 

COMMENT 

000 


ORG 

0 


000 


STACK EQU 

<your choiceThgh memory address 

000 


RUN EQU 

END+1 

Start of program entered 

000 

061 

START LXI 

SP,STACK 


001 

377 




002 

000 




003 

041 

LXI 

H,RUN 

Where do I store it? 

004 

111 




005 

000 




006 

076 

MVI 

A,CR 

Output a carriage 

007 

015 



return 

010 

315 

CALL 

PUT 


011 

063 




012 

000 




013 

076 

MVI 

A,LF 

Output a line feed 

014 

012 




015 

315 

CALL 

PUT 


016 

063 




017 

000 




020 

076 

MVI 

A,A‘*’ 

Output an asterisk 


021 

052 





022 

315 


CALL 

PUT 


023 

063 





024 

000 





025 

257 


XRA 

A 


026 

006 


MVI 

B,(-3) 

Get minus the 

027 

375 




character count 

030 

007 

LOOP 

RLC 


Rotate it left 3 bits 

031 

007 


RLC 



032 

007 


RLC 



033 

117 


MOV 

C,A 

Store it in Reg. C 

034 

315 


CALL 

GET 

Get a character 

035 

077 





036 

000 





037 

315 


CALL 

PUT 

Write out the 

040 

063 




character 

041 

000 





042 

376 


CPI 

AT 

Compare to the run 

043 

044 




signal character 

044 

312 


JZ 

RUN 

Run the program 

045 

111 




entered 

046 

000 





047 

346 


ANI 

7 

Mask out unwanted 

050 

007 




bits 

051 

201 


ADD 

C 

Add it in to the running 

052 

004 


INR 

B 

Is that all? total 

053 

302 


JNZ 

LOOP 

No: go to loop 

054 

030 




055 

000 





056 

167 


MOV 

M,A 

Store it in memory 

057 

043 


INX 

H 

Increment the address 

060 

303 


JMP 

GO 

Go again 

061 

000 





062 

000 





063 

365 

PUT 

PUSH 

PSW 

Keep the chtr 

064 

333 

PI 

IN 

STATUS 

Get the status 

065 

001 



PORT 


066 

346 


ANI 

OUTMASKIsitready? 

067 

200 





070 

302 


JNZ 

PI 

No; go to PI 

071 

064 




072 

000 





073 

361 


POP 

PSW 

Retrieve the charctr 

074 

323 


OUT 

DATA 

Write the data 

075 

000 



PORT 


076 

311 


RET 


Go back 

077 

333 

GET 

IN 

STATUS 

Get the status 

100 

001 



PORT 


101 

346 


ANI 

INMASK 

Is it what we want? 

102 

001 





103 

302 


JNZ 

GET 

No; return to get 

104 

077 





105 

000 





106 

333 


IN 

DATA 

Get the data 

107 

000 



PORT 


110 

311 

END 

RET 



110 



END 
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BREAKPOINT ROUTINE 
FOR 6502s 

John Zeigler 

8 Seaview Dr., Pittsburg CA 94565 
(415) 894-3661 

[This routine was distributed at the Homebrew Computer Club 
meeting, March 17, 1976. It is reprinted with the author’s 
permission.] 

This routine is entered via a software breakpoint. It is 
entered when the processor encounters a 00 op-code. Upon 


entering, the program counter is printed, followed by the active 
flags, accumulator, X index register, & index register, and stack 
pointer, terminated by a carriage return and line feed. It then 
waits for the user to type in a new op-code. Upon receiving 
that op-code, the original 00 code is replaced with the op-code 
that was input, the stack is returned to pre-interrupt status, and 
execution of the original program continues from the breakpoint. 

To use this routine, it is necessary to load the interrupt 
vector, FFFE and FFFF, with 64 and 02, respectively, and 
place the 00 breakpoint op-code in the desired location. The 
following storage is required: 0000-0007, 0200-02E3, 
FFFE-FFFF. Note: This routine calls subroutines located in 
the TIM Monitor. 





BUG 

PROGRAM 

LISTING 

VERSION 1 

0200 

85 

07 


NEG 

STA 

07 

JSAVE MODIFIED P STATUS 

0202 

A9 

4E 



LDA 

#$4E 

J LOAD A WITH *N* 

0204 

20 

C6 

72 


JSR 

WRT 

JTYPE ‘N* 

0207 

A5 

07 



LOA 

07 

JREST0RE MODIFIED P 

0209 

4C 

7F 

02 


JMP 

V 

JRETURN TO PROG. V 

020C 

85 

07 


0VERFL 

STA 

07 

JSAVE MODIFIED P 

020E 

A9 

56 



LDA 

#$56 

JLOAD A WITH ’V* 

0210 

20 

C6 

72 


JSR 

WRT 

JTYPE ’V’ 

0213 

AS 

07 



LDA 

07 

JREST0RE MODIFIED P 

0215 

4C 

82 

02 


JMP 

B 

JRETURN TO PROG. B 

0218 

85 

07 


BRK 

STA 

07 

JSAVE MODIFIED P • 

021 A 

A9 

42 



LDA 

# $42 

J LOAD A WITH 'B * 

021C 

20 

C6 

72 


JSR 

WRT 

JTYPE *B * 

021 F 

A5 

07 



LOA 

07 

JREST0RE MODIFIED P 

0221 

4C 

86 

02 


JMP 

D 

JRETURN TO PROGRAM D 

0224 

85 

07 


DEC 

STA 

07 

JSAVE MODIFIED P 

0226 

A9 

44 



LDA 

#$44 

J LOAD A WITH *D' 

0228 

20 

C6 

72 


JSR 

WRT 

JTYPf *D' 

022B 

A5 

07 



LDA 

07 

JREST0RE MODIFIED P 

022D 

4C 

89 

02 


JMP 

I 

JRETURN TO PROGRAM I 

0230 

85 

07 


1RQDIS 

STA 

07 

JSAVE MODIFIED P 

0232 

A9 

49 



LDA 

#$49 

J LOAD A WITH 'I• 
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0234 

20 

C 6 

72 


JSR 

WRT 

1TYPE * I * 

0237 

A5 

07 



LDA 

07 

I RESTORE MODIFIED P 

0239 

4C 

8C 

02 


JMP 

Z 

JRETURN T0 PROGRAM Z 

023C 

85 

07 


ZERO 

STA 

07 

JSAVE MODIFIED P 

023E 

A 9 

5A 



LDA 

# S5A 

IL0AD A WITH ‘Z* 

0240 

20 

C 6 

72 


JSR 

WRT 

JTYPE ’Z* 

0243 

A5 

07 



LDA 

07 

1 RESTORE MODIFIED P 

0245 

4C 

8F 

02 


JMP 

C 

JRETURN TO PROGRAM C 

0248 

85 

07 


CARRY 

STA 

07 

1SAVE MODIFIED P 

024A 

A9 

43 



LDA 

#$43 

1 LOAD A WITH 'C* 

024C 

20 

C 6 

72 


JSR 

WRT 

JTYPE *C’ 

024F 

AS 

07 



LDA 

07 

J RESTORE MODIFIED P 

0251 

4C 

92 

02 


JMP 

C0NT 

JRETURN TO PROGRAM CONT 

0254 

85 

00 



STA 

00 

JSAVE a IN 00 

0256 

86 

01 



STX 

01 

J SAVE x IN 01 

0258 

84 

02 



STY 

02 

JSAVE Y IN 02 

025A 

68 




PLA 


J PULL P 0T A 

025B 

85 

03 



STA 

03 

JSAVE P IN 03 

0250 

68 




PLA 


J PULL PCL TO A 

025E 

85 

04 



STA 

04 

JSAVE PCL IN 04 

0260 

68 




PLA 


J PULL PCH TO A 

0261 

85 

05 



STA 

05 

JSAVE PCH IN 05 

0263 

BA 




TSX 


J MOVE S TO X 

0264 

86 

06 



STA 

06 

JSAVE S IN 06 

0266 

08 




CLD 


JNOT DECIMAL MODE 

0267 

20 

8A 

72 


JSR 

CRLF 

J DO A CRLF 

026A 

20 

CF 

02 


JSR 

M0DPC 

JC0RRECT PCL & PCH 

026D 

A5 

05 



LDA 

05 

J LOAD A WITH PCH 

026F 

20 

B1 

72 


JSR 

WR0B 

JTYPE PCH IN HEX 

0272 

A5 

04 



LDA 

04 

J LOAD A WITH PCL 

0274 

20 

B1 

72 


JSR 

WR0B 

JTYPE PCL IN HEX 

0277 

20 

77 

73 


JSR 

SPACE 

J SPACE 1 CHARACTER 

027A 

AS 

03 



LDA 

03 

J LOAD A WITH P 

027C 

2A 




R0L 

A 

JROTATE N FLAG TO CARRY 

0270 

B0 

81 



BCS 

NEC 

JBRANCH IF N FLAG SET 

027F 

2A 



V 

R0L 

A 

JROTATE V FLAG TO CARRY 

0280 

B0 

8A 



BCS 

0VERFL 

JBRANCH IF V FLAG SET 

0282 

2A 



B 

R0L 

A 

JROTATE PAST UNUSED BIT 

0283 

2A 




R0L 

A 

JROTATE B FLAG TO CARRY 

0284 

BO 

92 



BCS 

BRK 

JBRANCH IF B FLAG SET 

0286 

2A 



D 

R0L 

A 

JROTATE D FLAG TQ CARRY 

0287 

BO 

9B 



BCS 

DEC 

JBRANCH IF D FLAG SET 

0289 

2A 



1 

R0L 

A 

JROTATE I FLAG TO CARRY 
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028A 

BO 

A4 



BCS 

IRQDIS 

J BRANCH IF I FLAG SET 

028C 

2A 



Z 

R0L 

A 

JR0TATE Z FLAG T0 CARRY 

028D 

BO 

AD 



BCS 

ZER0 

JBRANCH IF Z FLAG SET 

028F 

2A 



c 

R0L 

A 

JR0TATE C FLAG T0 CARRY 

0290 

BO 

B6 



BCS 

CARRY 

JBRANCH IF C FLAG SET 

0292 

20 

77 

73 

C0NT 

JSR 

SPACE 

JSPACE 1 CHARACTER 

0295 

A5 

00 



LDA 

00 

J GET A 

0297 

20 

B1 

72 


JSR 

WR0B 

JTYPE A 

029A 

20 

77 

73 


JSR 

SPACE 

JSPACE 1 CHARACTER 

029D 

A5 

01 



LDA 

01 

J GET X 

029F 

20 

B1 

72 


JSR 

UR0B 

JTYPE X 

02A2 

20 

77 

73 


JSR 

SPACE 

JSPACE 1 CHARACTER 

02A5 

A5 

02 



4-DA 

02 

J GET Y 

02A7 

20 

B1 

72 


JSR 

WR0B 

JTYPE Y 

02AA 

20 

77 

73 


JSR 

SPACE 

JTYPE SPACE 

02AD 

A5 

06 



LDA 

06 

JGET S 

02AF 

20 

B1 

72 


JSR 

WR0B 

JTYPE S 

02B2 

20 

8A 

72 


JSR 

CRLF 

JD0 A CRLF 

02B5 

20 

B3 

73 


JSR 

RDHEX 

JREAD VALID 0PC0DE 

02B8 

A2 

00 



LDX 

#S00 

JPREPARE T0 L0AD 0PC0DE 

02BA 

81 

04 



STA 

(04# X) 

JST0RE CORRECT 0PC0DE 

02BC 

A6 

06 



LDX 

06 

JGET S 

02BE 

9A 




TXS 


JREST0RE STACK POINTER 

02BF 

A5 

05 



LDA 

05 

JGET PCH 

02C1 

48 




PHA 


JRESTORE PCH T0 STACK 

02C2 

A5 

04 



LDA 

04 

JGET PCL 

02C4 

48 




PHA 


JRESTORE PCL TO STACK 

02C5 

A5 

03 



LDA 

03 

JGET P 

02C7 

48 




PHA 


JRESTORE P TO STACK 

02C8 

A4 

02 



LDY 

02 

JRESTORE Y 

02CA 

A6 

01 



LDX 

01 

JRESTORE X 

02CC 

AS 

00 



LDA 

00 

J RESTORE A 

02CE 

40 




RTI 


JRETURN TO PROGRAM 

02CF 

A5 

04 


M0DPC 

LDA 

04 

JL0AD PCL IN A 

0201 

FO 

07 



BEQ 

ALTER1 

JBRANCH IF PCL * 0 

02D3 

C 6 

04 


ALT1 

DEC 

04 

JSET PCL = PCL-1 

0205 

FO 

08 



SEQ 

ALTER2 

JBRANCH IF PCL = 0 

0207 

C6 

04 


ALT2 

DEC 

04 

JSET PCL * PCL-2 

02D9 

60 




RTS 


J RETURN FROM SUBROUTINE 

02DA 

C6 

05 


ALTER1 

DEC 

OS 

JSET PCH • PCH-I 

020C 

4C 

03 

02 


JMP 

ALT1 

J JUMP TO ALT1 

02DF 

C6 

05 


ALTER2 

DEC 

05 

JSET PCH = PCH-1 

02E1 

4C 

07 

02 


JMP 

ALT2 

J JUMP TO ALT2 






END 
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D€flV€R TlflV BRSIC FOR 6060s 
fl 2nd version thot includes l-D orroys 


F.J. Greeb, 1915 S. Cape Way, Denver CO 80227, (303) 986-6651 

[An earlier release of Fred’s Tiny BASIC was submitted to the 
Denver Amateur Computer Society. This release is a considerably 
improved version.] 

This is a version of Tiny BASIC based on the design notes 
which have been published in People’s Computer Company 
newspaper, and in the Journal. The program is written in 8080 
assembly language for a system utilizing a TV-Typewriter and a 
Suding-type cassette tape interface. The program requires 
approximately 2.75K bytes of memory, including storage space 
for variables. 

COMMAND SET 


LET 

IF 

DIM 

PR (print) 

CLEAR 

REM 

GOTO 

LIST 

CLRS 

GOSUB 

RUN 

SIZE 

RET (return) 

END 

TAPE 

IN (input) 


LOAD 


DIM -- allows single-dimensioned variables (only single 
letter variables may be dimensioned) 

REM -- remarks follow 
CLRS -- clears screen on TVT 

SIZE -- prints number of bytes used, and number remain¬ 
ing (does not include dimensioned-variable stor¬ 
age areas, which are above the program) 

Control -- X input in response to an INPUT statement 
returns control to the Tiny BASIC monitor. 

FEATURES AND RESTRICTIONS 

Integer Arithmetic only, +/- 32767 maximum range 
Single letter variables optionally followed by the numbers 
1 to 6 

1 -dimensional variables 

Only one function available RND(X); random number 
generator, returns a value between 0 and +32767. If 
X 0, initialize the routine and return a random 
number. If X = 0, return a random number. 

Multiple statements per line allowed using a colon (:) 
separator. 

Strings ok in print statements; string variables not 
allowed. 

Direct mode operation (except that GOSUB and INPUT 
will not operate in the direct mode) 

Built-in editor for creation/modification of programs 
Full line erase using a ?. No single character erase. 

Dump and load programs to/from cassette tape 
Implied THEN in IF statements. The THEN clause may 
have any recognizable Tiny BASIC statements. Multiple 
statements following an IF THEN clause will be execut¬ 
ed only if the relational clause is satisfied. 

Single byte line numbers, 2 to 255 


Zone spacing suppression on PRINT statements using a 
semi-colon (;) 

Expressions may be input (e.g., 3 * 5/2 is a valid input) 

ARITHMETIC OPERATIONS 

+, -, *, / allowed. Expressions are evaluated from left to 
right with multiply/divide precedence unless otherwise 
parenthesized. 

Too deeply nested parentheses is the most common 
cause of error number 45. The expression complexity 
which can be handled is a function of the program 
being processed. Variables and expression operands are 
stored in a common memory block, with variable 
values entered from the bottom up, and expression 
operands from the top down. If overlap occurs, the 
error message is output. If only a few variables have 
been referenced, a very complex expression can be 
handled. If the maximum allowable number of vari¬ 
ables (120) have been referenced, arithmetic expressions 
must be kept very simple. 

COMMAND MODE 

A “greater-than” symbol ( > ) is output indicating that 
the interpreter is awaiting a command from the keyboard. 
Commands entered with a line number will be entered in 
proper numerical sequence in the program area. Com¬ 
mands entered without a line number will be executed 
immediately if possible. Errors encountered in the direct 
mode will be output as mmm AT O since there is no line 
number associated with them. 

The LIST command is optionally followed by two 
numbers (LIST mmm nnn). If no numbers are entered, 
the entire file will be displayed on the TVT. If LIST mmm 
is entered, line mmm will be listed. If both mmm and nnn 
are entered, the listing will be from line number mmm to 
nnn, inclusive. If mmm or nnn do not exist, the first line 
number greater than the input numbers will be used as 
limits. 

LIST, RUN, CLEAR, TAPE (Output a program to cassette), 
and LOAD (Input a program from cassette), are designed 
to be used primarily in the command mode. If these 
commands are included in a program, they will execute 
properly, but upon completion (with the exception of 
RUN, which will simply restart the program), they will 
return control to the monitor portion of the program 
(i.e., a “> ” will be output as a prompt, and no further 
statements will be executed until a command is input). 

OTHER FEATURES & 

A SAMPLE PROGRAM 

Some other features of the system are best illustrated by 
the following sample program: 


Page 20 Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 3^fT, Menlo Park CA 94025 March, 1976 


75 



5 GOSUB 200 
10 PR “INPUT X,Y”; 

20 IN X,Y 

22 IF X=0 GO TO 230 

23 IF Y=0 GO TO 230 
25 IF X <0 LET X=-X 
30 IF Y<0 Y=-Y 

40 IF X> =100 X=X/7 :GOTO 40 
50 IF Y> 120 Y=Y/111 :GOTO 50 
60 IF X<> 0 IF Y<> 0 Z=RND(X*Y) 

65 IF Z> 100 Z=Z/8: GOTO 65 
67 C2 = 0 
70 PR 

75 PR “I MADE A NEW NUMBER” 

80 IF C> 5 GOSUB 200 
85 PR “GUESS MY NUMBER”; 

90 IN Cl 

95 C2 = C2 + 1 : C = C + 1 
100 IF Cl = Z GOTO 160 
110 IF Cl <Z GOTO 130 
120 PR Cl,; “IS TOO HIGH” 

125 GOTO 80 

130 PR Cl,; “IS TOO LOW” 

140 GOTO 80 

160 PR “♦**** THAT’S IT *****” 

163 PR “YOU TOOK”,;C2,;“GUESSES” 

165 PR “INPUT 1 TO TRY AGAIN” 

170 IN Cl 

175 IF Cl = 1 GO TO 5 
180 END 
200 CLRS 
210 LET C=0 
220 RET 

230 PR “YOU CAN’T USE ZERO” 

235 GOSUB 200 
240 GOTO 10 

Line 20 illustrates multiple inputs. The input values must 
be separated by a single character (normally a comma, but 
this is not required), and the entire input string of num¬ 
bers terminated by a carriage return. The input routine out¬ 
puts question mark as a prompt to indicate it is awaiting 
input data. A question mark input will erase the entire line 
of input. 

Line 30, and several others, illustrate the implied LET 
statement. LET X=8 and X=8 both produce the same 
result. Using the LET statement speeds up execution. 
Omitting the LET saves space in the program memory area. 

Lines 40, 50, and 65 illustrate a special use of multiple 
statements per line. The statements following the colon will 
execute only if the relational operator is satisfied. Thus, 
each of these statements will loop on themselves until the 
variable value is reduced below the relational limit. 

Line 60 illustrates chaining of relational statements. The 
final statement will be executed only if both relational 
operators are satisfied, which, for this program, will always 
be true. 

Line 70 will print a carriage return. This statement will 
only work with a C/R terminator, and will produce a 
syntax error if followed by a colon for multi-statement 


lines. 

Lines 85 and 130 illustrate zone spacing suppression. 
Only the semicolon is required to suppress zone spacing. 
Zones are eight columns wide, which is convenient for a 
TVT. Zone 5 then starts a new line. Leading zeros are 
suppressed on numerical output. 

Line 200 illustrates a special feature included for the 
TVT. CLRS calls a clear-screen routine, to avoid overwriting 
old data. Scrolling would be nicer, but my TVT won’t do 
that. 

Throughout the program, blanks may be included or 
omitted freely. In general, blanks may be used or omitted 
between variables, constants, commands, etc., to make the 
program more readable, or save memory space. 10X=3 
works just as well as 10 X = 3 but it doesn’t look as nice. 
GOTO and GOSUB may also be separated by blanks if 
desired. Blanks do act as separators. 

CONVERSION TO OTHER SYSTEMS 

Conversion to other 8080 systems should be fairly straight¬ 
forward. The program was assembled with a starting 
location of 000 003 (split octal), but could be relocated 
elsewhere. The only routine not contained within the pro¬ 
gram is CRLF (output a carriage return). This routine is 
contained in a small monitor PROM in my system, which is 
also the reason for the starting location not being 000 000. 
This location is normally loaded with a jump instruction so 
that the monitor PROM is entered when the system is 
reset. All variable storage locations are provided within the 
2.75K memory allocation. The 8080 stack for subroutine 
calls and push/pop operations is external to the program. I 
use a 128 byte ram dedicated to this purpose. 

The main conversion problem will occur in the I/O 
portions. My TVT uses hardware control of the 8080 
ready line, and will operate directly with an IN or OUT 
instruction. If it is necessary to modify this approach, the 
best technique would probably be to change the IN and 
OUT instructions to CALL instructions, and write sub¬ 
routine suitable for the particular I/O device. The IN 
instruction is used only in the one input subroutine 
(DTIN), but the OUT instruction is used in several 
routines (DTIN, DECA, CNW, PRS, LIST, and ERRS). 

The tape routines for the TAPE and LOAD commands 
are based on software timing control of a Suding-type 
cassette interface. They would have to be replaced if a 
different type of interface was used. (Note: the output to 

tape routine does not include the usual 5 second delay at 
the start; data transmission begins immediately.) The 
timing constants used produce a data rate of approxi¬ 
mately 660 baud in my 8080 system operating with a 1.25 
MHz clock and no memory wait states. 

No change is required to utilize Teletype lingth I/O 
lines. The input buffer accepts a 72-character input line, 
and will store it in memory properly. This also allows 
program lines which are longer than the 32-character TVT 
capability to be processed properly. Program lines are 
terminated by a carriage return and not by any fixed length. 
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Another variable which may require changing is MMAX, 
(used in the editor portion, subroutine RPIN), which sets 
the maximum memory size (high portion of address only). 
The Tiny BASIC program to be processed is stored above 
the interpreter, and is limited to a maximum address of 
MMAX. This value is currently set to octal 040, correspond¬ 
ing to my 8K system. 

For conversion to non-8080 systems, good luck. 
Conversion of the code from the listing should be faster 
than writing a new program, if you are familiar with 8080 
assembly language. 

Some is bound to ask how I get my listings since I 
have no hard-copy device. My assembler produces a 
listing on a cassette. This is then processed by another 
system which has a printer. 

All TVT I/O is handled through subroutine calls for ease 
of conversion to other systems. The two 3-byte subroutines 
TVT1 at 002 156 and TVT0 at 002 161) may be replaced by 
JUMPs to more complex I/O routines. If the new routines 
are placed at the end of the program, the value of TOPL 
which specifies the first available memory location must be 
changed. I think the only reference to this symbol is at 
location 000 014, where the EOF pointer is initialized. No 
other changes should be required to change the I/O 
procedures. 


ERROR DETECTION 

Errors detected during execution of a Tiny BASIC program 
will cause an output of the form mmm AT nnn, where mmm 
is the error number, and nnn is the line number where the 
error was detected. The following errors are detected by the 
interpreter program: 

10 - Syntax error 

15 - Invalid line number (<2 or > 255) detected by 
editor also 

20 - Memory overflow (program too large) 

25 - End of file detected 

30 - Attempt to transfer to a non-existing line number 
(GOTO or GOSUB) 

35 - GOSUBs nested too deep (8 maximum) 

40 - Too many variables (120 maximum) 

45 - A-stack/V-stack overflow. Combination of number 
of variables and expression complexity too great. 

50 - RET with no GOSUB 

55 - No closing quote on string print 

60 - Relational operator error 

(=, <,>,<=,>=,><,<>) 

65 - Missing right parenthesis 
70 - Undefined variable in expression evaluation 
75 - Add/Subtract overflow 
80 - Multiply overflow 
85 - Attempt to divide by zero 
90 - End statement detected 
95 - Empty A-stack on pop operation 
100 - Input line too long (72 characters + C/R maximum) 
105 - Dimensioned-variable error 


PLANNED MODIFICATIONS 
(Things I would like to add) 

More Commands 
FOR NEXT loops 
Multiple-dimensioned variables 
String variables 

Floating point arithmetic and I/O routines 
More functions 
Etc., etc. 

I haven’t really devoted any time to them yet. Any help, 
suggestions, routines, or whatever anyone cares to contrib¬ 
ute (especially a printer) will be greatly appreciated. 

[A collage to two letters from Fred; February 21st, and April 2nd] 
Dear Dennis and Jim, 

Excuse the lack of detailed comments in the assembly listing. 
I have an 8K system, and an assembler which requires 4K. Even 
with only the few comments, and Tab capability in the source 
code generation, the source code requires around 14K, which is 
assembled in four blocks. 

There are a few misprints in the listing (they are obvious, 
the entire line is moved to the left), but I don’t think that will 
cause any problems if someone wants to implement the Tiny 
BASIC interpreter. 

I would like to implement a different-format language, 
structured more specifically for the small system. I haven’t 
formalized all of the details yet, but I anticipate using the follow¬ 
ing approach: 1) Separate editor and interpreter program. This is 
not as convenient, but it allows a much more sophisticated text 
edit capability without sacrificing memory space during execution. 
2) Only referenced lines (GOTO, GOSUB) numbered. Without the 
resident editor, line numbers are not nearly as useful. 3) Partial 
symbol table formation prior to execution. Numbered line 
addresses stored in the symbol table to reduce execution time for 
GOTO/GOSUB statements. 4) Scan off all blanks at load time, 
except in string prints, to reduce program memory requirements. 

I will probably also go to an IL type of program rather than 
direct coding in assembly language, since I am beginning to 
understand it and appreciate its features after numerous readings 
of the PCC articles, and the first Journal. 

I have been programming in assembly language and high 
level languages for some time, but this was my first attempt at 
implementing a new language for a machine. The Tiny BASIC 
design articles have been a tremendous help. I don’t think that I 
would have been as far as I am now without their help. 

I have a couple game programs running in my Tiny BASIC. 

If I figure out how to get a listing of them, I will send them 
along. The program that I use to generate the assembler listings 
will not handle programs written in (Tiny) BASIC, since the line 
numbers are stored in Binary rather than ASCII. 

If you’re interested in it, I also have a fairly sophisticated 
text editor program. It is a string/line-oriented editor modeled 
after the PDP-9 text editor. It has 28 different commands. 

-Fred 

YES! We would be delighted to publish your Text Editor. Send it 
along ASAP, and keep up the good work. The more everyone 
shares, the more everyone gains. -JCW, Jr. 


Page 22 Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 March, 1976 


77 




TINV BASIC INTERPRETER MOD i 


F. J. GREEB 


OOO 

003 




♦ TINV 

BASIC INTERPRETER 

ooo 

003 




* INTEGER ARITHMETIC 

000 

003 




* WITH 

RND FUNCTION 

000 

003 




* 


OOO 

003 

061 

200 

347 

STRT LXI 

S P, STAK 

OOO 

006 

315 

220 

340 

CRLL 

CLRS 

000 

Oil 

315 

061 

OOO 

CALL 

INIT INITIALIZE 

oao 

014 

041 

261 

013 

LXI 

H,TOPL 

000 

017 

066 

001 


MVI 

M, 1 

000 

021 

042 

315 

Oil 

SHLD 

EFPN 

000 

024 

257 



ERNT XRA 

A 

000 

025 

062 

325 

Oil 

STA 

LNUM 

000 

030 

036 

077 


MVI 

E, 

000 

032 

076 

076 


MVI 

A, O' 

000 

034 

315 

151 

000 

CALL 

DTIN+8 

000 

037 

041 

147 

013 

LXI 

H. IBUF 

OOO 

042 

042 

323 

Oil 

SHLD 

APNT 

000 

045 

315 

231 

OOO 

CALL 

NTST TEST FOR ft 

000 

050 

332 

164 

002 

JC 

STM NO #. XCT 

000 

053 

315 

352 

000 

CALL 

RPLN EDIT 

000 

056 

303 

024 

000 

JMP 

ERNT 

000 

061 




* INITIALIZATION ROUTINE 

000 

061 

041 

357 

Oil 

INIT LXI 

H, SVMT 

000 

064 

006 

170 


MVI 

6, NSVM 

000 

066 

315 

131 

000 

CALL 

CLER 

000 

071 

062 

341 

Oil 

STA 

CHCT 

000 

074 

052 

315 

Oil 

LHLD 

EFPN 

000 

077 

043 



INX 

H 

OOO 

100 

042 

321 

Oil 

SHLD 

NMLC 

000 

103 

041 

147 

013 

LXI 

H, ASTR 

000 

106 

042 

327 

011 

SHLD 

ASTK 

000 

111 

041 

147 

012 

LXI 

H, VSTR 

000 

114 

042 

331 

Oil 

SHLD 

VSTK 

000 

117 

041 

346 

Oil 

LXI 

H, RSTR-1 

000 

12 2 

167 



MOV 

M, A 

000 

123 

043 



INX 

H 

000 

124 

167 



MOV 

M, A 

000 

125 

042 

333 

Oil 

SHLD 

RSTK 

000 

130 

311 



RET 


000 

131 




* CLER - 

ZERO'S MEMORV 

000 

131 

257 



CLER XRA 

A 

000 

132 

167 



MOV 

M, A 

000 

133 

043 



INX 

H 

000 

134 

005 



OCR 

B 

000 

135 

302 

132 

000 

JNZ 

CLER+1 

000 

140 

311 



RET 


000 

141 




* DTIN - 

INPUT ROUTINE 

000 

141 

036 

077 


DTIN MVI 

Es '?' 

000 

143 

173 



MOV 

A, E 

000 

144 

315 

161 

002 

CALL 

TVTO 

000 

147 

076 

040 


MVI 

A, ' ' 

000 

151 

315 

161 

002 

CALL 

TVTO 

000 

154 

041 

147 

013 

DTN1 LXI 

H. IBUF 

000 

157 

345 



PUSH 

H 

000 

160 

006 

112 


MVI 

B.IBLN 

000 

162 

315 

131 

000 

CALL 

CLER 

000 

165 

341 



POP 

H 

000 

166 

006 

110 


MVI 

B, IBLN-2 

000 

170 

315 

156 

002 

DTN2 CALL 

TVTI 

000 

173 

273 



CMP 

E 

000 

174 

312 

154 

000 

JZ 

DTN1 

000 

177 

376 

030 


CPI 

18H 

000 

201 

302 

215 

000 

JNZ 

*♦9 

000 

204 

061 

200 

347 

LXI 

SP,STAK 

000 

207 

315 

076 

340 

CALL 

CRLF 

000 

212 

303 

024 

000 

JMP 

ERNT 

000 

215 

167 



MOV 

M/ A 

000 

216 

376 

015 


CPI 

13 

000 

2 20 

310 



RZ 


000 

221 

0O5 



OCR 

B 

000 

222 

372 

303 

Oil 

JM 

ILTL 

000 

225 

043 



INX 

H 

000 

226 

303 

170 

000 

JMP 

DTN2 

000 

231 




♦ NTST - 

TEST INPUT FOR LINE 

000 

231 

315 

271 

000 

NTST CALL 

SBLK 

000 

234 

315 

307 

000 

CALL 

TSTN 

000 

237 

330 



RC 


000 

240 

104 



MOV 

B, H 

000 

241 

115 



MOV 

Cj l 

000 

242 

315 

322 

000 

CALL 

ADEC 

000 

245 

174 



MOV 

A, H 

000 

246 

267 



ORA 

A 

000 

247 

302 

147 

011 

JNZ 

ERRM 

000 

252 

175 



MOV 

A, L 

00O 

253 

376 

002 


CPI 

2 

eoo 

255 

332 

147 

Oil 

JC 

ERRM 

000 

260 

062 

326 

011 

STA 

FNUM 

000 

263 

140 



MOV 

H, B 

000 

264 

151 



MOV 

L, C 

000 

265 

042 

323 

011 

SHLD 

APNT SET APNT 

000 

270 

311 



RET 



OOO 271 


000 

271 

052 

323 

Oil 

SBLK LHLD 

APNT 

000 

274 

176 



MOV 

A, M 

000 

275 

376 

040 


CPI 


000 

277 

300 



RNZ 


OOO 

300 

043 



INX 

H 

000 

301 

042 

323 

011 

SBL1 SHLD 

APNT 

000 

304 

303 

274 

000 

JMP 

SBLK♦3 

000 

307 




♦ TSTN - 

TEST FOR NUMERIC 

000 

307 

052 

323 

011 

TSTN LHLD 

APNT 

000 

312 

176 



MOV 

A, M 

000 

313 

376 

060 


TSN1 CPI 

'0' 

000 

315 

330 



RC 


000 

316 

376 

072 


CPI 

'9' + l 

0O0 

320 

077 



CMC 


000 

321 

311 



RET 


000 

322 




♦ ADEC - 

CONVERT ASCII NUMBER 

000 

322 




* 

TO BINARV 

000 

322 

041 

000 

000 

ADEC LXI 

H, 0 

000 

325 

012 



LDRX 

B 

000 

326 

315 

313 

008 

CALL 

TSN1 

000 

331 

330 



RC 


000 

332 

124 



MOV 

D, H 

000 

333 

135 



MOV 

E, L 

000 

334 

051 



DAD 

H 

000 

335 

051 



DAD 

H 

000 

336 

031 



DAD 

D 

000 

337 

051 



DAD 

H 

000 

340 

326 

060 


SUI 

48 

000 

342 

137 



MOV 

E, A 

000 

343 

026 

000 


MVI 

D, 0 

000 

345 

031 



DAD 

D 

000 

346 

003 



INX 

B 

000 

347 

303 

325 

000 

JMP 

A0EC+3 

000 

352 




* RPLN - REPLACE LINE 

000 

352 

315 

115 

001 

RPLN CALL 

LNFD 

000 

355 

302 

016 

001 

JNZ 

INSL 

000 

360 

345 



PUSH 

H 

000 

361 

345 



PUSH 

H 

000 

362 

043 



INX 

H 

000 

363 

315 

141 

001 

CALL 

NXTL 

000 

366 

321 



POP 

D 

000 

367 




* DELETE 

OLD LINE 

000 

367 

176 



RPL1 MOV 

A, M 

000 

370 

022 



STAX 

D 

000 

371 

023 



INX 

D 

000 

372 

043 



INX 

H 

000 

373 

376 

002 


CPI 

2 

000 

375 

322 

367 

000 

JNC 

RPL1 

001 

000 

033 



DCX 

D 

001 

001 

353 



XCHG 


001 

002 

042 

315 

011 

SHLD 

EFPN 

001 

005 

321 



POP 

D 

001 

006 

052 

323 

011 

LHLD 

APNT 

001 

Oil 

176 



MOV 

A, M 

001 

012 

376 

015 


CPM 

13 

001 

014 

310 



RZ 


001 

015 

353 



XCHG 


001 

016 




♦ INSERT NEW LINE - COUNT 

001 

016 




♦ CHARACTERS IN NEW LINE 

001 

016 

353 



INSL XCHG 


001 

017 

052 

323 

011 

LHLD 

APNT 

001 

022 

001 

001 

000 

LXI 

B, 1 

001 

025 

176 



INS1 MOV 

A, M 

001 

026 

014 



INR 

C 

001 

027 

043 



INX 

H 

001 

030 

376 

015 


CPI 

13 

001 

032 

302 

025 

001 

JNZ 

INS1 

001 

035 

052 

315 

011 

LHLD 

EFPN 

001 

040 

345 



PUSH 

H 

001 

041 

011 



DAD 

B 

001 

042 

174 



MOV 

A/ H 

001 

043 

376 

040 


CPI 

MMAX 

001 

045 

322 

154 

011 

JNC 

ERMO 

001 

050 

042 

315 

011 

SHLD 

EFPN NEW EOF 

001 

053 

301 



POP 

B 

001 

054 




♦ MOVE ALL LINES UP 

001 

054 

012 



INS2 LDAX 

B 

001 

055 

167 



MOV 

M, A 

001 

056 

170 



MOV 

A. B 

222 




SUB D 


001 

060 

053 



DCX 

H 

001 

061 

013 



DCX 

6 

001 

062 

302 

054 

001 

JNZ 

INS2 

001 

065 

171 



MOV 

A/ C 

001 

066 

074 



INR 

A 

001 

067 

223 



SUB 

E 

001 

070 

302 

054 

001 

JNZ 

INS2 
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001 

073 




♦ INSERT 

NEW LINE 

001 

073 

072 

326 

011 

LDA 

FNUM 

001 

076 

022 



STRX 

D 

001 

077 

023 



I NX 

D 

001 

100 

052 

323 

011 

LHLD 

RPNT 

001 

103 

176 



INS3 MOV 

A. M 

001 

104 

022 



STftX 

D 

001 

105 

043 



I NX 

H 

001 

106 

023 



I NX 

D 

001 

107 

376 

015 


CPI 

13 

001 

111 

3G2 

103 

001 

JN2 

INS3 

001 

114 

311 



RET 


001 

115 




* LNFD - 

LINE FINDER 

001 

115 

041 

261 

013 

LNFD LXI 

Ha TOPL 

001 

120 

07? 

326 

011 

LDA 

FNUM 

001 

123 

107 



MOV 

B, A 

001 

124 

176 



LNF1 MOV 

Ra M 

001 

125 

376 

002 


CPI 

2 

001 

127 

330 



RC 


001 

130 

270 



CMP 

B 

001 

131 

320 



RNC 


001 

132 

043 



I NX 

H 

001 

133 

315 

141 

001 

CALL 

NXTL 

001 

136 

303 

124 

001 

JMP 

LNF1 

001 

141 




4- NXTL - GET NEXT LINE STRRT 

001 

141 

176 



NXTL MOV 

R/ M 

001 

142 

043 



I NX 

H 

001 

143 

376 

015 


CPI 

13 

001 

145 

310 



R2 


001 

146 

322 

141 

001 

JNC 

NXTL 

001 

151 

053 



OCX 

H 

001 

152 

311 



RET 


001 

153 




4* RND - RRNDOM NUMBER GEN 

001 

153 

315 

154 

005 

RND CALL 

RSPP 

001 

156 

175 



MOV 

A* L 

001 

157 

264 



ORR 

H 

001 

160 

312 

171 

001 

JZ 

GEN 

001 

163 

062 

345 

011 

STR 

LORD 

001 

166 

042 

343 

011 

SHLD 

HORD 

001 

171 

072 

345 

011 

GEN LDR 

LORD 

001 

174 

016 

017 


MV I 

C, 15 

001 

176 

107 



MOV 

B, R 

001 

177 

346 

041 


AN I 

33 BITS 19 t 24 

001 

201 

352 

205 

001 

JPE 

GEN1 

001 

204 

067 



STC 


001 

205 

052 

343 

011 

GEN1 LHLD 

HORD 

001 

210 

315 

256 

001 

CALL 

HLRS 

001 

213 

042 

343 

011 

SHLD 

HORD 

001 

216 

170 



MOV 

Ra B 

001 

217 

037 



RRR 


001 

220 

015 



DCR 

C 

001 

221 

302 

176 

001 

JNZ 

GEN+5 

001 

224 

062 

345 

011 

STR 

LORD 

001 

227 

076 

177 


MV I 

R/ 7FH 

001 

231 

244 



RNR 

H 

001 

232 

147 



MOV 

Ha R 

001 

233 

315 

134 

005 

CALL 

RSPH 

001 

236 

311 



RET 


001 

237 




4* HLCM - HL COMPLEMENT 

001 

237 

175 



HLCM MOV 

A* L 

001 

240 

057 



CMR 


001 

241 

157 



MOV 

La R 

001 

242 

174 



MOV 

A, H 

001 

243 

057 



CMR 


001 

244 

147 



MOV 

H, R 

001 

245 

043 



I NX 

H 

001 

246 

311 



RET 


001 

247 




♦ HLLS - HL LEFT SHIFT 

001 

247 

175 



HLLS MOV 

A* L 

001 

250 

027 



RRL 


001 

251 

157 



MOV 

La R 

001 

252 

174 



MOV 

A* H 

001 

253 

027 



RRL 


001 

254 

147 



MOV 

Ha R 

001 

255 

311 



RET 


001 

256 




♦ HLRS - 

HHL RIGHT SHIFT 

001 

256 

174 



HLRS MOV 

Ra H 

001 

257 

037 



RRR 


001 

260 

147 



MOV 

Ha R 

001 

261 

175 



MOV 

Ra L 

001 

262 

037 



RRR 


001 

263 

157 



MOV 

La fl 

001 

264 

311 



RET 


001 

265 




* BUML - 

BINRRV MULTIPLY 

001 

265 

345 



BUML PUSH 

H 

001 

266 

041 

000 

000 

LX I 

Ha 0 

001 

271 

042 

337 

011 

SHLD 

PRD2 

001 

274 

006 

020 


MV I 

Ba 16 

001 

276 

052 

335 

011 

BUfll LHLD 

PRD1 

001 

301 

315 

256 

001 

CALL 

HLRS 

001 

304 

042 

335 

011 

SHLD 

PRD1 

001 

307 

052 

337 

011 

LHLD 

PRD2 


601 

312 

322 

320 

001 

JNC 

BUM2 

001 

315 

321 



POP 

D 

001 

316 

031 



DAD 

D 

001 

317 

325 



PUSH 

D 

001 

320 

315 

256 

001 

BUM2 CALL 

HLRS 

001 

323 

042 

337 

011 

SHLD 

PRD2 

001 

326 

005 



DCR 

B 

001 

327 

302 

276 

001 

JNZ 

BUM1 

001 

332 

321 



POP 

D 

001 

333 

052 

335 

011 

LHLD 

PRD1 

001 

336 

315 

256 

001 

CRLL 

HLRS 

001 

341 

311 



RET 


001 

342 




♦ BUDV - 

BINARY DIVIDE 

001 

342 

315 

237 

001 

BUDV CALL 

HLCM 

001 

345 

345 



PUSH 

H 

001 

346 

006 

021 


MV I 

Ba 17 

267 




ORR R 


001 

351 

052 

337 

011 

BUD1 LHLD 

DVD2 

001 

354 

315 

247 

001 

CRLL 

HLLS 

001 

357 

042 

337 

011 

SHLD 

DVD2 

001 

362 

005 



DCR 

6 

001 

363 

312 

014 

002 

JZ 

BUD2 

001 

366 

052 

335 

011 

LHLD 

DVD1 

001 

371 

315 

247 

001 

CRLL 

HLLS 

001 

374 

042 

335 

011 

SHLD 

DVD1 

001 

377 

321 



POP 

D 

002 

000 

073 



DCX 

SP 

002 

001 

073 



DCX 

SP 

002 

002 

031 



DRD 

D 

002 

003 

322 

351 

001 

JNC 

BUD1 

002 

006 

042 

335 

011 

SHLD 

DVD1 

002 

Oil 

303 

351 

001 

JMP 

BUD1 

002 

014 

321 



BUD2 POP 

D 

002 

015 

311 



RET 


002 

016 




* SPNZ - 

SPACE TO NEXT ZONE 

002 

016 

072 

341 

011 

SPNZ LDR 

CHCT 

002 

021 

107 



MOV 

Ba R 

002 

022 

326 

010 


SUI 

8 

002 

024 

312 

032 

002 

JZ 

•♦3 

002 

027 

322 

022 

002 

JNC 

SPNZ4-4 

002 

032 

117 



MOV 

Ca R 

002 

033 

015 



DCR 

C 

002 

034 

076 

040 


MV I 

Ra ' ' 

002 

036 

014 



SPN3 INR 

C 

002 

037 

362 

051 

002 

JP 

SPN4 

002 

042 

315 

161 

002 

CRLL 

TVTO 

002 

045 

004 



I NR 

B 

002 

046 

303 

036 

002 

JMP 

SPN3 

002 

051 

170 



SPN4 MOV 

Ra B 

002 

052 

062 

341 

011 

STR 

CHCT 

002 

055 

311 



RET 


002 

056 




♦ VSIN - 

INCREMENT VSTK 

002 

056 

315 

065 

002 

VSIN CRLL 

STOV 

002 

061 

042 

331 

011 

SHLD 

VSTK 

002 

064 

311 



RET 


002 

065 




♦ STOV - 

CHECK FOR OVERFLOW 

002 

065 

052 

327 

011 

STOV LHLD 

RSTK 

002 

070 

353 



XCHG 


002 

071 

052 

331 

011 

LHLD 

VSTK 

0O2 

074 

043 



I NX 

H 

002 

075 

043 



I NX 

H 

002 

076 

175 



MOV 

Ra L 

002 

077 

223 



SUB 

E 

002 

100 

174 



MOV 

Ra H 

232 




SBB D 


002 

102 

322 

214 

011 

JNC 

STOF 

002 

105 

311 



RET 


002 

106 




+ TAPE INPUT ROUTINE 

002 

106 

016 

001 


TPIN MVI 

Ca 1 

002 

110 

021 

010 

000 

LX I 

Da 8 

002 

113 

333 

001 


IN 

TRPU 

002 

115 

241 



RNR 

C 

002 

116 

302 

113 

002 

JNZ 

TPIN+5 

002 

121 

006 

300 


MVI 

Ba 192 

002 

123 

005 



DCR 

B 

002 

124 

302 

123 

002 

JNZ 

*-4 

002 

127 

333 

001 


TPI2 IN 

TRPU 

002 

131 

241 



ANA 

C 

0O2 

132 

202 



ADD 

D 

002 

133 

017 



RRC 


002 

134 

127 



MOV 

Da fl 

002 

135 

006 

200 


MVI 

Ba 128 

002 

137 

005 



DCR 

B 

002 

140 

302 

137 

002 

JNZ 

1-4 

002 

143 

035 



DCR 

E 

002 

144 

302 

127 

0O2 

JNZ 

TP 12 
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002 147 
002 150 
002 151 
002 152 
002 153 
002 156 
002 160 
002 161 
002 163 
0O2 164 
002 164 
002 164 
002 167 
002 172 
002 175 
002 200 
002 203 
002 206 
002 211 
002 214 
002 217 
002 222 
002 223 
002 226 
002 230 
002 231 
002 234 
002 237 
002 242 
002 245 
002 250 
002 253 
002 256 
002 257 
002 260 
002 263 
002 266 
0O2 271 
002 274 
002 277 
002 302 
002 304 
002 305 
002 310 
002 311 
002 312 
002 315 
002 320 
002 323 
002 326 
092 331 
002 334 
002 337 
002 342 
002 345 
002 346 
002 351 
002 354 
002 357 
002 360 
002 362 
002 365 
002 367 
002 372 
002 373 
002 376 
003 001 
003 002 
003 005 
003 010 
003 013 
003 014 
003 017 
003 020 
003 022 
0O3 025 
003 027 
003 032 
003 035 
003 040 
003 043 
003 044 
003 045 
003 05O 
003 053 
003 056 
003 061 
003 064 
003 067 


167 

271 

310 
043 

303 110 002 
333 000 

311 

323 000 
311 


MOV M, A 
CMP C 
RZ 

I NX H 
JMF TPIN+2 
TVTI IN TVT 
RET 

TVTO OUT TVT 
RET 

* END BLOCK 1 

* STMT - STATEMENT PROCESSOR 


021 

226 

O02 

STMT 

LXI 

D, LTMS 

315 

076 

004 


COLL 

TST 

315 

303 

004 

STM1 

CALL 

TSTV 

332 

067 

011 


JC 

ERRS 

021 

222 

002 


LXI 

D/ EQMS 

315 

076 

004 


CALL 

TST 

315 

226 

006 


CALL 

EXPR 

315 

150 

004 


CALL 

DONE 

31.5 

052 

005 


CALL 

STOR 

303 

164 

004 


JMP 

NXT 

275 



EQMS 

DB 

'■'♦128 

303 

067 

Oil 


JMP 

ERRS 

114 

105 


LTMS 

DU 

'LE' 

324 




DB 

'T'+128 

021 

310 

002 


LXI 

D> QOMS 

315 

076 

004 


CALL 

TST 

021 

256 

002 


LXI 

D, TOMS 

315 

076 

004 


CALL 

TST 

315 

226 

006 


CALL 

EXPR 

315 

150 

004 


CALL 

DONE 

303 

216 

004 


JMP 

XFER 

124 



TOMS 

DB 

'T' 

317 




DB 

'0'+128 

021 

302 

002 


LXI 

D, SBMS 

315 

076 

004 


CALL 

TST 

315 

226 

006 


CALL 

EXPR 

315 

150 

004 


CALL 

DONE 

315 

250 

004 


CALL 

SAV 

303 

216 

004 


JMP 

XFER 

123 

125 


SBMS 

DM 

'SU' 

302 




DB 

'B'+128 

303 

067 

011 


JMP 

ERRS 

107 



GOMS 

DB 

'0' 

317 




DB 

'0'+128 

021 

043 

003 


LXI 

D, PRMS 

315 

076 

004 


CALL 

TST 

021 

013 

003 

PRT1 

LXI 

D, QUMS 

315 

076 

004 


CALL 

TST 

315 

204 

005 


CALL 

PRS 

021 

345 

002 

PRT2 

LXI 

0, CMMS 

315 

076 

004 


CALL 

TST 

315 

016 

002 


CALL 

SPNZ 

303 

320 

002 


JMP 

PRT1 

254 



CMMS 

DB 

'♦128 

021 

375 

002 


LXI 

D, SMMS 

315 

076 

004 


CALL 

TST 

052 

323 

011 


LHLD 

APNT 

176 




MOV 

A, M 

376 

015 



CPI 

13 

312 

005 

003 


JZ 

SMM2 

376 

072 



CPI 

' : ' 

302 

320 

002 


JNZ 

PRT1 

303 

005 

003 


JMP 

SMM2 

273 



SMMS 

DB 

'i '^128 

315 

076 

340 


CALL 

CRLF 

257 




XRA 

A 

062 

341 

011 


STA 

CHCT 

315 

150 

004 

SMM2 

CALL 

DONE 

303 

164 

004 


JMP 

NXT 

242 



QUMS 

DB 

'*•'♦128 

052 

323 

011 


LHLD 

APNT 

176 




MOV 

A. M 

376 

015 



CPI 

13 

312 

376 

002 


JZ 

SMMS^l 

376 

072 



CPI 

' : ' 

312 

376 

002 


JZ 

SMMS^l 

315 

226 

006 


CALL 

EXPR 

315 

105 

005 


CALL 

PRNV 

203 

331 

002 


JMP 

PRT2 

120 



PRMS 

DB 

'P' 

322 




DB 

'R'^128 

021 

107 

003 


LXI 

D,IFMS 

315 

076 

004 


CALL 

TST 

315 

226 

006 


CALL 

EXPR 

315 

074 

006 


CftLL 

RELP 

315 

226 

006 


CALL 

EXPR 

315 

324 

007 


CALL 

CMPR 

322 

164 

002 


JNC 

STMT 


0O3 

072 

052 

323 

011 

IFNX LHLD 

APNT 

0O3 

075 

315 

141 

001 

CALL 

NXTL 

003 

100 

053 



DCX 

M 

003 

101 

042 

323 

Oil 

SHLD 

APNT 

003 

104 

303 

164 

004 

JMP 

NXT 

003 

107 

111 



IFMS DB 

'I' 

003 

110 

306 



DB 

'F'^129 

003 

111 

021 

166 

003 

LXI 

D> INMS 

0O3 

114 

315 

076 

004 

CALL 

TST 

0O3 

117 

257 



XRA 

A 

003 

120 

062 

341 

011 

STA 

CHCT 

003 

123 

315 

141 

0G'J 

CRLL 

DT IN 

003 

126 

315 

303 

004 

INM1 CALL 

TSTV 

003 

131 

332 

067 

Oil 

JC 

ERRS 

003 

134 

315 

025 

006 

CALL 

NCOV 

003 

137 

315 

052 

005 

CALL 

STOR 

003 

142 

021 

153 

003 

LXI 

Of CMM1 

003 

145 

315 

076 

004 

CALL 

TST 

003 

150 

303 

126 

003 

JMP 

INM1 

003 

153 

254 



CMM1 DB 

'^128 

003 

154 

257 



XRA 

A 

003 

155 

062 

341 

Oil 

STA 

CHCT 

003 

160 

315 

150 

004 

CALL 

DONE 

003 

163 

303 

164 

004 

JMP 

NXT 

003 

166 

111 



INMS DB 

'I' 

003 

167 

316 



DB 

'N'^128 

003 

170 

021 

204 

003 

LXI 

Of RTMS 

003 

173 

315 

076 

004 

CALL 

TST 

003 

176 

315 

150 

004 

CALL 

DONE 

003 

201 

303 

066 

005 

JMP 

RSTO 

003 

204 

122 

105 


RTMS DU 

'RE' 

003 

206 

324 



DB 

'T'+128 

003 

207 

021 

220 

003 

LXI 

Of ENMS 

003 

212 

315 

076 

004 

CALL 

TST 

003 

215 

303 

271 

Oil 

JMP 

ENDM 

003 

220 

105 

116 


ENMS DU 

'EN' 

003 

222 

304 



DB 

'D'^128 

003 

223 

021 

234 

003 

LXI 

Of LSMS 

003 

226 

315 

076 

004 

CALL 

TST 

003 

231 

303 

310 

010 

JMP 

LIST 

003 

234 

114 

111 

123 

LSMS DU 

'LIS' 

003 

237 

324 



DB 

'T'^128 

003 

240 

021 

265 

003 

LXI 

Of RNMS 

003 

243 

315 

076 

004 

CALL 

TST 

003 

246 

315 

061 

000 

CALL 

INIT 

003 

251 

041 

261 

013 

LXI 

H, TOPL 

003 

254 

176 



MOV 

Rf M 

003 

255 

376 

002 


CPI 

2 

003 

257 

332 

147 

Oil 

JC 

ERRM 

003 

262 

303 

204 

004 

JMP 

NXT1-4 

003 

265 

122 

125 


RNMS DU 

'RU' 

003 

267 

316 



DB 

'N'^128 

003 

270 

021 

301 

003 

LXI 

D, CLMS 

003 

273 

315 

076 

004 

CALL 

TST 

003 

276 

303 

003 

000 

JMP 

STRT 

003 

301 

103 

114 

105 101 

CLMS DU 

'CLEA' 

003 

305 

322 



DB 

'R'^128 

003 

306 

021 

317 

003 

LXI 

Of TPMS 

003 

311 

315 

076 

004 

CALL 

TST 

003 

314 

303 

114 

005 

JMP 

TAPE 

003 

317 

124 

101 

120 

TPMS DU 

'TAP' 

003 

322 

305 



DB 

'E'^128 

003 

323 

021 

345 

O03 

LXI 

D, LDMS 

003 

326 

315 

076 

004 

CALL 

TST 

003 

331 

041 

261 

013 

LXI 

Hf TOPL 

003 

334 

315 

106 

002 

CRLL 

TPIN 

003 

337 

042 

315 

Oil 

SHLD 

EFPN 

003 

342 

303 

024 

000 

JMP 

ERNT 

003 

345 

114 

117 

101 

LDMS DU 

'LOR' 

003 

350 

304 



DB 

'D'^128 

003 

351 

021 

O05 

004 

LXI 

Of DMSG 

003 

354 

315 

076 

0O4 

CALL 

TST 

003 

357 

315 

303 

004 

CALL 

TSTV 

003 

362 

322 

310 

Oil 

JNC 

PMER 

003 

365 

021 

376 

003 

LXI 

Of DMC2 

003 

370 

315 

076 

004 

CALL 

TST 

003 

373 

303 

357 

003 

JMP 

♦—15 

003 

376 

254 



DMC2 DB 

'+128 

003 

377 

315 

150 

004 

CALL 

DONE 

004 

002 

303 

164 

004 

JMP 

NXT 

004 

005 

104 

111 


OMSQ DU 

'DI' 

004 

007 

315 



DB 

'M'^128 

004 

010 

021 

024 

004 

LXI 

0, SZEM 

004 

013 

315 

076 

004 

CALL 

TST 

004 

016 

315 

254 

007 

CALL 

SZER 

004 

021 

303 

024 

000 

JMP 

ERNT 

004 

024 

123 

111 

132 

SZEM DU 

'SIZ' 

004 

027 

305 



DB 

'E'^128 

004 

030 

021 

041 

004 

LXI 

Of RMKS 

004 

033 

315 

076 

004 

CALL 

TST 

004 

036 

303 

072 

003 

JMP 

IFNX 
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004 

041 

122 

105 


RMKS DU 

RE' 


004 

047 

315 



DB 

'M'*128 


004 

044 

021 

067 

004 

LX I 

D, CLRM 


004 

04? 

215 

076 

004 

CALL 

TST 


004 

032 

315 

220 

340 

CALL 

CLRS 


004 

055 

257 



XRfi 

R 


004 

056 

062 

341 

011 

STR 

CHCT 


004 

051 

315 

150 

004 

CRLL 

DONE 


004 

064 

303 

164 

004 

JMP 

NXT 


004 

067 

103 

114 

122 

CLRM DM 

'CLR' 


004 

072 

323 



DB 

'S'♦128 


004 

073 




* END OF 

STATEMENT PROCESSOR 

004 

073 




♦ IF MORE 

OPERATIONS ARE RDDED 

004 

073 




♦ INPUT TESTS HERE 


004 

073 




* 



004 

073 




♦ DEFAULT 

IS LET 


004 

073 




* 



004 

073 

303 

172 

002 

JMP 

STM1 


004 

076 




* TST ROUTINE - STRING 

COMP 

004 

076 




* RLTERNRTE RETURN IF 

NO MATCH 

004 

076 

006 

001 


TST MVI 

B/ 1 


004 

100 

052 

323 

011 

LHLD 

RPNT 


004 

103 

032 



TST1 LDRX 

D 


004 

104 

027 



RRL 



004 

105 

222 

112 

004 

JNC 

TST2 


004 

110 

005 



DCR 

B 


004 

111 

077 



CMC 



004 

112 

037 



TST2 RRR 



004 

113 

276 



CMP 

M 


004 

114 

043 



I NX 

H 


004 

115 

023 



I NX 

D 


004 

116 

302 

132 

004 

JNZ 

TST3 


004 

121 

170 



MOV 

a B 


004 

122 

267 



ORR 

R 


004 

123 

302 

103 

004 

JNZ 

TST1 


004 

126 

315 

301 

000 

CRLL 

SBL1 


004 

131 

311 



RET 



004 

132 




* SET RLT. 

RETURN 


004 

132 

176 



TST3 MOV 

A. B 


004 

133 

267 



ORR 

R 


004 

134 

312 

145 

004 

JZ 

TST5 


004 

137 

032 



TST4 LDRX 

D 


004 

140 

023 



I NX 

D 


004 

141 

027 



RRL 



004 

142 

322 

137 

004 

JNC 

TST4 


004 

145 

353 



TST5 XCHQ 



004 

146 

321 



POP 

D 


004 

147 

351 



PCHL 

ALT RET 

004 

150 




♦ DONE - 

TEST FOR C/R 

OR : 

004 

150 

315 

271 

0O0 

DONE CRLL 

SBLK 


004 

153 

376 

015 


CPI 

13 


004 

155 

310 



RZ 



004 

156 

376 

072 


CPI 

X . X 


004 

160 

310 



RZ 



004 

161 

303 

067 

011 

JMP 

ERRS 


004 

164 




♦ NXT - SETUP FOR NEXT 

LINE • 

804 

164 

052 

323 

011 

NXT LHLD 

RPNT 


004 

167 

176 



MOV 

A, M 


004 

170 

043 



I NX 

H 


004 

171 

376 

072 


CPI 

' : ' 


004 

173 

312 

210 

004 

JZ 

NXT1 


004 

176 

176 



MOV 

A, M 


004 

177 

376 

002 


CPI 

2 


004 

201 

332 

161 

011 

JC 

EOFR 


004 

204 

062 

325 

011 

STR 

LNUM 


004 

207 

043 



I NX 

H 


004 

210 

315 

301 

000 

NXT1 CALL 

SBL1 


004 

213 

303 

164 

002 

JMP 

STMT 


004 

216 




* XFER - 

NEM LINE FOR 

GO 

004 

216 

315 

154 

005 

XFER CRLL 

RSPP 


004 

221 

174 



MOV 

A, H 


004 

222 

267 



ORR 

R 


004 

223 

302 

147 

011 

JNZ 

ERRM 


004 

226 

175 



MOV 

A, L 


004 

227 

376 

002 


CPI 

2 


004 

231 

332 

147 

011 

JC 

ERRM 


004 

234 

062 

326 

011 

XFE1 STR 

FNUM 


004 

237 

315 

115 

001 

CRLL 

LNFD 


004 

242 

302 

175 

011 

JNZ 

ERML 


004 

245 

303 

204 

004 

JMP 

NXT1-4 


004 

250 




+ SRV - SAVE RETURN LINE • 

004 

250 

315 

141 

001 

SRV CALL 

NXTL 


004 

253 

332 

161 

011 

JC 

EOFR 


004 

256 

106 



MOV 

B, M 


004 

257 

041 

357 

011 

LXI 

H,RSTR+8 


004 

262 

353 



XCHG 



004 

263 

052 

333 

011 

LHLD 

RSTK 


004 

266 

175 



MOV 

A. L 


004 

267 

223 



SUB 

E 


004 

270 

174 



MOV 

A* H 


004 

271 

232 



SBB 

D 


004 

272 

322 

202 

011 

JNC 

GSER 



0U4 

tCt 5 

160 



MOV 

M, fc> 


004 

276 

043 



I NX 

H 


004 

277 

042 

333 

011 

SHLD 

RSTK 


004 

302 

311 



RET 



004 

303 




4 TSTV - 

TEST FOR VARIABLE 

004 

303 

016 

000 


TSTV MVI 

C, 0 


004 

305 

052 

323 

011 

LHLD 

RPNT 


004 

310 

176 



MOV 

A, M 


004 

311 

376 

101 


CPI 

'A' 


004 

313 

330 



RC 



004 

314 

376 

133 


CPI 

'Z'4l 


004 

316 

077 



CMC 



004 

317 

330 



RC 



004 

320 

107 



MOV 

Bj r 


004 

321 

043 



I NX 

H 


004 

322 

176 



MOV 

A/ M 


004 

323 

376 

050 


CPI 

'<' 


004 

325 

302 

336 

004 

JNZ 

$♦6 


004 

330 

043 



I NX 

H 


004 

331 

016 

340 


MV I 

C, 0E0H 


004 

333 

303 

357 

004 

JMP 

TSV1 


004 

336 

376 

061 


CPI 

'1' 


004 

340 

332 

357 

004 

JC 

TSV* 


004 

343 

376 

067 


CPI 

'?' 


004 

345 

322 

357 

004 

JNC 

TSV1 


004 

350 

043 



I NX 

H 


004 

351 

346 

007 


AN I 

7 


004 

353 

017 



RRC 



004 

354 

017 



RRC 



004 

355 

017 



RRC 



004 

356 

117 



MOV 

C, R 


004 

357 

315 

301 

000 

TSV1 CRLL 

SBL1 


004 

362 

076 

037 


MV I 

A, 1FH 


004 

364 

240 



ANA 

B 


004 

365 

261 



ORR 

C 


004 

366 

107 



MOV 

B/ A 


004 

367 

016 

377 


MV I 

Z, -1 


004 

371 

041 

356 

011 

LXI 

H, SVMT-1 


004 

374 

043 



TSV2 INX 

H 


004 

375 

014 



I NR 

C 


004 

376 

176 



MOV 

A. M 


004 

377 

267 



ORR 

R 


005 

000 

312 

017 

005 

JZ 

TSV3 


005 

003 

171 



MOV 

fl, C 


005 

004 

376 

170 


CPI 

NSVM 


005 

006 

322 

207 

011 

JNC 

SMOE 


005 

011 

176 



MOV 

A, M 


005 

012 

270 



CMP 

B 


005 

013 

302 

374 

004 

JNZ 

TSV2 


005 

016 

074 



I NR 

R 


005 

017 

160 



TSV3 MOV 

M/ B 


005 

020 

365 



PUSH 

PSW 


005 

021 

365 



PUSH 

PSW 


005 

022 

026 

000 


MV I 

D, 0 


005 

024 

171 



MOV 

a c 


005 

025 

02 7 



RRL 



005 

026 

137 



MOV 

E/ fl 


005 

027 

041 

147 

012 

LXI 

a VSTR 


005 

032 

031 



DAD 

D 


005 

033 

170 



MOV 

A* B 


005 

034 

326 

340 


SUI 

0E0H 


005 

036 

322 

141 

007 

JNC 

TSV4 


005 

041 

315 

134 

0G5 

CALL 

ASPH 


005 

044 

361 



POP 

PSW 


005 

045 

314 

056 

002 

CZ 

VSIN 


005 

050 

361 



POP 

PSW 


005 

051 

311 



RET 



005 

052 




* STOR - 

STOR VRR. 

VALUE 

005 

052 

315 

154 

005 

STOR CRLL 

RSPP 


005 

055 

345 



PUSH 

H 


005 

056 

315 

154 

005 

CRLL 

RSPP 


005 

061 

321 



POP 

D 


005 

062 

163 



MOV 

M/ E 


005 

063 

043 



I NX 

H 


005 

064 

162 



MOV 

Ma D 


005 

065 

311 



RET 



005 

066 




♦ RSTO - 

NEW # FOR 

RETURN 

005 

06 6 

052 

333 

011 

RSTO LHLD 

RSTK 


005 

071 

053 



DCX 

H 


005 

072 

176 



MOV 

A, M 


005 

073 

267 



ORR 

A 


005 

074 

312 

221 

011 

JZ 

RNER 


005 

077 

042 

333 

011 

SHLD 

RSTK 


005 

102 

303 

234 

004 

JMP 

XFE1 


005 

105 




♦ PRNV - 

PRINT VARIABLE 

005 

105 

315 

154 

005 

PRNV CALL. 

RSPP 


005 

110 

315 

256 

005 

CRLL 

DECR 


005 

113 

311 



RET 



005 

114 




♦ TAPE - 

OUTPUT TO 

TAPE 

005 

114 

041 

261 

013 

TAPE LXI 

H*TOPL 


005 

117 

176 



MOV 

a m 


005 

120 

315 

252 

010 

CRLL 

TRPO 
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eos 

123 

376 

002 



CPI 

2 

005 

125 

332 

024 

000 


JC 

ERNT 

005 

130 

043 




I NX 

H 

005 

131 

303 

117 

005 


JMP 

TRPE+3 

005 

134 




* 

END BLOCK 2 

005 

134 




* 

RSPH - 

PUSH HL TO RSTK 

005 

134 

345 



RSPH PUSH 

H 

005 

135 

315 

065 

002 


CRLL 

STOV 

005 

140 

033 




DCX 

D 

005 

141 

341 




POP 

H 

005 

142 

175 




MOV 

Ra L 

005 

143 

022 




STRX 

D 

005 

144 

033 




DCX 

D 

005 

145 

174 




MOV 

Ra H 

005 

146 

022 




STRX 

D 

005 

147 

353 




XCHG 


005 

150 

042 

327 

011 


SNLD 

RSTK 

005 

153 

311 




RET 


005 

154 




* 

RSPP - 

POP HL FROM RSTK 

005 

154 

052 

327 

011 

RSPP LHLD 

RSTK 

005 

157 

353 




XCHG 


005 

160 

041 

147 

013 


LX I 

Ha RSTR 

005 

163 

315 

237 

001 


CRLL 

HLCM 

005 

166 

031 




DRD 

D 

005 

167 

332 

276 

011 


JC 

SUFE 

005 

172 

353 




XCHG 


005 

173 

126 




MOV 

Da M 

005 

174 

043 




I NX 

H 

005 

175 

136 




MOV 

E/ M 

005 

176 

043 




I NX 

H 

005 

177 

042 

327 

011 


SHLD 

RSTK 

005 

202 

353 




XCHG 


005 

203 

311 




RET 


005 

204 




* 

PRS - PRINT STRING 

005 

204 

052 

323 

011 

PRS LHLD 

RPNT 

005 

207 

053 




DCX 

H 

005 

210 

176 




MOV 

Ra M 

005 

211 

376 

042 



CPI 

^ »/ 

005 

213 

302 

207 

005 


JN2 

PRS+3 

005 

216 

043 




I NX 

H 

005 

217 

072 

341 

Oil 


LDR 

CHCT 

005 

222 

107 




MOV 

B, R 

005 

223 

176 



PRS1 MOV 

Ra M 

005 

224 

043 




I NX 

H 

005 

225 

376 

015 



CPI 

13 

005 

227 

312 

226 

Oil 


JZ 

CRER 

005 

232 

376 

042 



CPI 

/ • / 

005 

234 

312 

246 

005 


JZ 

PRS3 

005 

237 

004 




I NR 

B 

005 

240 

315 

161 

O02 


CRLL 

TVTO 

005 

243 

303 

223 

005 


JMP 

PRS1 

005 

246 

170 



PRS3 MOV 

Ra B 

005 

247 

062 

341 

011 


STR 

CHCT 

005 

252 

315 

301 

000 


CRLL 

SBL1 

005 

255 

311 




RET 


005 

256 




+ 

DECR t 

CNW - OUTPUT • 

005 

256 

174 



DECR MOV 

Ra H 

005 

257 

267 




ORR 

R 

005 

260 

362 

302 

005 


JP 

DEC1 

005 

263 

076 

055 



MV I 

Ra '-' 

005 

265 

315 

161 

002 


CRLL 

TVTO 

005 

270 

072 

341 

011 


LDR 

CHCT 

005 

273 

074 




INF. 

a 

005 

274 

062 

341 

011 


STR 

CHCT 

005 

277 

315 

237 

001 


CRLL 

HLCM 

005 

302 

001 

005 

000 

DEC1 LXI 

B, 5 

005 

305 

021 

360 

330 


LX I 

Da-10000 

005 

310 

315 

344 

005 


CRLL 

CNW 

005 

313 

021 

030 

374 


LX I 

Da -1000 

005 

316 

315 

344 

005 


CRLL 

CNW 

005 

321 

021 

234 

377 


LX I 

Da-100 

005 

324 

315 

344 

005 


CRLL 

CNW 

005 

327 

021 

366 

377 


LX I 

Da -10 

005 

332 

315 

344 

005 


CRLL 

CNW 

005 

335 

021 

377 

377 


LX I 

Da -1 

005 

340 

315 

344 

005 


CRLL 

CNW 

005 

343 

311 




RET 


005 

344 

305 



CNW PUSH 

B 

005 

345 

006 

057 



MV I 

Ba 'O'-l 

005 

347 

004 




INR 

B 

005 

350 

031 




DRD 

D 

005 

351 

174 




MOV 

Ra H 

005 

352 

027 




RRL 


005 

353 

322 

347 

005 


JNC 

CNVV+3 

005 

356 

353 




XCHG 


005 

357 

315 

237 

001 


CRLL 

HLCM 

005 

362 

031 




DRD 

D 

005 

363 

170 




MOV 

Ra B 

005 

364 

301 




POP 

B 

005 

365 

376 

060 



CPI 

'0' 

005 

367 

312 

010 

006 


JZ 

CNV2 


005 

372 

015 



CNV1 

DCR 

C 

005 

373 

315 

161 

0O2 


CRLL 

TVTO 

005 

376 

072 

341 

011 


LDR 

CHCT 

066 

001 

074 




INR 

R 

006 

002 

062 

341 

Oil 


STR 

CHCT 

006 

005 

006 

200 



MV1 

Ba 128 

006 

007 

311 




RET 


006 

010 

200 



CNV2 

RDD 

B 

006 

011 

362 

020 

006 


JP 

CNV3 

006 

014 

220 




SUB 

B 

006 

015 

303 

372 

005 


JMP 

CNV1 

006 

029 

015 



CNV3 

DCR 

C 

006 

021 

312 

014 

006 


JZ 

CNV3-4 

006 

024 

311 




RET 


006 

025 




♦ NCOV - 

INPUT * TO BINRRV 

006 

025 

052 

323 

011 

NCOV 

LHLD 

RPNT 

006 

030 

345 




PUSH 

H 

006 

031 

052 

317 

011 


LHLD 

TMPi 

006 

034 

072 

341 

Oil 


LDR 

CHCT 

006 

037 

267 




ORR 

R 

006 

040 

382 

046 

0O6 


JNZ 

NC02 

006 

043 

041 

147 

013 


LX I 

Ha IBUF 

006 

046 

315 

301 

000 

NC02 

CRLL 

SBL1 

006 

051 

315 

226 

006 


CRLL 

EXPR 

006 

054 

315 

271 

000 


CRLL 

SBLK 

006 

057 

043 




I NX 

H 

006 

060 

042 

317 

011 


SHLD 

TMPI 

006 

063 

174 




MOV 

Ra H 

006 

064 

062 

341 

011 


STR 

CHCT 

006 

067 

341 




POP 

H 

006 

070 

042 

323 

Oil 


SHLD 

RPNT 

006 

073 

311 




RET 


006 

074 




* RELP - 

RELRTIONRL OP TEST 

006 

074 

021 

112 

006 

RELP 

LX I 

Da MO 

006 

077 

315 

076 

004 


CRLL 

TST 

006 

102 

056 

000 



MV I 

La 0 

006 

104 

046 

0O0 


REL1 

MV I 

Ha 0 

006 

106 

315 

134 

005 


CRLL 

RSPH 

006 

111 

311 




RET 


006 

112 

275 



M0 

DB 

''*''♦128 

006 

113 

021 

156 

096 


LX I 

Da M4 

006 

116 

315 

076 

004 


CRLL 

TST 

006 

121 

021 

134 

006 


LX I 

Da Mi 

006 

124 

315 

076 

004 


CRLL 

TST 

006 

127 

056 

002 



MV I 

La 2 

006 

131 

303 

104 

006 


JMP 

REL1 

006 

134 

275 



Mi 

DB 

'-"♦128 

006 

135 

021 

150 

006 


LX I 

Da M3 

006 

140 

315 

076 

004 


CRLL 

TST 

006 

143 

056 

003 



MV I 

La 3 

006 

145 

303 

104 

006 


JMP 

REL1 

006 

150 

276 



M3 

DB 

'>'♦128 

006 

151 

056 

001 



MV I 

La J. 

006 

153 

303 

104 

006 


JMP 

RELi 

006 

156 

274 



M4 

DB 

'<'♦128 

006 

157 

021 

222 

006 


LXI 

Da M41 

006 

162 

315 

07 6 

004 


CRLL 

TST 

006 

165 

021 

200 

006 


LXI 

Da M5 

006 

170 

315 

076 

004 


CRLL 

TST 

006 

173 

056 

005 



MV I 

La 5 

006 

175 

303 

104 

006 


JMP 

RELi 

006 

200 

275 



M5 

DB 

'-'♦128 

006 

201 

021 

214 

006 


LXI 

Da M6 

006 

204 

315 

076 

004 


CRLL 

TST 

006 

207 

056 

003 



MV I 

La 3 

006 

211 

303 

104 

006 


JMP 

RELi 

006 

214 

274 



M6 

DB 

'<'♦128 

006 

215 

056 

004 



MV I 

La 4 

006 

217 

393 

104 

006 


JMP 

RELi 

006 

222 

276 



M41 

DB 

'>'♦128 

006 

223 

303 

233 

011 


JMP 

REER 

006 

226 




♦ EXPR - 

EXP. EVRLURTOR 

006 

226 




* CRN BE 

CRLLED RECURSIVELY 

006 

226 

021 

253 

006 

EXPR 

LXI 

Da EO 

006 

231 

315 

076 

004 


CRLL 

TST 

006 

234 

315 

332 

006 


CRLL 

TERM 

006 

237 

315 

154 

005 


CRLL 

RSPP 

006 

242 

315 

237 

001 


CRLL 

HLCM 

006 

245 

315 

134 

005 


CRLL 

RSPH 

303 2 

71 006 


JMP 1 

El 


006 

253 

255 



E0 

DB 

'-'♦128 

006 

254 

021 

265 

006 


LXI 

Da E01 

006 

257 

315 

076 

004 


CRLL 

TST 

006 

262 

303 

266 

006 


JMP 

E01^1 

006 

265 

253 



E01 

DB 

'♦'♦128 

006 

266 

315 

332 

006 


CRLL 

TERM 

006 

271 

021 

310 

006 

El 

LXI 

Da E2 

006 

274 

315 

076 

O04 


CRLL 

TST 

006 

277 

315 

332 

006 


CRLL 

TERM 

006 

302 

315 

022 

010 


CRLL 

I RDD 

006 

395 

303 

271 

006 


JMP 

El 
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006 

310 

253 




E2 DB 

'♦'+128 

007 176 

353 



XCHG 


006 

311 

021 

330 

006 


LX I 

Dr E3 

007 177 

341 



POP 

H 

006 

314 

315 

076 

004 


CRLL 

TST 

0O7 200 

361 



POP 

PSW 

006 

317 

313 

332 

006 


CRLL 

TERM 

007 201 

302 

237 

007 

JNZ 

TSV6 

006 

322 

315 

Oil 

010 


CRLL 

I SUB 

007 204 




+ NEW VRR. 


006 

323 

303 

271 

006 


JMP 

El 

007 204 

323 



PUSH 

D 

006 

330 

233 




E3 DB 

'-'♦128 

007 203 

333 



XCHG 


006 

331 

311 




RET 


0O7 206 

032 

321 

011 

LHLD 

NMLC 

006 

332 





♦ TERM - 

TERM EVRLURTOR 

0O7 211 

333 



XCHG 


006 

332 





4* CRN BE 

CRLLED RECURSIVELY 

007 212 

163 



MOV 

Mr E 

006 

332 

313 

376 

0O6 


TERM CRLL 

FRCT 

007 213 

043 



I NX 

H 

006 

333 

021 

354 

006 


LXJ 

Dr 11 

007 214 

162 



MOV 

Mr D 

006 

340 

315 

076 

O04 


CRLL 

TST 

007 215 

341 



POP 

H 

006 

343 

315 

376 

006 


CRLL 

FRCT 

007 216 

031 



DRD 

H TIMES 2 

006 

346 

315 

157 

010 


CRLL 

MULT 

007 217 

031 



DRD 

D 

006 

351 

303 

335 

0O6 


JMP 

TERM+3 

007 220 

042 

321 

011 

SHLD 

NMLC 

006 

334 

232 




11 DB 

'+'♦128 

007 223 

174 



MOV 

Rr H 

006 

353 

021 

374 

006 


LXI 

D, 12 

007 224 

376 

040 


CPI 

MMRX 

006 

360 

315 

076 

004 


CRLL 

TST 

007 226 

322 

154 

011 

JNC 

ERMO 

006 

363 

315 

376 

006 


CRLL 

FRCT 

007 231 

361 



FOP 

PSW 

006 

366 

315 

070 

010 


CRLL 

DIVD 

007 232 

315 

056 

002 

CRLL 

VS IN 

006 

371 

303 

335 

006 


JMP 

TERM+3 

007 235 

067 



STC 


006 

374 

237 




12 DB 

'/'♦128 

007 236 

311 



RET 


006 

373 

311 




RET 


007 237 




♦ EXISTING 

DIM VRR. 

006 

376 





♦ FRCT - 

GET FRCTORS 

007 237 

033 



TSV6 DCX 

D 

006 

376 

313 

103 

007 


FRCT CRLL 

FNTS 

007 240 

333 



XCHG 


007 

001 

320 




RNC 


097 241 

031 



DRD 

H 

007 

002 

313 

303 

004 


CRLL 

TSTV 

007 242 

031 



DRD 

D 

007 

003 

332 

026 

007 


JC 

F0 

007 243 

136 



MOV 

Er M 

007 

010 

312 

245 

011 


JZ 

UDVE 

007 244 

043 



I NX 

H 

007 

013 

313 

154 

003 


CRLL 

RSPP 

007 243 

126 



MOV 

Dr M 

007 

016 

136 




MOV 

E, M 

007 246 

353 



XCHG 


007 

017 

043 




I NX 

H 

007 247 

313 

134 

005 

CRLL 

RSPH 

007 

020 

126 




MOV 

Dr M 

007 252 

361 



POP 

PSW 

007 

021 

333 




XCHG 


007 253 

311 



RET 


007 

02 2 

315 

134 

003 


FRC1 CRLL 

RSPH 

007 254 




♦ SIZE CMMD 

007 

023 

311 




RET 


007 234 

052 

313 

011 

SZER LHLD 

EFPN 

007 

026 

313 

307 

000 


F0 CRLL 

TSTN 

007 237 

353 



XCHG 


007 

031 

332 

033 

007 


JC 

FI 

007 260 

041 

261 

013 

LXI 

Hr TOPL 

007 

034 

104 




MOV 

Br H 

007 263 

313 

237 

001 

CRLL 

HLCM 

007 

033 

115 




MOV 

C, L 

007 266 

031 



DRD 

D 

007 

036 

315 

322 

000 


CRLL 

RDEC 

007 267 

313 

236 

005 

CRLL 

DECR 

007 

041 

120 




MOV 

Dr B 

007 272 

076 

003 


MV I 

Rr 5 

007 

042 

131 




MOV 

Er C 

007 274 

062 

341 

011 

STR 

CHCT 

007 

043 

353 




XCHG 


007 277 

313 

016 

002 

CRLL 

SPNZ 

007 

044 

315 

301 

000 


CRLL 

SBL1 

007 302 

026 

040 


MV I 

Dr MMRX 

007 

047 

353 




XCHG 


007 304 

036 

000 


MV I 

Er 0 

007 

030 

303 

022 

007 


JMP 

FRC1 

007 306 

032 

313 

011 

LHLD 

EFPN 

007 

033 

021 

077 

007 


FI LXI 

Dr Fll 

007 311 

315 

237 

001 

CRLL 

HLCM 

007 

036 

315 

076 

004 


CRLL 

TST TEST FOR < 

007 314 

031 



DRD 

D 

007 

061 

315 

226 

006 


CRLL 

EXPR RECURSIVE CRLL 

007 313 

313 

256 

003 

CRLL 

DECR 

007 

064 

021 

073 

007 


LXI 

Dr FE1 

007 320 

313 

076 

340 

CRLL 

CRLF 

007 

067 

313 

076 

004 


CRLL 

TST 

007 323 

311 



RET 


007 

072 

311 




RET 


007 324 




+ END BLOCK 3 

007 

073 

251 




FE1 DB 

'>'♦128 

007 324 




* CMPR. 

CQMPRRE- 2 VRLUES 

007 

074 

303 

240 

Oil 


JMP 

RPER 

007 324 

313 

134 

003 

CMPR CRLL 

RSPP 

007 

077 

250 




Fll DB 

'<'♦128 

007 327 

343 



PUSH 

H 

007 

100 

303 

067 

Oil 


JMP 

ERRS 

007 330 

313 

154 

003 

CRLL 

RSPP 

007 

103 





+ FNTS - 

FUNCTION TEST 

007 333 

333 



XCHG 


007 

103 





4- RND ONLV FUNCTION INITIRLLV 

007 334 

341 



POP 

H 

007 

103 

021 

133 

007 


FNTS LXI 

Dr RNDM 

007 335 

323 



PUSH 

D 

007 

106 

315 

076 

004 


CRLL 

TST 

007 336 

315 

134 

003 

CRLL 

RSPH 

007 

111 

315 

226 

006 


CRLL 

EXPR RECURSIVE 

G07 341 

313 

011 

010 

CRLL 

I SUB 

007 

114 

315 

133 

001 


CRLL 

RND 

007 344 

313 

134 

003 

CRLL 

RSPP 

007 

117 

021 

127 

007 


LXI 

Dr RF MS 

007 347 

301 



POP 

6 

007 122 

315 076 004 


CRLL TST 

007 350 




♦ HERE WITH X-V IN HL 






ORfi 

R 


007 330 

174 



MOV 

Rr H 

007 

126 

311 




RET 


007 351 

267 



ORR 

fl 

007 

127 

251 




RPMS DB 

'>'♦128 

007 352 

302 

363 

007 

JNZ 

CMP0 

007 

130 

303 

240 

011 


JMP 

RPER 

0O7 333 

265 



ORR 

L 

007 

133 

122 

116 

104 


RNDM FU 

'RND' 

007 356 

171 



MOV 

fir C 

007 

136 

230 




DB 

'<'♦128 

007 337 

312 

000 

010 

JZ 

CMP2 

007 

137 

067 




STC 


007 362 

376 

003 


CPI 

3 

007 

140 

311 




RET 


007 364 

311 



RET 


007 

141 





4i DIM SETUP 1 HRNDLING 

007 363 

171 



CMP0 MOV 

Rr C 









007 366 

362 

362 

007 

JP 

#-7 

343 




TSV4 

PUSH H 


007 371 

376 

001 


CPI 

1 

007 

142 

313 

226 

006 


CRLL 

EXPR 

007 373 

330 



RC 


007 

145 

021 

156 

907 


LXI 

Dr RPTV 

007 374 

376 

004 


CPI 

4 

007 

130 

313 

076 

004 


CRLL 

TST 

007 376 

077 



CMC 


007 

133 

303 

162 

007 


JMP 

<♦4 

007 377 

311 



RET 


007 

156 

231 




RPTV DB 

'>'♦128 

010 000 

376 

000 


CMP2 CPI 

0 

007 

137 

303 

240 

011 


JMP 

RPER 

010 082 

310 



RZ 


007 

162 

315 

134 

005 


CRLL 

RSPP 

010 003 

376 

002 


CPI 

2 

007 

165 

257 




XRR 

R 

010 003 

310 



RZ 


007 

166 

264 




ORR 

H 

010 006 

376 

003 


CPI 

5 

007 

167 

372 

310 

011 


JM 

DMER 

010 010 

311 



RET 


007 

172 

265 




CRB 

L 

010 011 




+ ISUB/IRDO - RDD - SUBTRRCT 

007 

173 

312 

310 

011 


JZ 

DMER 

010 011 

315 

134 

003 

ISUB CRLL 

RSPP 









010 014 

315 

237 

001 

CRLL 

HLCM 









010 01? 

303 

025 

010 

JMP 

IfiDD+3 
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ei0 

022 

315 

154 

003 

IROD CRLL 

RSPP 

010 

023 

174 



MOV 

Ra H 

010 

026 

346 

200 


ON I 

128 

010 

030 

037 



RRR 


010 

031 

107 



MOV 

Ba R 

010 

032 

345 



PUSH 

H 

010 

033 

313 

154 

003 

CRLL 

RSPP 

010 

036 

174 



MOV 

R, H 

010 

037 

346 

200 


RNI 

128 

010 

041 

200 



RDD 

B 

010 

042 

321 



POP 

D 

010 

043 

031 



DRD 

D 

010 

044 

037 



RRR 


010 

045 

107 



MOV 

Ba R 

010 

046 

174 



MOV 

Ra H 

010 

047 

027 



RRL 


010 

b 50 

170 



MOV 

R, B 

010 

051 

037 



RRR 


010 

052 

376 

200 


CPI 

128 

010 

054 

312 

252 

011 

JZ 

ROPE 

010 

057 

376 

160 


CPI 

112 

010 

061 

312 

252 

011 

JZ 

ROFE 

010 

064 

315 

134 

003 

CRLL 

RSPH 

010 

067 

311 



RET 


010 

070 




♦ DIVD - 

INTEGER DIVIDE 

010 

070 

315 

134 

003 

DIVD CRLL 

RSPP 

010 

073 

175 



MOV 

Ra L 

010 

074 

264 



ORR 

H 

010 

075 

312 

264 

011 

JZ 

DZER 

010 

100 

076 

200 


MV I 

Ra 128 

010 

102 

244 



RNR 

H 

010 

103 

107 



MOV 

B, R 

010 

104 

374 

237 

001 

CM 

HLCM 

010 

107 

345 



PUSH 

H 

010 

110 

313 

154 

005 

CRLL 

RSPP 

010 

113 

076 

200 


MV I 

Ra 128 

010 

113 

244 



RNR 

H 

010 

116 

200 



RDO 

B 

010 

117 

062 

342 

011 

STR 

TEMP 

010 

122 

174 



MOV 

Ra H 

010 

123 

267 



ORR 

R 

010 

124 

374 

237 

001 

CM 

HLCM 

010 

127 

042 

337 

011 

SHLD 

DVD2 

010 

132 

041 

000 

000 

LXI 

H« 0 

010 

133 

042 

333 

011 

SHLD 

DVD1 

010 

140 

341 



POP 

H 

010 

141 

315 

342 

001 

CRLL 

BUDV 

010 

144 

072 

342 

011 

LDR 

TEMP 

010 

147 

267 



ORR 

R 

010 

150 

304 

237 

001 

CNZ 

HLCM 

010 

133 

315 

134 

005 

CRLL 

RSPH 

010 

156 

311 



RET 


010 

157 




* MULT - 

INTEGER MULTIPLY 

010 

157 

313 

154 

005 

MULT CRLL 

RSPP 

010 

162 

076 

200 


MV I 

Ra 128 

010 

164 

244 



RNR 

H 

010 

163 

107 



MOV 

B, R 

010 

166 

374 

237 

001 

CM 

HLCM 

010 

171 

345 



PUSH 

H 

010 

172 

313 

134 

003 

CRLL 

RSPP 

010 

173 

076 

200 


MV I 

R, 128 

010 

177 

244 



RNR 

H 

010 

2O0 

200 



RDO 

B 

010 

201 

062 

342 

011 

STR 

TEMP 

010 

204 

174 



MOV 

Ra H 

010 

203 

027 



RRL 


010 

206 

334 

237 

001 

CC 

HLCM 

010 

211 

042 

333 

011 

SHLD 

PRD1 

010 

214 

341 



POP 

H 

010 

215 

313 

263 

0O1 

CRLL 

BUML 

010 

220 

174 



MOV 

RaH 

010 

221 

027 



RRL 


010 

222 

332 

237 

011 

JC 

MOPE 

010 

223 

353 



XCHG 


010 

226 

032 

337 

011 

LHLD 

PRD2 

010 

231 

173 



MOV 

Ra L 

010 

232 

264 


« 

ORR 

H 

010 

233 

302 

237 

011 

JNZ 

MOPE 

010 

236 

353 



XCHG 


010 

237 

072 

342 

011 

LDR 

TEMP 

010 

242 

267 



ORR 

R 

010 

243 

304 

237 

001 

CNZ 

HLCM 

010 

246 

315 

134 

003 

CRLL 

RSPH 

010 

231 

311 



RET 


010 

232 




• TRPO - 

TREE OUT ROUTINE 

010 

252 

016 

011 


TRPO MVI 

C, 9 

010 

254 

267 



ORR 

R 

010 

253 

027 



RRL 


010 

236 

323 

001 


TRP1 OUT 

TRPU 

010 

260 

006 

200 


MV I 
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010 

262 

005 



TRP2 DCR 

B 

010 

263 

302 

262 

010 

JNZ 

TRP2 

010 

266 

037 



RRR 


010 

267 

015 



DCR 

C 

010 

270 

302 

236 

010 

JNZ 

TRP1 

010 

273 

037 



RRR 


010 

274 

067 



STC 


010 

273 

027 



RRL 


010 

276 

323 

001 


OUT 

TRPU 

010 

30O 

0O6 

377 


MV I 

Ba 253 

010 

302 

005 



TRP3 DCR 

8 

010 

303 

302 

302 

010 

JNZ 

TRP3 

010 

386 

037 



RRR 


010 

307 

311 



RET 


010 

310 




* LIST - 

LIST PILE ON TVT 

010 

310 

076 

001 


LIST MVI 

fia 1 

010 

312 

062 

326 

011 

STR 

FNUM 

010 

313 

076 

377 


MV I 

Ra 253 

010 

317 

062 

325 

011 

STR 

LNUM 

010 

322 

315 

307 

000 

CRLL 

TSTN 

010 

325 

332 

370 

010 

JC 

LIS1 

010 

330 

104 



MOV 

Ba H 

010 

331 

115 



MOV 

Ca L 

010 

332 

315 

322 

000 

CRLL 

RDEC 

010 

333 

173 



MOV 

Ra L 

010 

336 

062 

326 

011 

STR 

FNUM 

010 

341 

062 

323 

011 

STR 

LNUM 

010 

344 

140 



MOV 

Ha B 

010 

343 

151 



MOV 

La C 

010 

346 

315 

301 

000 

CRLL 

SBL1 

010 

331 

315 

307 

00O 

CRLL 

TSTN 

010 

354 

332 

370 

010 

JC 

LI SI 

010 

337 

104 



MOV 

Ba H 

010 

360 

113 



MOV 

Ca L 

010 

361 

313 

322 

000 

CRLL 

RDEC 

010 

364 

175 



MOV 

Ra L 

010 

365 

062 

323 

011 

STR 

LNUM 

010 

370 

313 

220 

340 

LIS1 CRLL 

CLRS 

010 

373 

315 

115 

001 

CRLL 

LNFD 

010 

376 

176 



MOV 

Ra M 

010 

377 

376 

002 


CPI 

2 

011 

001 

332 

024 

000 

JC 

ERNT 

011 

004 

345 



PUSH 

H 

011 

005 

046 

000 


MV I 

Ha 0 

011 

007 

137 



MOV 

La fl 

011 

010 

376 

144 


CPI 

100 

011 

012 

322 

033 

011 

JNC 

LIS2 

011 

013 

076 

040 


MV I 

Ra ' ' 

011 

017 

315 

161 

002 

CRLL 

TVTO 

011 

022 

173 



MOV 

Ra L 

011 

023 

376 

012 


CPI 

10 

011 

023 

322 

033 

011 

JNC 

LIS2 

Oil 

030 

076 

040 


MV I 

Ra ' ' 

011 

032 

313 

161 

002 

CRLL 

TVTO 

011 

033 

315 

256 

005 

LIS2 CRLL 

DECR 

011 

040 

341 



POP 

H 

011 

041 

043 



I NX 

H 

011 

042 

176 



LIS3 MOV 

Ra M 

011 

043 

315 

161 

002 

CRLL 

TVTO 

011 

046 

043 



I NX 

H 

011 

047 

376 

013 


CPI 

13 

011 

051 

302 

042 

Oil 

JNZ 

LI S3 

011 

034 

106 



MOV 

Ba M 

011 

033 

072 

323 

011 

LDR 

LNUM 

011 

060 

220 



SUB 

B 

011 

061 

322 

376 

010 

JNC 

LIS1+6 

011 

064 

303 

024 

O0O 

JMP 

ERNT 

011 

067 




♦ ERRS - 

ERROR HRNDLING 

011 

067 

036 

012 


ERRS MVI 

La 10 

011 

071 

046 

000 


ERR1 MVI 

Ha 0 

011 

073 

061 

200 

347 

LXI 

SPa STRK 

011 

076 

313 

076 

340 

CRLL 

CRLF 

011 

101 

313 

256 

003 

CRLL 

DECR 

011 

104 

076 

040 


MV I 

Ra ' ' 

011 

106 

313 

161 

002 

CRLL 

TVTO 

011 

111 

076 

101 


MV I 

Ra 'R' 

011 

113 

315 

161 

002 

CRLL 

TVTO 

011 

116 

076 

124 


MV I 

Ra 'T' 

011 

120 

313 

161 

002 

CRLL 

TVTO 

011 

123 

076 

040 


MV I 

Ra ' ' 

011 

123 

315 

161 

002 

CRLL 

TVTO 

011 

130 

072 

323 

011 

LDR 

LNUM 

011 

133 

137 



MOV 

La R 

011 

134 

046 

000 


MV I 

Ha 0 

011 

136 

315 

236 

005 

CRLL 

DECR 

011 

141 

313 

076 

340 

CRLL 

CRLF 

011 

144 

303 

024 

0O0 

JMP 

ERNT 
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011 

14? 

056 

017 


ERRM MVI 

La 13 

011 

131 

303 

071 

011 

JMP 

ERR1 

011 

134 

056 

024 


ERMO MVI 

La 20 

011 

136 

303 

071 

011 

JMP 

ERR1 

011 

161 

072 

323 

011 

EOFR LDR 

LNUM 

011 

164 

26? 



ORR 

R 

Oil 

163 

312 

024 

000 

JZ 

ERNT 

Oil 

170 

056 

031 


MV I 

La 23 

Oil 

172 

303 

071 

Oil 

JMP 

ERR1 

011 

175 

036 

036 


ERML MVI 

La 30 

011 

17? 

303 

071 

011 

JMP 

ERR1 

011 

202 

056 

043 


GSER MVI 

La 33 

Oil 

204 

303 

071 

011 

JMP 

ERR1 

Oil 

207 

056 

050 


SHOE MVI 

La 40 

011 

211 

303 

071 

011 

JMP 

ERR1 

Oil 

214 

056 

055 


STOP MVI 

L/ 45 

011 

216 

303 

071 

011 

JMP 

ERR1 

011 

221 

056 

062 


RNER MVI 

La 50 

011 

223 

303 

071 

011 

JMP 

ERR1 

Oil 

226 

056 

06? 


CRER MVI 

La 33 

Oil 

230 

303 

071 

011 

JMP 

ERR1 

011 

233 

056 

074 


REER MVI 

La 60 

Oil 

233 

303 

071 

011 

JMP 

ERR1 

Oil 

240 

056 

101 


RPER MVI 

La 63 

Oil 

242 

303 

071 

011 

JMP 

ERR1 

011 

243 

056 

106 


UDVE MVI 

La 70 

011 

24? 

303 

071 

011 

JMP 

ERR1 

011 

232 

056 

113 


ROPE MVI 

La 73 

011 

234 

303 

071 

011 

JMP 

ERR1 

Oil 

237 

056 

120 


MOPE MVI 

La 80 

011 

261 

303 

071 

Oil 

JMP 

ERR1 

011 

264 

056 

123 


DZER MVI 

La 83 

011 

266 

303 

071 

Oil 

JMP 

ERR1 

011 

271 

056 

132 


ENOM MVI 

La 90 

011 

273 

303 

071 

011 

JMP 

ERR1 

011 

276 

056 

137 


SUPE MVI 

La 93 

Oil 

300 

303 

071 

Oil 

JMP 

ERR1 

011 

303 

036 

144 


ILTL MVI 

La 100 

011 

303 

303 

071 

011 

JMP 

ERR1 

011 

310 

056 

131 


DMER MVI 

La 105 

Oil 

312 

303 

071 

011 

JMP 

ERR1 

011 

313 




♦VRRIRBLE 

DEFINITK 

011 

313 




SP EQU 

6 

Oil 

313 




PSW EQU 

6 

011 

313 




TVT EQU 

0 

011 

313 




TRPU EQU 

1 

Oil 

313 




CRLP EQU 

GE03EH 

011 

313 




CLRS EQU 

0E090H 

011 

313 




STRK EQU 

0E780H 

011 

313 




NSYM EQU 

120 

011 

313 




MMRX EQU 

20H 

011 

313 




IBLN EQU 

74 

011 

313 




* 


011 

315 




♦ STORRGE 

RRERS 

011 

313 




* 


011 

313 




EFPN DS 

2 

011 

317 




TMP1 DS 

2 

011 

321 




NMLC DS 

2 

011 

323 




RPNT DS 

2 

011 

323 




LNUM DS 

1 

011 

326 




FNUM DS 

1 

011 

327 




RSTK DS 

2 

Oil 

331 




VSTK DS 

2 

011 

333 




RSTK DS 

2 

Oil 

333 




PRD1 DS 

2 

011 

337 




PRD2 DS 

2 

011 

341 




CHCT DS 

1 

Oil 

342 




TEMP DS 

1 

011 

343 




DVD1 EQU 

PRD1 

011 

343 




DVD2 EQU 

PRD2 

011 

343 




HORD DS 

2 

Oil 

343 




LORD DS 

1 

Oil 

346 




DS 

1 

011 

347 




RSTR DS 

8 

011 

337 




SVMT DS 

120 

012 

147 




VSTR DS 

256 

013 

147 




RSTR EQU 

4 

013 

147 




IBUP DS 

74 

013 

261 




TOPL EQU 

4 

013 

261 




* 


013 

261 




* END OP 

PROGRRM 

013 

261 







ttw mmim 

SOFTWARE CONTEST 

Sponsored by People’s Computer Company 
P.O. Box 310, Menlo Park, Ca. 94025 

FIRST PRIZE: $500 certificate for hardware 

from CROMEMCO 

SECOND PRIZE: $250 certificate for hardware 

from CROMEMCO 


OBJECT: 


RULES: 


Develop a program resulting in a new and 
interesting display using the Cromemco 
TV Dazzler. (The Dazzler is an interface 
that permits a home color TV set to be a 
graphic terminal for certain microcomputers.) 

► All entries must use the Cromemco Dazzler 
display and must not require more than 20K 
of computer memory. 

► All entries will be judged by People’s 
Computer Company on 

1 — originality 

2 — general user appeal 

3 — clarity of documentation 

► Entries should include source code and object 
code on punched paper tape. A listing of an 
appropriate bootstrap loader should also be 
provided. 

► Software should be compatible with MITS REV 1 
serial I/O port convention for I/O require¬ 
ments (i.e., data transfer is on port 1, bit 7 
[active low] of input port 0 is used to indicate 
receiver ready, and bit 0 [active low] of input port 0 
is used to indicate transmitter empty). 


Microcomputers can be incredibly versatile. The Dazzler 
adds the dimension of full-color graphic display to the 
microcomputer. 


What can you develop? — games? 
— art? — others? 


business? — education? 


SEND ALL ENTRIES TO: PEOPLE’S COMPUTER CO 

P.O. Box 310 
Menlo Park, Ca. 94025 

ENTRIES MUST BE RECEIVED BY SEPT. 30, 1976 
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interface, as well as resolving some bugs in my Micro-8 Vol. 2, 
Issue 1, page 11 article. I made the mistake of not indicating 
that just because you haven’t encountered these bugs in your 
Mark-8 in no way means they aren’t in your system. In soft¬ 
ware, I’m interested in writing a “suffix” notation program¬ 
mable calculator, some sort of relocatable loader, and, perhaps, 
some sort of pseudo-assembler. 

I’m disappointed that there doesn’t seem to be any place 
or journal that effectively supports the Mark-8.1 think there is 
a tremendous need for national journals specializing in individual 
microcomputers or at least individual microprocessors--and 
teaching programming, solving problems, creating hardware and 
software for that particular machine. This would be very 
valuable for the individual user with that machine. 

Sincerely yours, 

Thomas R. Amoth 228 Fox Rd 

Media PA 19063 
(215) 566-1068 

Dear Tom, We will try to publish everything of value that we 
receive concerning the Mark-8. There is a need for machine- 
specific journals, however the market isn’t yet there to support 
them. (It costs much bucks to publish a quality periodical.) Of 
course, there are the manufacturer’s newsletters, and user 
groups, but it seems to me they don’t meet hobbyist needs; 
particularly not inexpensively. We’re gonna try. 

Send us your software as you get it running so we 
can share it with all Micro-8 owners. -JCW, Jr 


APL’S APPEAL 
Dear Dragons: 

I have an Altair 8K system (the 8K currently on vacation 
in Albuquerque due to MITS’ recall order). 

Incidentally, my favorite language is APL, although I know 
more BASIC than APL. It seems to me that a limited knowledge 
of APL (i.e., just a few of its features) allows greater creative 
freedom than knowing BASIC intimately, and is somewhat 
easier to attain. My initial bias against APL (and what I see as 
your continuing bias) comes from my background--I started off 
on FORTRAN, so BASIC (an “extended subset of FORTRAN” 
as Jean Sammet might call it) seems as natural as English. And 
old FORTRAN hand would likely see BASIC as the ideal language 
for beginners. You really should look into APL, and how it can 
be implemented on small machines. 

At least as a beginning, BASIC looks like fun, and is 
easily suited to small machines. Tiny BASIC looks like even 
more fun, since very little has been written on languages for 
small machines. (A friend of mine recently said, “Why bother? 
You can always get a few ‘K’ cheap.” This is the worst argu¬ 
ment I’ve heard in favor of inefficient programming.) Thus my 
interest in your journal. After all, my pie-in-the-sky 8080 APL 
system has to start out with a few “basic” steps. 

Sincerely, 419 Simons Ave 

Ed Luwish Hackensack NJ 07601 


6800 Tiny BASIC FOR $5 

Dear folks at PCC & Readers of DDJ 2 April 1976 

I have gotten a version of Tiny BASIC up and running on 
the 6800. It largely follows the logic and philosophy outlined in 
the PCC articles (saved a lot of time!), but I have enhanced it in 
the following ways: two-byte line numbers, LIST can specify a 
range, semicolon formatting on PRINT, REM added, INPUT 
accepts expressions, and RND and USR functions ( = machine 
language function call) are available. 

The interpreter fits into a little less than 2K bytes (may be 
ROM) and uses a single JMP to each of three user-supplied I/O 
routines (character input, character output, and break test). I 
did this as a commercial venture (software is my living), but 
I am asking only $5 for a hex tape (Motorola format) and 20 
page User’s Manual. Please specify RAM-based (ORG at 0100) 
or ROM-base (ORG at E000, I/O preset for AMI “PROTO” 
board). When I have more time, and if there is sufficient interest, 

I will publish the IL code (I made a few changes), and show how 
to add extra functions. How about an assembler written in Tiny? 

For a copy of this TINY BASIC for the Motorola and AMI 
6800, send your name, address, and $5 to: 

Tom Pittman 
P.O. Box 23189 
San Jose, CA 95153 

PS As was noted in the TB articles, there is no such thing as a 
free lunch. Software comes in the lunch category, but perhaps 
I can offer you a cheap sandwich. 

Editor’s notes: Tom has a good reputation around the local 
Homebrew crowd. We believe that he will back his product. We 
would be quite interested in hearing from those who purchase 
his Tiny BASIC; we’d like to hear their praise and their complaints 
(if any). 

If you wish for him to publish his Intermediate Language 
code (IL) in the Journal, write him and encourage him to do so 

soon. 

Tom — What do you mean by, “an assembler in Tiny?” 

I hope that you don’t mean an assembler that is written in Tiny 
BASIC. 


ERRATA 

The author of the 6800 version of Tiny BASIC was 
incorrectly given, in one place in the February issue, as being 
Tim Pitmann. His correct name and address is: 

Tom Pittman 
Box 23189 
San Jose CA 95153 
(408) 578-4944 


Anyone out there know anything about Arrow Micro¬ 
computer Systems in Farmingdale, NY? We’d like their address 
(none was given in their ad we saw), and any other tidbits you 
might know about them. --JCW, Jr 
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Dear Bob Albrecht, 3/29/76 

Would give away time on machine in return for help on 
desired goals-Computer Graphic Animation!--software or hard¬ 
ware implementations. However, to be honest, don’t want 
total beginners for this project. Otherwise all time will be 
spent teaching instead of building. 

Sincerely, 

Charles R. Patton Alpha Electronics Svcs. 

8431 Monroe Ave. 

Stanton CA 90680 
(714) 821-4400 


Dear People, Dragons, or whatever, 4-1-76 

I have some suggestions for articles you could include: 

1) An article on how to get something (especially a 
computer program) copyrighted, and just what rights the copy¬ 
right gives you. 

2) An explanation of the 8080 instruction set (the MITS 
manual is extremely vague about the details of certain opera¬ 
tions like CMP and DAA, and even ADD). 

3) Construction projects for ‘make-believe’ computer 
peripherals. 

One of my old PCCs says that PCC was trying to build a 
model for a ‘recreational language,’ more suited to games and 
simulations than other languages now available. I have tried to 
design one myself. I came up with lots of ideas and individual 
features it should include, but was not able to organize them 
all into a consistent whole. Were you able to do any better? I 
will write the compiler or interpreter if someone helps me 
invent the grammar and syntax. 

Sincerely, 

Bruce Smith 57 Glenside Way 

San Rafael CA 94903 

Bruce, Send me your ‘make-believe’ fantasies! And ... I 
would very much like to hear your ideas about a ‘recreational 
language.’ We would be very happy to publish random ideas 
about this. Cheers, Bob Albrecht 


SIGNETICS 2650 TINY BASIC 
Gentlemen, 

I have a small system with a Signetics 2650. Using only 
about 3K of the present 4K, “T.B.” works quite well (one or 
two bugs present, but they’ll soon die out). Our preference for 
expansion is to tailor software for use on wide-platen 
terminals (e.g., Teletype Mod 38) for much nicer plotting 
(where time is not a factor). 

2635 Littlaton Rd 

Melvin B. Smith El Cajon CA 92020 

Is your system a homebrew, or a commercially available kit? 
Also, I hope you will choose to distribute your 2650 Tiny 
BASIC via Dr Dobb’s Journal , as soon as you’ve finished 
fumigating it. We are eager to provide software support for 
non-Intel systems. It improves market competition, promotes 
the general welfare, and slows Intel’s rush towards being an 
IBM look-alike. -JCW, Jr 
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AND NOW, TINIER BASIC 
Dear Bob, 

I’ve almost finished my version of BASIC which will 
inevitably be called Tinier BASIC as it fits in 2K. 

Any of your readers in the Cleveland area can join our 
club, Cleveland Digital Group, by writing me or our president, 
John Rabat, 1200 Seneca Rd, Apt 407, Broadview Heights OH 
44147. We are in contact with groups in Buffalo, Pittsburgh, 
Toledo, Detroit, Lansing, Dayton, and Columbus, as well as a 
few others, and would like to get in touch with other nearby 
groups. 

Gary Coleman 14058 Superior Rd, Apt 8 

Cleveland OH 44118 
(216) 371-9304 

Gary, Hope you will forward Tinier BASIC to us as soon as you 
get it finished, so everyone can share it. -JCW, Jr 


FORMAT DIALOGUE 

Gentlemen: December 9, 1975 

I’m not interested in the games or letters in PCC so I feel 
impelled to subscribe to Dr Dobb’s Journal. I wish you and the 
MITS people would change from the tabloid size. Newsprint 
paper should not be used for anything worth keeping. I’ve 
copied everything I’ve wanted to keep out of PCC before it 
crumbles and turns to dust. Please change! 

Yours truly, 

Richard R. Kenyon 18609A Del Rio PI. 

Cerritos CA 90701 

Dear Richard, 12/31/75 

Sorry you don’t like our tabloid format. We can’t afford 
to change. We operate on very little money with part-time 
people who are grossly underpaid ($ 2 /hour?) and occasional 
volunteers. A newspaper of standard size is the least expensive 
way to publish the most info. To go to 8 ’/ 2 xll would double 
(wow!!) our printing cost, and . . .sigh!. . . we just don’t have 
the $$$. You say you don’t like Pec’s games & letters, but you 
don’t say what you would like. Most of our readers are 
teachers & students in secondary schools or college people-they 
love the games & letters! Cheers, 

Bob Albrecht 

Bob, 1/2/76 

Sorry--I didn’t intend to sound like a chronic complainer! 

I do like your publication and was interested in a more 
“filable” format and more permanent paper. I know I’m in the 
minority not being excited by games. Tiny BASIC stuff has been 
great and I marvel at the way it has been presented for begin¬ 
ners. (I did subscribe to the Journal- which is a positive indica¬ 
tion!) I would enjoy more material in this area-including other 
languages such as the SP/k family of PL/I subsets, math sub¬ 
routines, etc. 

I hope that you and the rest of the staff will not have to 
maintain a shoe string existence with the growing, explosive, 
computer hobby. Last, but not least, the artwork is outstanding. 
Dick 

Dick- Ho, ho ... is this better? -JCW, Jr 
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History repeats itself ... I hope 

Last December, I had the very good fortune to attend a lecture on the history of the electronic 
digital computer given by Professor Henry S. Tropp. Not too long ago, Dr. Tropp spent several years direct¬ 
ing a research project for the Smithsonian Institute concerning the history of computers in the period, 1935 
to 1955. Much of his work consisted of traveling around interviewing many of the “old Timers” in the fast- 
moving world of digital computers. Because the field is as new as it is-the first “real” computer was invent¬ 
ed in the 1940’s—many of the original researchers in computer science and technology are still alive. Dr. 

Tropp often spent several days talking with them. 

His December lecture was a rambling collage of fascinating anecdotes and facts about the people and the 
technology, and insights into the intellectual character of the times. Some of his observations come to my 
mind, repeatedly, as I interact with computer hobbyists: 

Dr. Tropp noted that, in those first years, there was a tremendous amount of intellectual and technical 
ferment in the area of computers. A number of prodigious steps were taken in a relatively short time, out¬ 
lining and developing the majority of the concepts, theories, and principles that remain the cornerstones of 
computer science and computer engineering. A number of intellectual giants were involved: John Von Neu¬ 
mann, Alan Turing, George Stibitz, Howard Aiken, John Mauchly, and many others. As often as not, how¬ 
ever, it appears that they had little idea of where they were going, and almost stumbled upon their great 
discoveries. The research community involved in these efforts was relatively small; most of the researchers 
knew one another, and there was often close communication among them. It seems like each new discovery 
by any one person quickly triggered renewed excitement and activity on the part of many others, even 
though they were scattered all over the northeastern United States, and some were in England. Each new 
discovery or development was quickly shared, and often served as a foundation element for someone else’s 
discovery. This continued until the early 1950’s. Then, this great rush of creation and advancement seemed 
to slow to a crawl. Some of the researchers went off to work for industry. A number of them moved to 
the West Coast to apply their research to the aircraft industry. Computers came out of the experimental 
labs, and became a profitable area of activity for business and industry. Particularly important: It appears 
that the easy communication and exchange of ideas that was so evident in the ’40’s was greatly curtailed 
in the ’50’s. 

I see several parallels between what happened in those early days, and what is now occuring in the hobby¬ 
ist community: 

I see a great deal of excitement and obvious pleasure in the hobbyists, as they learn about these funny 
machines and discover their phenomenal capabilities. It seems to me that those early researchers must have 
felt much of the same excitement and intellectual stimulation, for computers were as new and novel to 
them, then, as they now are to many of the hobbyists. 

I hear of hobbyists who are spending most of their time in a great flurry of activity and experimentation. 
In the same way, those first computer scientists often worked night and day on their research, sometimes 
moving bunks into their labs to facilitate their continuous efforts. 

I note the extensive development of very inexpensive hardware within the hobbyist community, often 
developed in a basement shop. Similarly, the computer researchers of the ’40’s often worked on a shoe¬ 
string budget in antiquated facilities. 

Perhaps most significantly, I note the great willingness to share ideas, developments, facilities, and solu¬ 
tions to problems among the hobbyists. This obviously compares with the easy and open communication 
that was perhaps invaluable to those early researchers. 

It is this open sharing that particularly delights me, and with which I am particularly concerned. I hope 
that it continues. We must all do whatever we can to encourage it. The sharing of ideas is useful in that it 
allows us to stand on one another’s shoulders, instead of standing on one another’s feet. But, there is some¬ 
thing else being shared that is of at least equal value: the enthusiasm and intellectual excitement. There is no 
doubt in my mind that the sharing of such enthusiasm, as well as information, was a significant factor in the 
prodigious creativity of those original researchers. When one of them was frustrated and “down,” probably 
someone came flying through the door, “wired” over some new discovery, and ricocheting off the walls . . . 
and the depressed co-worker wasn’t “down” for very long. I believe the same holds true for the computer 
hobbyists. So . . . continue to share your ideas, and continue to share your excitement. 

-Jim C. Warren, Jr., Editor 
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SCANNING THE INDUSTRY PERIODICALS 


FROM THE MAY 24TH ISSUE OF ELECTRONIC 
NEWS (Fairchild Publications, Inc., 7 E 12 St., 

NYC 10003; (212) 741-4230) 

DROP IN DEC ORDERS CAUSES LSI/11- 
CHIPMAKER MAJOR FINANCIAL PROBLEMS 

Western Digital Corp., based in Newport Beach, Cal., 
manufactures the 16-bit microprocessor that is the basis for 
Digital Equipment Corporation's LSI/11. Western's attorney 
recently told its creditors that the company had a "cash flow 
position where it could not operate," due to drops in DEC 
orders (e.g., from $400K in March to less than $100K in 
April. A vice-president from DEC indicated that, although 
their LSI/11 sales had been going as expected, they could not 
afford to continue to buy in the same quantities they had in 
the past. Evidently, DEC had been purchasing more than they 
were using; they indicated that their inventory was filled to 
capacity. The creditors' committee recommended giving West¬ 
ern 30 days to rectify its financial position. 

Editor's Note: If I remember correctly. Western agreed 
to sell their chip only to DEC. If DEC really wants to keep 
Western afloat, as appears to be the case, then DEC could try 
releasing Western from that exclusive sales agreement. My sus¬ 
picion is that, if Western were free to peddle their PDP-11 
look-alike microprocessor to everyone who wished to buy it, 
they could cure their financial problems rather quickly. 

NATIONAL'S SC/MP KIT FOR $99 

National Semiconductor has a microprocessor kit avail¬ 
able for $99. This includes their SC/MP m-p (46 instruction 
types, single- and double-byte instructions, built-in serial I/O 
ports, bi-directional 8-bit bus, parallel data port, and latched, 
12-bit address port), a preprogrammed 512-byte KITBUG ROM 
(monitor and debugger), 256 bytes of RAM, TTY interface 
(including buffer and driver for 20mA current-loop), voltage 
regulator, data buffer crystal (1.0 MHz), complete literature 
and schematics, and all the passive components and a PC 
board required to build a wee microcomputer. Contact 
Semiconductor Concepts: 145 Oser Ave., Hauppauge NY 
11787, or 21201 Oxnard St., Woodland Hills CA 91364. 

Any computer stores carrying SC/MP kit? 


SEMICONDUCTOR SHIPMENTS EXPECTED TO 
NEAR $5 BILLION MARK, THIS YEAR 

Western Electronics Manufacturers' Association (WEMA), 
has projected that worldwide semiconductor shipments will 
hit $4.98 billion in 1976. This is 24% above the $4.02 
billion shipped in 1975. This report was a joint effort of all 
the major semiconductor manufacturers except Texas 
Instruments. 

Other preductions contained in this report included: MOS 
circuits will byte into the bipolar circuit market, ECL fami¬ 


lies will see a slowing growth, and l-squared-L will see, at best, 
a questionable growth. P- and N-channel MOS is expected to 
increase from $728 million (in 1975) to $959 million. C/MOS 
is projected to jump from $96 million (1975) to $153 
million. 


MOTOROLA & AMD AGREE 
ON 2901 SECOND-SOURCE 

Motorola Semiconductor and Advanced Micro Devices 
recently signed a licensing agreement for Motorola to second- 
source the bipolar, bit-sliced, 2901 microprocessor family 
developed by AMD. This makes Motorola the third second- 
source for 2901's. Others include Ratheon Semiconductor, 
and the Sescosem Division of the Paris-based Thomason-CSF. 

FLOATING POINT SOFTWARE 
IN P/ROM's FOR 8080's 

Recognition Systems in Van Nuys, Cal., is offering a 
floating point package in P/ROM's for $495. A number of 
routines are included: floating point multiply, divide, add, 
subtract, fixed-point to floating-point conversion, square root, 
and floating-point to binary-coded decimal conversion. 

MONOLITHIC MEMORIES OFFERS 
MICROPROCESSOR-BASED NOVA COMPETITOR 

Monolithic Memories, Inc. of Sunnyvale, Cal., recently 
announced a 16-bit microcomputer that is said to be both 
software and I/O compatible with Data General's NOVA 2 
and 3. MMI expects to be producing about 50/month by mid- 
July. The systems will be priced at $2500 in quantities of 50 
or more, including 32K words of memory. The systems use 
four of MMI's 6701 four-bit bipolar microprocessors. The 32K 
word memories use of 128 of MMI's 2180 4K RAM's. 

There is also a rumor of a NOVA-on-a-chip in the fore¬ 
seeable future. 

8K PDP-8/E MEMORY FOR $650 

WE Computer Extension Systems of Houston has an¬ 
nounced a plug-in memory board for the PDP-8 Omnibus. 

The memory uses NMOS RAM's. A 4K version costs $400; 
the 8K version is $650. The company states that they come 
with an unconditional one-year warranty. 

PASCAL COMPILER FOR PDPTi 1 
EXTENDED FOR REAL-TIME FUNCTIONS 

A compiler for PASCAL on the PDP-11 is being offered 
by Electro Scientific Industries of Portland, Ore., for $1500. 
PASCAL is an excellent, cleanly-designed, block-structured, 
high-level language, created about five years ago by Niklaus 
Wirth. ESI has extended the language to include the necessary 
constructs for real-time data acquisition and process control. 
The system runs under DEC's RT-11 operating system and 
requires 16K words. 
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First word on a floppy-disc operating system 


Command language & facilities 
similar to DECSYSTEM-10 


by Jim C. Warren, Jr., Editor, Dr. Dobb's Journal 

We have the first tidbits of information on the floppy-disc 
operating system to which we have alluded in past issues: 

The system, called "CP/M," runs on an 8080. It is available 
from Digital Research, Box 579, Pacific Grove CA 93950; 

(408) 373-3403. Its user interface is patterned after that of the 
DECSYSTEM-10. The file commands include RENAME, TYPE, 
ERASE, DIRECTORY, LOAD, and auto-load/execute facility 
(type the name of an object file; it will be loaded and begin 
execution). File-names follow the DEC standard of a 1-8 character 
name with a 1-3 character suffix. An Editor is included that has 
somewhat the flavor of TECO. There is a PIP facility that allows 
easy transfer of files to and from any available device, e.g., 
terminal, paper-tape I/O, cassettes, floppy discs on any drive, etc.. 
Note: PIP is DECeze for Peripheral /nterchange Program. Other 
systems software is likely to be included. 

Internally, the system allows for dynamic file allocation of 
files ranging from 0 to 250K bytes in length. It is initially set up 
to allow up to 63 different user-defined file-names (CP/M system 
files do not impinge on this file-name space), and can be simply 
modified to allow up to 255 such file-names. The system is 
written in PL/M. At an absolute and rather undesirable minimum, 
it will run on 808Q's with only 8K bytes of memory. To be 
really usable, it requires 12K or, preferably, 16K bytes. The 
system includes an automatic bootstrap facility via a R ESET of 
the controller, or allows a software bootstrap, if the controller 
doesn't have the RESET facility. The system is sufficiently 
modular that its designer feels he can easily modify it to operate 
on most floppy-disc drives and with most floppy-disc controllers. 

This system already exists and has been in use for over a 
year. It was originally designed and implemented by Dr. Gary 
Kildall, a Computer Science Professor at the Naval Postgraduate 
School in Monterey, and a well-known, independent consultant in 
the area of mocroprocessor systems software. Gary is also the 
designer and implementor of PL/M, the "industry standard" high- 
level language for microprocessors. PL/M was produced for Intel 
for their 8000-family micros. Gary recently completed PLuS, a 
language for the Signetics 2650 microprocessor that is upwards- 
compatible with PL/M. Incidentally, since CP/M is written in 
PL/M, and PLuS is--for the most part--a superset of PL/M, Gary 
feels that it will be relatively simple for him to make this operat¬ 
ing system also available for 2650-based systems. 

It is expected that Digital Research will offer all of the parts 
for an inexpensive floppy-disc system, ready to build (kit), and/or 
plug-in (assembled) to an IMSAI or Altair microcomputer. These 
"parts" consist of: CP/M, the operating system; a floppy-disc 
controller; and floppy-disc drive(s). Pricing is still tentative, 
however these are the conservative estimates: 

CP/M User's Manual + Editor User's Manual + CP/M 


Interface Manual.$15 

Extensive systems documentation package.$35 

Formatted, verified, "loaded" disc. *.... $20 

Note: a "raw" disc costs about $8 
Floppy-disc controller.$100-$350 


Floppy-disc drives.$550-$650 

We expect to carry more information, including firm prices, 
and one or several articles by Dr. Kildall in near-future issues. 

From our experience, this is the hottest deal going! It's 
cheap, as far as floppy-disc systems for micros go. The software is 
well-designed, based on a well-known and easy-to-use operating 
system that has been around for a DECade. Additionally-major 
points worth considering—it has been in use for some time, it has 
been used by a number of people, and it is fairly completely 
debugged. We know Gary personally, know 'where his head's at," 
and know that he backs his products and is responsive to his 
customers. Incidentally, he has an excellent and ongoing working 
relationship with Digital Research. 

You should very seriously consider obtaining a floppy disc 
subsystem—hardware and software— for your home computer 
(either Gary's or someone else's). A short-access mass-storage fa¬ 
cility increases your capabilities by several orders of magnitude, 
particularly when it is backed by comprehensive, well-designed, 
debugged systems software. Note that the IBM 650 (the Model T 
of computers, and the one that moved computers out of the 
laboratory and into mass production and widespread usage) had a 
main memory that was a 2000-word rotating drum with access 
measured in milliseconds. 

[The Dragon sez we should tell you that the 650 had 2000 
ten-digit words. Think of it as about 10,000 bytes.] 


Dear Jim Warren Jr., 4-27-76 

My problem is interfacing (hooking all the components 
together so they work as a system). For instance, I can find no 
where instructions on exactly how to hook my SWTC keyboard 
and TVT-II up to my Altair through my 3P + S and 22" video 
monitor. I don't mean a few general instructions. I mean a wiring 
diagram showing exactly which lines go where so all the strobes, 
waits, readys, etc. work together. The same is true of my suding 
cassette interface. Then, if I order a tape from John Arnold what 
do I have to do to get it to work. I have no trouble building the 
parts and getting them to work, but nobody will furnish me with 
comprehensive instructions on putting them together into a 
system. 

Sincerely, 

John Greiner, Jr. 20002 S 57th 

Temple TX 76501 


Computers & Stuff, a new retail computer outlet, has opened 
at 664 Via Alamo, San Lorenzo CA 94580; (415) 278-4720. 
Its hours are: Wed. - Fri., 4 - 8 p.m. 

Sat. - Sun., 1 - 7 p.m. 
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Hardware & software for speech synthesis 


by Lloyd Rice Computalker Consultants 
821 Pacific St., No. 4 Santa Monica CA 90405 
The process of generating voice output with a computer can 
be broken down into several steps. We will examine the opera¬ 
tions at each step to determine the flow of information into 
and out of the step. This examination will give us the back¬ 
ground needed to decide which parts of the overall process 
should be wired into a hardware device, and which parts 
should be kept as software to retain flexibility and control 
over the process. Perhaps the easiest way to carry out such an 
examination is by following an example phrase thru the sys¬ 
tem as it is transformed into a speech signal and sent to the 

loudspeaker, resolution of grammatical 
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Figure 1 Flowchart of the Speech Synthesis System N 

Figure 1 shows a flowchart of the speech output system 
to be described. We will see that the kinds of external infor¬ 
mation needed for the first 2 steps is quite difficult to obtain 
and can require large amounts of processing, whereas the in¬ 
formation needed in the third step is easily determined, and 
in most applications can be set as constants in the system. 
Finally, the acoustic parameters contain all the information 
necessary to control the last step, the actual synthesizer, to 
produce audio output. As a result of these observations, we 
will see that is most cases, one should specify the material to 
be synthesized in the form of marked phonetic text rather 
than raw English text. In order to present a more complete 
description, however, we will begin with the first step shown 
in Figure 1, input of English text. 

Beginning with the sample text, "This is computer 
speech.", we first consult a phonetic dictionary, which per¬ 
forms a direct translation to phonetic text. A phonetic coding 
scheme suitable for this purpose which is compatible with the 
ASCII character set and Teletype output was developed by 
the Advanced Research Projects Agency (ARPA) as a part of 
a recent speech recognition study. That phonetic code, known 
as ARPABET, is listed in Table 1. The output of the phonetic 
dictionary in our example would be, "DHIHS/IHZ/KAHM- 
PYUWTER/SPIYCH.#". 

The main problem which arises at this stage is due to 
homographs, words that are spelled the same but pronounced 
differently. Two different types of homographs, however, pre¬ 
sent quite different problems. The first type consists mainly 
of short words such as "bow," pronounced either as in "tied 
a bow" and "bow and arrow," or as in "off the starboard 
bow." In these cases, the pronounciation can usually be re¬ 
solved by examining the surrounding context. The other type 
of ambiguity is a lesser noticed but very widespread phe¬ 
nomenon in English: the situation where a word has a differ¬ 
ent stress pattern depending on whether it is used as a noun 
or a verb. As an example of this, notice the difference in 


"It was a dull subject," and "They were going to subject him 
to cruel punishment." It is not evident from the spelling 
which usage is intended, and requires that a fairly complete 
grammatical analysis be carried out Id make that decision. One 
advantage at this point is that good use can be made of the 
recovered grammatical structure in the next step, where a more 
elaborate assignment of stress is performed. 

The second step in the synthesis process deals with the 
assignment of sentence stress levels to the phonetic text string. 
To clarify that operation we will first have a closer look at 
the nature of the linguistic feature known as stress. The 
stress will be coded as a numerical value attached to a vowel 
in the phonetic string. That value will be realized later by the 
synthesizer in three different ways: as an increase in the pitch 
frequency, as a lengthening of the vowel duration, and to some 
extent as an increase in amplitude. The primary or highest 
level of stress is marked as a "1" following the vowel symbol. 
Secondary stress, marked with a "2," has less extreme acous¬ 
tic effects than primary stress. As many as 3 or 4 distinct 
levels of stress may be marked in a sentence. 

With regard to its communicative value, stress serves two 
/• quite distinct functions. The sentence stress pattern, together 
_ with timing and intonation, serves to communicate the gram¬ 
matical structure to the listener. One can think of the gram- 
matical structure as being transformed into a stress and into¬ 
nation pattern by the speaker which is then decoded back 
into the phrase structure by the listener. Using the term 
"grammar," I am here including several kinds of information 
about words, such as the noun-verb distinction discussed 
above as well as syntactic information about the phrase and 
clause structure. The second function of the stress pattern is 
to indicate which item or items in a sentence are to be given 
special emphasis. The meaning of a sentence can be shifted 
around by emphasizing different items. The sources of infor¬ 
mation needed for marking these two components of the 
stress pattern are quite different and must be considered sep¬ 
arately. Our example, with the stress pattern marked, would 
be something like, "DHIH3S/IHZ/KAHMPYUW1TER/ 
SPIY2CH.#". Notice also that the word and utterance bound¬ 
ary markers have been kept explicitly in the text string. 

The purpose of the portion of the system described thus 
far is imply to generate strings of phonetic text with marked 
stress patterns which are to be synthesized by the 2 steps in 
the bottom row of Figure 1. Marked phonetic text strings can 
be obtained in other ways, of course. In the case of pre¬ 
determined phrases, marked phonetic strings can be stored 
instead of raw English text, making the synthesis task much 
simpler. On the other hand, consider synthesis of speech from 
an information network of some kind. The qrammatical infor¬ 
mation could come from a phrase strut ■ jre grammar which is 
being driven by relationships in the network. Items in the net¬ 
work would be coded as phonetic strings, or in essence, refer¬ 
ences to the phonetic dictionary described above. There are 
many significant problems remaining with this approach, but it 
is perhaps one of the more exciting applications of synthetic 
speech. The third box in the flowchart in Figure 1 is the acous¬ 
tic rules section. In order to describe what the acoustic rules 
are and what they do, we must first look at the acoustic 
structure of speech. The speech code must be broken down 
into components so it can be synthesized by controlling, in 
real time, a limited number of parameter values. To a good 
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approximation, speech can be represented by the model 
shown in Figure 2. 

This model requires 9 parameter control values consist¬ 
ing of 5 frequency controls and 4 amplitude controls. The 
box labeled "pulse source" is a controllable frequency oscil¬ 
lator which is adjusted dynamically to determine the voice 


pitch. The boxes labeled "resonator" are tunable, single-pole, 
bandpass resonators which determine the frequency or spec¬ 
tral shape of the speech signal in different ways. The data 
bus symbol used to represent the control inputs indicates that 
each parameter can be controlled by at most 8 bits from the 
computer's output bus. The data rates needed to control the 
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Computer Representation | 

Example 


Computer Representation 

Example 

Table 1 

phoneme 

L-Character 

2-Characters 


-Character 

2-Characters 


COMPUTER 

i 

i 

IY 

beat 

P 

P 

P 

£et 


I 

I 

IH 

bit 

t 

t 

T 

ten 

PHONETIC 

e 

e 

EY 

bait 

k 

k 

K 

kit 

REPRESENTATIONS 

c 

E 

EH 

bet 

b 

b 

B 

bet 



@ 

AE 

bat 

d 

d 

D 

debt 


4 

a 

AA 

Bob 

g 

g 

G 

get 

NOTE: Spaces 

A 

A 

AH 

but 

h 

h 

HH 

hat 

are ignored 









except 

D 

O 

AO 

bought 

f 

f 

F 

fat 

within escapes. 

O 

o 

OW 

boat 

e 

T 

TH 

thing 


u 

u 

UH 

book 

S 

S 

S 

sat 


U 

U 

UW 

boot 

* - 
s or / 

s 

SH 

shut 


a 

X 

AX 

about 

V 

V 

V 

vat 


£ 

X 

IX 

roses 

& 

D 

DH 

that 


y 

R 

ER 

bird 

z 

z 

Z 

200 


aU or aw 

w 

AW 

down 

V 

z or) 

z 

ZH 

azure 


al or ay 

Y 

AY 

buy 

V 

c 

c 

CH 

church 


ol or oy 

0 

OY 

boy 

V 

J 

j 

JH 

^[udge 


y 

y 

Y 

you 

n 

H 

WH 

which 


W 

W 

W 

wit 

syl 1,1 

L 

EL 

battle 


r 

r 

R 

rent 

syl m,m 

M 

EM 

bottom 


i 

i 

L 

^et 

syl n,n 

N 

EN 

button 


m 

m 

M 

met 

flapped t,X 

F 

DX 

batter 


n 

n 

N 

net 

glottal StojV 

Q 

Q 



n 

G 

NX 

sing 

silence 

- 

- 







non-speech 









segment 

I 1 

I 

laugh, etc. 


AUXILIARY SYMBOLS (1- AND 2-CHARACTER CODES ARE IDENTICAL) 


Symbol 

Meaning 

Symbol 

Meaning 


+ 

Morpheme boundary 


:3 or . 

Fall- 

-rise or non-term juncture 


/ 

Word boundary 


* ** 

Comment (anything 

except * or **) 


• 

Utterance boundary 


• • 

Apos- 

-surround special symbol 







in comment 



t 

Tone group boundary 







:1 or . 

Falling or decl. juncture 

( ) 

Phoneme class information 


:2 or ? 

Rising or inter, juncture 

< > 

Phonetic or allohonic escape j 


STRESS REPRESENTATIONS (IF 

PRESENT 

MUST IMMEDIATELY FOLLOW THE VOWEL) 



Lvalue 

Stress 

Assignment 


Valne> 

Strr>= 

q As^icrnr'prt- 



1 

o 

No stress 


3 

Tertiary stress 



1 

Primary stress 


• 

(Etc 

.) 



2 

Secondary stress 


J 
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parameters are quite low, the highest rate needed for any 
parameter being less than 100 new settings per second. 

I will not go into detail here describing the actual 
parameter values needed to represent particular speech sounds. 
An article to appear in the August, 1976 issue of Byte Maga¬ 
zine goes into some detail on the nature of the different kinds 
of speech sounds and how they can be generated by con¬ 
trolling the parameter values in such a model. Sucn information 
would, of course, be necessary to write a software implemen¬ 
tation of the acoustic rules. For our present purposes, we con¬ 
sider the 9 control values as outlined above to represent an 
acoustic parameter model of speech. We can now turn to a 
discussion of the acoustic rules and the tasks they must per¬ 
form to generate controls for this model. 

Each phoneme, as encoded in the phonetic text string, 
is a symbol representing one or more acoustic speech segments, 
each such segment being produced by a particular pattern of 
values on the control parameters. Each pattern, or configura¬ 
tion of control values, must be held for a specific length of 
time before changing to the next pattern. As a first approxi¬ 
mation then, the rules would consist of a series of table look¬ 
ups to convert each phoneme into a sequence of parameter 
patterns, along with the duration each pattern is to be held. 

Now comes the catch! This first approximation makes 
rather poor speech. The problem is that the transitions be¬ 
tween parameter values are often more important than the 
actual values at any given time. The flow of parameter values 
must be more carefully orchestrated. Actually, the only tough 
problem here is that correct transitions between phonemes are 
just as important as having the correct temporal structure 
within a phoneme. This means that phonemes cannot be 
coded as independent sets of parameter time functions which 
are merely joined together sequentially, but that some interac¬ 
tion must take place between phoneme patterns before they 
are sent out to the synthesizer module. Briefly, the different 
phonemes of a language can be classified according to the 
effects of boundary interactions. The transition of each param¬ 
eter value across a given phoneme boundary can then be de¬ 
termined from the boundary characteristics of each of the 
neighborhing phonemes. Such boundary behavior information 
can be stored in phoneme look-up tables. 

In addition to assigning initial parameter values and 
mapping the transitions across boundaries, the acoustic rules 
must also assign and modify durations. For example, a 
stressed vowel is given a longer duration than the same 
vowel in an unstressed position. 

A third function the acoustic rules must perform—proba¬ 
bly the most important for natural sounding speech—is to as¬ 
sign the time pattern of values to the pitch frequency 
parameter. First, an archetypal intonation pattern is chosen on 
the basis of punctuation (retained in the phonetic text just 
for this purpose). A period selects a failing pitch, a comma 
signals a level pause, and a question mark indicates a rising 
pattern. Other diacritical marks could be defined in the pho¬ 
netic string to generate more complex pitch patterns such as 
singing. The selected archetypal pitch pattern is then modi¬ 
fied locally by specific phonemes. Such local modification of 
the pitch pattern is one of the effects of a stress level marked 
on a vowel. Also, some consonants affect the pitch value 
slightly. 

To complete the synthesis process, the acoustic param¬ 
eters generated by the acoustic rules are output, in real time, 
to a synthesizer module such as sketched in Figure 2 and 



described in the forthcoming Byte article. The synthesizer 
constructs an audio frequency signal as specified by the con¬ 
trol parameters. The audio signal is then sent to a loud¬ 
speaker as the speech output. 

It would be impractical to consider simulating the syn¬ 
thesizer module in software because of the speed needed to 
generate speech in real time. That task is much more appro¬ 
priately handled by analog hardware. Such a hardware syn¬ 
thesizer module is currently being developed by Computalker, 
821 Pacific St., No. 4, Santa Monica CA 90405. The Compu¬ 
talker synthesizer module would be driven by the microcom¬ 
puter output data bus as described above. The software inter¬ 
face consists either of a direct, manually-controlled parameter 
pattern generator or an implementation of the acoustic rules. 
Software for the acoustic rules will also be developed by 
Computalker as the hardware becomes available. 

I believe it is important to consider at this point some 
of the trade-offs involved in implementing the acoustic rules 
in software rather than hardware. A synthesizer system such 
as the Votrax VS-6 contains a hardware implementation of the 
basic acoustic rules. As a result, the language available for 
coding the phonetic text is fixed and cannot be extended. In 
addition, the phoneme table values are fixed so that each pho¬ 
neme has a set phonetic quality. By implementing these rules 
in software you could retain the flexibility over pitch pat¬ 
terns and speech rate and also have control over the phonetic 
qualities which determine the language and dialect. The acous¬ 
tic rules determine a number of qualities in the resulting 
speech which are characteristic of a particular speaker, such as 
the sex and age, and other qualities which vary from occasion 
to occasion, such as voice quality, speaking rate, distinctness 
of articulation, etc. Because of time constraints, a software 
version of the acoustic rules may not have time to handle all 
these possibilities as on-line variables. Of course, it is cheaper 
to produce a synthesizer module if a hardware acoustic rules 
system is not included. 

How could speech output from a microcomputer be 
used? Several applications come to mind for the hobbyist 
environment, such as responses in games, voice readout of 
measurement data, system status warnings, etc., etc. Other 
applications might include telephone answering and intrusion 
warnings. What about generating audio tape labels automatical¬ 
ly? Each of these applications makes its own demands for 
quality, naturalness and range of vocabulary needed. I would 
very much like to hear of your interest in computer speech 
output. What applications do you have in mind? What prob¬ 
lems do you foresee? A note to the above address will 
assure that you receive further information as it becomes 
available. 
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MINOL—Tiny BASI C with Strings in 1.75K Bytes 


AN OUTSTANDING JOB 

DONE BY A HIGH SCHOOL JUNIOR 

Dear Mr. Warren: May 1, 1976 

I have a Tiny BASIC program running on my Altair 
that I think you might be interested in. I call it MINOL 
(mine-ail). It fits in 1.75K memory. Unlike the other Tiny 
BASIC's, MINOL has a string-handling capability, but only 
single-byte, integer arithmetic and left-to-right expression 
evaluation. 

Additions to TB include CALL machine-language sub¬ 
routines, multiple statements on a line (like TBX), and 
optional "LET" in variable assignments. Memory locations of 
the form (H,L) can be used interchangably with variables, per¬ 
mitting DIM-like operations. 

Sincerely, 

Erik T. Mueller 36 Homestead Lane 

Roosevelt NJ 08555 

MINOL is an abbreviated form of BASIC with additional 
features. It has twelve statements: LET, PR, IN, GOTO, IF, 
CALL, END, NEW, RUN, CLEAR, LIST, and OS. 

Variables: A letter from A to Z, or a memory location 
of the form (H,L), where H is tbe high address (decimal), and 
L is the low address. H and L may be expressions. 

Number: An integer from 0 to 255. 

Expression: A series of terms separated by arithmetic 
operators. 

Terms: Numbers, variables, schars, random. 

Schar: A single character enclosed in single quotes. Gives 
the ASCII value of the character. 

Random: "I" (exclamation point) gives a random num¬ 
ber between 0 and 255. (Subroutine by Jim Parker.) 

Arithmetic Operators: + - * / 

Relational Operators (not permitted in expressions): 

= # <("less than") 

Arithmetic Evaluation: All expressions are evaluated from 
left to right (no precedence of operations). 

Statements: A statement consists of one or more sub¬ 
statements separated by (colon), and terminated by CR. 
Lines up to 72 characters. Line numbers from 1 to 254. All 
statements may be used with or without a line number. 
Statements without a line number are executed immediately. 
Statements with line numbers are edited into the existing 
program. 

Substatements: [LET | J) 1 <var> = <expr> Assigns the 
value of a variable. The "LET" can be left out if desired. 

Ex: LET S = 0 

LET (24,0) = P-59 

A=B+C*J-198 

(25,5)=A*7/B 
PR <var-list> [; | cf>] 

<var-list> : Literals, strings, or expressions separated by 
commas. 

Literal: Characters to be printed enclosed in double 
quotes. 

Strings: $(H,L.): A series of memory locations starting 
at H,L which contain characters previously entered. 

Expressions: Simple variable or expression. 

Ex: PR"YOU SAY YOUR NAME IS",$(10,0) 

PRA,B,(6,0), 
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PR 56+!/A,B 
PR 

A semicolon at the end of a PR suppresses CRLF. A blank 
PR produces a CRLF. 

PR Format: Numerical values are printed with one lead¬ 
ing and trailing space and with all leading zeros suppressed. 

All strings and literals are printed without leading and trailing 
spaces. No zone spacing. 

GOTO<expr> 

Transfers control to the specified statement. GOTO 0 
transfers control to beginning of unnumbered statement. 

Ex: GOTO A*10 
GOTO 78 

IF<expr> <relop> <expr>;<statement> 

Executes the statement following the (semi-colon) if 
the specified relation is true. If it is untrue, control is trans¬ 
ferred to the next statement on the line (if present). 

Ex: IF X=5 ; GOTO 20 

IF A='Y' ;PR"SURE, WHY NOT?" 

IF A+B*C # !;GOTO 20 : PRA+B*C 
IF Y # 6; S=! 

IN [< var> |<str>] [,[< var> |<str>] ] * 

This statement permits two types of data to be entered 
from the terminal: a) Numeric data; and 

b) Alphanumeric data; either a single 
letter, or a string of n characters. 

Using a <var>: The input data is tested. If it is numeric, 
the number is deposited into the variable. If the data is not a 
number, the ASCII value of the first character typed is 
deposited. 

Using a <str>: (of the form $(H,L) The inputted char¬ 
acters are deposited into memory sequentially starting at loca¬ 
tion H,L. 255 is placed in memory after the last character 
before CR. All spaces inputted are ignored unless enclosed by 
quotes. Note that (H,L) refers to a single location, but 
$(H,L) refers to a series of locations beginning at H,L. (H,L) 
can be used in expressions as a variable, but $(H,L) can only 
be used in I/O statements (IN, PR). 

CALL (H,L) 

Calls users subroutine starting at location H,L decimal. 
END: Terminates program. 

NEW: Deletes all lines of a program. 

CLEAR: Sets all variables (A-Z) equal to zero. 

RUN: Starts execution of program at lowest numbered state¬ 
ment. 

LIST: Lists program in memory. 

OS: Transfers control to user's operating system. 

Line editing and correction: 

Typing X s deletes the last character typed. 

X L deletes an entire line. 

X c stops executing program. 

Prints: BREAK AT LL (LL is the line that was to 
be executed before the 
interrupt occurred.) 

To delete a line, type the line number followed by CR. 
To change a line, type in the line with changes. The new 
line will replace the old one. 

ERROR MESSAGES IERR L AT XX 
1. Label does not exist 
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2. Input is over 72 characters. 

3. Unrecognizable statement type. 

4. Illegal variable. 

5. Syntax error. 

6. Out of memory. 

EM MINOL 2.1 SYNTAX Apr. 1976 

<line> ::=<number> <statement> cr 

<statement> ::=<substatement>* : <substa 
<substatement> ::=[LET Icb] <var> = <expr> 


altered. 

Must CALL. INT 315 
363 
002 

This checks for keyboard 
interrupt (X c ). 


:=< number > <statement> cr | < statement cr 000 116 ' 006 377 M,N0L Interpreter 


<number> 

<digit> 

< var> 
<relop> 
<expr-list> 

<var-str-list> 

<expr> 

<term> 

< literal > 
<schar> 
<str> 

< memloO 
<highadr> 

< lowadr> 
<char> 


::=<substatement>* : <substatement> 
::=[LET |<j>] < var> = <expr> 

PR <expr-list> [;|(j>] 

IN <var-str-list> 

IF <expr><relop><expr> ; <statement> 
GOTO <expr> 

CALL <memloc> 

END 

RUN 

LIST E 

NEW 1 

CLEAR 1 

° S 2 

::=<digit> <digit> 

::=0|l |. -18 |9 

::=A Bl. . | Y |Z | < memloc> 

::=# =[< 

::= [literal> |<expr> |<str>] [,[<jiteral> | 
<expr> | < str>] ] * 

::=[< var> [<str>] [;[< var> |<str>] ] * 
::=[<term><aroper>] * <term> 

::=<var> |<number> I '<schar>' ll 
char>*" 

::=<char> 

::=$ <memloc> 

::=(< highadr>,<lowadr>) 

::=< number> 

::=<number> 

::=any character except " and cr 


000 253 L Highest memory location available 
261 H for MINOL programs. 

001 142 L Address of user's operating system, 

143 H or monitor. 

> 

All input text is stored at 006 210 - 006 320 

Free speace is left for short strings at 006 333 - 006 377 

Variables (A-Z) are stored at 005 007 - 005 042 

007 000 + Program storage 

Executing MINOL: 

To start MINOL and initialize program area, EXAMINE 002 350, RUN 
To start without initialization, EXAMINE 000000, RUN. 


Notes: Oencloses an element of MINOL 
(j) is the empty set 
* repeat limited by length of line 

9 

repeat from 0 to 2 times 

MINOL 

Memory Allocation: 

(All locations are split octal) 

000 000 - 000 115 I/O Routines, etc. 


System Reset: 000 


CRLF: 


INPUT: 


OUTPUT: 


061 LXI SP 

377 

017 

317 RST CRLF 
303 JMP, MINOL 
116 
000 

A subroutine to output a 
CR followed by a LF. 
Moves a character from 
input device to the A reg¬ 
ister. Parity equals 1. 

Must output an echo 
check of the inputted 
character. 

Outputs character in the 
A register. Parity equals 1. 
No registers may be 


Dear Jim: May 24, 1976 

I am enclosing the listing of MINOL—manually typed! 

There are several features of my program, both positive 
and negative, that I might point out. 

On the plus side, MINOL uses only 1.75K of memory, 
including the input-output subroutines (although since writing 
it I see how I can make it even smaller.) Memory locations of 
the form (H,L) can be used similarly to one- or two-dimen¬ 
sional DIMs in higher BASIC's. Simple input or output strings 
are possible by specifying a series of memory locations—of the 
form $(H,L) where H,L is the first location where characters 
are to be deposited. I am enclosing three programs to illustrate 
these features. On the negative side, the 

program is not designed for arithmetic functions, having no 
grouping of operations, and being limited to a value of 255. 
The relational operators are restricted to =, #, and <, although 
> ("greater than") can be done by reversing the logical expres¬ 
sions. Fewer error messages are provided than usual. MINOL is 
written completely in machine language without using IL. 

When I can supply MINOL on a cassette I'll let you 
know. You might like to know that I am in my third year of 
high school. 

Yours truly, 

Erik T. Mueller Britton House 

Roosevelt NJ 08555 


Additions/changes since the May 1st letter: 

Spaces are ignored: a. During line/statement entry 

unless enclosed by quotes. 

b. When inputting variables. 

c. When inputting strings if the L 
address is zero. 

Spaces are accepted: a. When inputting strings if the L 
address is non-zero. 

b. When enclosed by quotes. 

Instead of GOSUB/RET statements, use the following 
substitute statements to perform the same function: 

First initialize the GOSUB stack pointer Y,Z: 

2 Y=14:Z=255 (Y and Z are the H,L address of 
some free space in memory.) 

Instead of a GOSUB statement, substitute the 
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following: LET(Y,Z)=< Return label> :Z=Z-1:GOTO 
< subroutine label > 

Instead of a RET, substitute: Z=Z+1 :GOTO(Y,Z) 

Free space is left for very short user's strings from 
006366 to 006377. 


On a directly-executed IN statement, although the data 
will be correctly stored, an error message may appear after 
its execution. 

The monitor gives a "]" as a prompt. The IN statement 
gives a "?" unless a sense switch is up. 

Three programs in MINOL: 


] LI ST 

10 PR"GIVE ME A SENTENCE":IN$(14,1) 

20 PR"STRING TO SEARCH FOR?":IN$(14,101) 

21 A=0 

22 A=A+1:IF(14,A)#255;G0T022 

23 B=0 

24 B=B+1:IF(14,100+B)#255:GOT024 
30 C=1:D=1:S=0 

40 IF(14,D+100)#(14,C);GOTO70 
50 D=D+1:C=C+1:IFD<B;GOTO40 
60 LETS=S+1 
65 C=C-1 
70 LETD=1 

80 C=C+1:IFC<A;GOTO40 

90 PR"• " ; $ (14,101);"' OCCURS";S: 

96 IFS=1;GOTO100 

97 PR"TIMES IN '";$( 14,1END 
100 PR"TIME IN $(14,1);""':END 
] RUN 

GIVE ME A SENTENCE 
? THE BLUE BIRD IN THE BLUE SKY 
STRING TO SEARCH FOR? 

? BLUE 

•BLUE' OCCURS 2 TIMES IN 'THE BLUE BIRD IN THE BLUE SKY' 


3 LIST 

10 "* * *NUMBER-A NUMBER GUESSING GAME (NUM05) 

20 PR: PR"WHAT IS YOUR NAME";:IN$(14,1) 

30 X-i:S=0:PR"HI,";$(14,1);". WELCOME TO THE GAME OF NUMBER" 
40 PR"I'M THINKING OF A NUMBER FROM 0 TO 255" 

50 PR"GUESS MY NUMBER 11" 

60 PR:PR"YOUR GUESS"ING:S=S+1 
65 IFG=X;GOTO90 

70 IFG<X;PR"TOO SMALL. TRY A BIGGER NUMBER." 

80 IFX<G;PR"TOO BIG. TRY A SMALLER NUMBER." 

85 GOTO60 

90 PR"THAT'S RIGHT,";$(14,1);"I! YOU GOT IT IN";S;"GUESSES" 
100 PR"PLAY AGAIN";:INA:IFA=•Y';GOTO30 
110 PR"OK.HOPE YOU HAD FUN.":END 


10 PR"NAME";:IN$( 14 , 1 ) 

20 IF(14,1)='J';IF(14,2)='I';IF(14,3)='M';PR"IT'S JIMl" 
30 IF(14,1)#'J';PR"IT'S NOT JIM.":GOTO10 


] RUN 

NAME?ERIK 
IT'S NOT JIM. 
NAME?JIM 
IT'S JIMl 
NAME?X C 
BREAK AT 10 
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System monitor for 8080 ■ 
based microcomputers 

by Charlie Pack, 25470 Elana Rd., Los Altos Hills CA 94022 

After developing an 82-byte octal loader using nothing 
but the switch panel on my Altair 8800, I concluded that a 
system monitor was needed to provide better communications 
between myself and my machine. The required functions were: 
(1) display the contents of one byte or any segment of 
memory in octal, (2) display the contents of all registers, 

(3) enter programs in octal from a keyboard, (4) load and 
store programs or data, and (5) jump to a program. The I/O 
device to be supported was an ASR-33 Teletype with paper- 
tape reader and punch. The Monitor described in this article 
meets these requirements. 

Since the Monitor has several hundred statements, and 
the memory in my computer is limited, I needed a cross- 
assembler that would run on the computers and with the soft¬ 
ware to which I had access. So, I wrote one—would you be¬ 
lieve—in COBOL?!! The program listing for the Monitor was 
printed musing my COBOL cross-assembler. Since COBOL is 
rather inefficient at non-structured string handling and sub¬ 
scripting, I made the source format fixed and eliminated 
punctuation. Register operands were made a part of the in¬ 
struction code, for example MOV AM moves a byte from 
memory to accumulator. Otherwise, the microprocessor in¬ 
structions are normal. The only pseudo-instructions used are 
ORG, DB, and DW. ORG sets the location counter; DB de¬ 
fines a single byte, and DW defines a doubleword (two bytes). 
Since it is difficult to do octal arithmetic in COBOL, the bells 
and whistles were left out of the cross-assembler. 

A paper tape of this system is being delivered to the 
Program Repository at the Community Computer Center, 

1919 Menalto, Menlo Park CA 94025. 
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COPYRIGHT MANIA: It’s mine; it’s mine, 
and you can’t play with it! 

During the past year or so. People's Computer Company 
has received several letters-with-enclosures from one Calvin N. 
Mooers of Rockford Research, Inc. in Cambridge, Mass. We 
initiated the rather unfortunate contact by asking him for in¬ 
formation about an interesting but relatively obscure computer 
language that he had developed called TRAC. (Note: TRAC is, 
at the least, a registered trademark, and probably patented, 
copyrighted, and marked with infra-red dye to boot.) What we 
have since received from this person, however, appears to 
primarily be concerned with copyrights, patents, trade-marks, 
and the like. We don't really know because we didn't take the 
time to wade through all of it. He has sent us a copyrighted 
price list for his software and documentation that included an 
entire paragraph about its copyright protection and registered 
service mark, a mimeographed policy on copyrights and 
trade-marks, an article concerning a $3 million suit against 
some companies that purportedly have used Mooers' language, 
and two copies of a major article that Mooers wrote concern¬ 
ing software copyrighting (we hesitate to give the actual name 
and source of the article—we might be sued for reprinting the 
title without the author's permission). Oh yes, he also included 
some information about his computer language. Incidentally, 
he explicitly prohibited us from publishing most of his letters 
. . . which saved us at least several microseconds in our reach¬ 
ing the decision not to reprint them. Needless to say, Mooers 
has shown great interest in (preoccupation with?) the manner 
in which many hobbyists obtain their software, and has writ¬ 
ten us concerning this topic . . . but we can't let you know 
what he said because he prohibited us from printing or para¬ 
phrasing it. 

If you are interested in the topic of proprietary soft¬ 
ware, you might look up Mooers' name in some readers' 
guide to computer science literature. 

There is an interesting clincher to this little story: 
Enclosed with Mooers' most recent paper deluge concerning 
copyright protection were reproduced copies of two articles 
from Computerworld newspaper. Yes, Computerworld is copy¬ 
righted and includes an explicit prohibition against reproduc¬ 
tion of material appearing in it unless written permission is 
obtained. No, the copies that Mooers included with his letter 
did not include any indication that he had obtained such 
permission. 

[Editor's Note: We have no quarrel with copyrighting, 
whether it is applied to publications or to software. You may 
note that most of the PCC publications are copyrighted, 
including Dr. Dobb's Journal. We do object, however, to the 
incredible teapot tempest that has recently been raised con¬ 
cerning proprietary software and the hobbyist community. We 
also object to the blanket indictment that has been laid on 
all hobbyists: . . most of you steal your software" (the 

essence of Bill Gate's widely publicized February 3rd, open- 
letter to hobbyists). 

1. We feel that it unjustifiably casts a shadow on the 
entire hobbyist community. 

2. We know there are many hobbyists who are not 
thieves in spite of the fact that copyrighted software is as easy 


to copy as are copyrighted newspaper articles. 

3. We feel this proprietary preoccupation is a waste and 
misuse of time and energies of talented software professionals. 

4. We feel there are differences between marketing soft¬ 
ware to hobbyist/consumers for their entertainment, and mar¬ 
keting software to the business and industrial community 
where it is used directly or indirectly for financial gain. We 
find it unreasonable and impractical to attempt to sell soft¬ 
ware to hobbyists when its price is half the cost of their hard¬ 
ware systems. It is unreasonable because it's too expensive. It 
is impractical because, at best, software is very difficult to 
protect against reproduction. 

Furthermore, it is naive to attempt to market software 
to hobbyists via a royalty agreement with a hardware manu¬ 
facturer. The analogy comes to mind of someone developing 
an excellent and useful reference book, then attempting to 
market it via a royalty agreement with a manufacturer of 
copying machines, knowing that the manufacturer is going to 
place the book next to their copiers with a sign saying, "If 
you want a copy of this book, you must send us $350." 

We feel there are only two practical choices in marketing 
software for the hobbyist community: 1) Charge very little 
for your software, and depend on volume sales for your 
profit; 2) Charge a great deal for your software, and sell it to 
your only controllable marketplace: the hardware manufac¬ 
turers. They need it to enhance their hardware. They are also 
the only ones who are making sufficient profit to be able to 
afford your high price. 

We believe that we are exemplifying these viewpoints 
relevant to the copyrighting of PCC publications. Please note 
the statement of Reprint Privileges inside the front page of 
each issue of Dr. Dobb’s Journal. You may also note that, 
since we are marketing to the non-profit-making hobbyists, 
our subscription rate is $10/year. Compare this to, for in¬ 
stance, the $28/year that Microcomputer Digest charges for a 
smaller, monthly publication, or the $10 to $40 that DataPro 
charges for a single copy of some of their slender reports. But, 
these latter publications are being marketed to the highly 
profitable business and industrial computer communities. We 
have no particular quarrel with this. We are simply pointing 
out that one adjusts to the realities of one's chosen market¬ 
place. 

Finally, to those software professionals and hardware 
manufacturers who choose to provide low-cost Software to the 
hobbyist community: We wish to actively encourage your 
efforts. As you develop such software, if you will forward 
information about ft, we will be pleased to publicize it, with¬ 
out cost. We believe that you are taking the right track in 
this new and exciting area.] -Jim C. Warren, Jr. 


THE SIX PROJECT STAGES 

Wild Enthusiasm 
Disillusionment 
Total Confusion 
Search for the Guilty 
Punishment of the Innocent 
Promotion of the Nonparticipants 
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THE 1976 TRENTON COMPUTER FESTIVAL 

by Sol Libes 

[Editor's Note: The 1976 Trenton Computer Festival was the 
first manufacturer-independent computer convention of 
national scope for hobbyists. It was held on May 2nd.] 

Back in November 1975 when Al Katz and I conceived 
of a Computer Festival, if you had said that 1,500 people 
would attend, I would have said you didn't know what you 
were talking about. And, if you had said that we would have 
45 exhibitors, I would have thought that you belonged in the 
"cuckoo nest." But, it all happened on May 2nd at Trenton 
'Tate College in New Jersey. 


SOL LIBES, ACG-NJ president, spoke at the 
"Computer Club Congress". 


What started out as a small affair for about 300 people 
(we only had about 100 members at the time), six to nine 
exhibitors, and a flea market, exploded. Considering that we 
did not anticipate such a large affair, it is incredible that every¬ 
thing went so well. 


The Festival turned into a National Convention—the first of 
its kind. People came from California, Colorado, Florida, North 
Carolina, Virginia, Washington DC, Maryland, Ohio, Pennsyl¬ 
vania, Massachusetts, Illinois, Indiana, New York, Connecticut, 
New Hampshire, Michigan, and, of course. New Jersey—18 
states in all! 

There were 26 speakers with such well known authorities 
as Dr. Robert Suding, Hal Chamberlin, and Dave Ahl. They 
spoke on subjects such as the Z-80 Mpu—including demo, 
computer music, computer graphics, writing software, 16-bit 
mpu's, etc. 

The exhibitors included DEC, Motorola, RAC, Digital 


FLEA MARKET scene 


PAT DEITTMAN and associate prepared for demon¬ 
stration on use of microcomputers by radio amateurs. 


121 









HAL CHAMBERLIN (left), Computer Hobbyist editor, 
demonstrated his new techniques for computer music. 


DAVE AHL (Creative Computing editor) spoke on 
computer games. 
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Group, dealers for MITS, IMS, Sphere, E&L, HAL Communi¬ 
cations, and many others. 

Amateurs set up demo's of their systems. There was a free 
program-copying service for programs in the public domain. 
There was a huge outdoor flea market. 

One exhibitor, who had brought 14 CRT terminals (@$500 
apiece) to the festival, sold 12 within minutes after the doors 
opened. By noon, all his stock was gone and he closed up his 
booth! 

Of course, I was very busy during the Festival, but I did 
manage to go to two talks—and they were great. I heard Hal 
Chamberlin's talk on computer music. Hal is doing some 
radically new things using his IMP 16-bit mpu and a special 
Fourier hardware system to create music that is better than 
that I have heard from systems using other techniques. Hal 
played a tape of the Bach Toccata & Fugue in D Minor 
which was programmed on a 16-bit machine and processed 
through his Fourier circuitry to produce a rendition which 


MORE flea market 
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sounded like the best musician I have ever heard. 

The other talk I heard was Dr. Robert Suding's concerning 
the new Zilog Z-80 Mpu. Bob had received an engineering 
sample of the Z-80 about 6 weeks ago and quickly and easily 
reworked a Digital Group CPU board to accept the Z-80 (it 
is not pin compatible with the 8080). Bob showed his sys¬ 
tem with a very impressive CRT display of all those Z-80 
double registers. 

All I can say is, if you were not there, you really missed 
the event of the year (there must have been about 100 Mpu- 
based systems up and running). 


DAY RECOMMENDS . . . 


100 door prizes—worth about $2K—were handed out 
at the festival. 


photos by Marj Kirk 


Dear Jim Warren Jr. 

There are two excellent articles in May 7, 1976, 
Science: 

"Microprocessors?—An End User's View" R.E. Dessy, 
pp 511-518. 

"Microprocessor Aplications: A Less Sophisticated 
Approach," J.T. Arnold, pp 519-523. 

j Jim Day 
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40 CHARS/LINE PRINTER FOR $250 


by Southwest Technical Products Corp. staff 
219 W. Rhapsody, San Antonio TX 78216 
(512) 344-0241 


Southwest Technical's PR-40 Alphanumeric Printer Kit 
is a 5x7 dot matrix impact printer similar in operation to the 
well-known Centronics printers. It prints the 64 character 
upper case ASCII set with 40 characters/line at a print rate of 
75 lines/minute on standard 3-7/8" wide rolls of adding 
machine paper. One complete line is printed at a time from an 
internal forty-character line buffer memory. Printing takes place 
either on the receipt of a carriage return or automatically 
whenever the line buffer memory is filled. 

The printer is available in kit form only and includes 
the assembled print mechanism, chassis, circuit boards, com¬ 
ponents, 120/240 VAC-50/60 Hz power supply, assembly in¬ 
structions, one ribbon and one roll of paper. It sells for 
$250 postpaid in the U.S., and delivery is 30 days. 
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Votrax makes the offer 

ech synthesis kit for under $1K 


spe 

by John McDaniel 


Dear Jim: April 26, 1976 

This letter is to confirm our conversation with regard to 
the VOTRAX Synthesizer Kit which we had discussed. 

As I indicated in our conversation, VOTRAX was not 
aware of the computer hobbyist market, and therefore had not 
addressed itself to providing anything for that community. 

As a result of preliminary investigation, I am pleased to 
relate to you that we could provide a VOTRAX Synthesizer 
in a kit form for a price not to exceed $1000. However, we 
require more information as to the specifications of the kit 
and the size of market potential, before we can commit to 
this price. Our quotation on a minimum order and delivery 
would be contingent on receiving this data. 

Based on the text of your announcement in Dr. Dobb's 
Journal [Volume 1, Number 3, page 12], I believe that I have 
mislead you with regard to the size of the VOTRAX market. 
Your inference was that the VOTRAX market is not very 
large at present. This is not correct and, I am afraid, would 
tend to mislead your readers as to the impact the hobbyist 
market would have. This is not to say, however, that we're 
not interested in providing something for those users. 

I hope that this information will be of benefit to you. 

I look forward to meeting with you again at the Home-Brew 
Computer Club Meeting. If I can be of further service, please 
don't hesitate to contact me. 

Sincerely, 

John H. McDaniel 4340 Ccimpus Dr., No. 212 

Regional Sales Manager Newport Beach CA 92660 

Vocal Interface Division (714) 5157-9181 

BASIC SYNTHESIZER INTERFACE SPECIFICATIONS 
GENERAL DESCRIPTION 

The synthesizer requires 8 parallel data bits on its input 
pins in order to operate. Of these 8 bits, 6 are used for 
phoneme slection and 2 are used for inflection level selection. 

The synthesizer provides a clock output which must be 
used to time the input data. Data should only be presented or 
changed on the positive transition of this clock. 

Also provided is a status indicator (zero decode), which 
signals the presence of input data. This is useful when the 
synthesizer is operated from a buffer memory interface. 

All signals are TTL signal elvels, except audio output. 


6 

Data In, Phoneme MSB 

1 TTL load, 
Neg. True 

A 

7 

Data In, Phoneme 

1 TTL load, 
Neg. True 

A 

8 

Data In, Phoneme 

1 TTL load, 
Neg. True 

A 

9 

Data In, Phoneme 

1 TTL load, 
Neg. True 

A 

10 

Data In, Phoneme 

1 TTL load, 
Neg. True 

A 

11 

Data In, Phoneme LSB 

1 TTL load, 
Neg. True 

A 

2 

Output, Phoneme Clock 

2 TTL loads, 
Neg. Pulse 

B 

3 

Output, Zero Decode 

2 TTL loads, 
Pos. Ture 

C 

13 

Output, Audio Control 

Ext. 50K Vol. 
Con. Wiper 

D 

15 

Output, Audio Ground 

Audio Return 

D 

1 & 10 

Output, +5 VDC 

Interface Supply E 

S 

Oufput, +12 VDC 

Interface Supply E 

P 

Output, - 12 VDC 

Interface Supply E 

A&N 

Ground 

Signal Return 

E 


SIGNAL FUNCTION DESCRIPTION 

A. Data In (Pins 4-11) Six bit phoneme code and 2 bit 
inflection code inputs. All phoneme inputs high are 
Null code causing no output condition. 

B. Phoneme Clock Output (Pin 2) Provides internal tim¬ 
ing of synthesizer and must be used to control data 
input. Data should only be presented or changed on 
the positive edge of this signal. When all phoneme data 
inputs are high, this clock runs with a period of 6 
milliseconds. When data input is present, the period 
lengthens, depending on speech rate and the par¬ 
ticular phoneme. 

C. Zero Decode Output (Pin 3) This signal indicates the 
status of data by a high signal in absence of data and 
a low signal when any phoneme data input is low. 

D. Audio Control Output (Pins 13 & 15) 1-2 volt maxi¬ 
mum audio signal from 50K external volume control. 
Additional external audio amplifier required to drive 
speaker. 


Pin Description, Conn. 6, (Front Mother Board) 


Connector 
Pin No. Function 


Description 


4 Data In, Inflection MSB 1 TTL load, 

Neg. True 

5 Data In, Inflection LSB 1 TTL load, 

Neg. True 


See Signal 
Function 

A 

A 


E. Power Supply Voltages. The basic synthesizer re¬ 
quires the following power: 

+5 VDC regulated @ 120 MA 
+12 VDC regulated @ 160 MA 
-12 VDC regulated @ 200 MA 
Pins A&N should be used for power supply returns, 
and Pin 15 for external audio amplifier ground 
return. 
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III. DIAGRAMS 
Conn. b 

sr~ 


Conn. 5 


Inputs 


Phoneme Clock 


Phoneme Data In 
(D° - D 5 ) 


4 

5 
b 

7 

8 

9 

10 

11 

2 

3 


13 

15 


1 

10 

5 

R 

A 


M 


K 


«5- 

-«r 




D07 


PQ6 


K 


<*r 


-» 


DQ5 


II 


-«r 

-«r 

«r 


-» 


DQ4 


-*>-2— QQM 


D 




-» 

-» 


DQ2 


10 


DOl 


«r 


-» 




-» 


11 DO0 
PHONEME 
3 CLOCK 
"ZURT 


out 

-*■ 


«r 


-X>" 

Mother Board 
Audio Output 

Audio Out 


2 DECODE °“ 1 




> volume 
$0K 


0 


71 


SYNTHESIZER 
Circuits No's 
538, 539, 540 k 541 


Audio Q n d. 


ti¬ 


er 


[Power 

Input 


i 5 
- 12 
P -12 

□ Cnd 


FRONT MOTHER BOARD 


NOTES: 1. Conn. 6 mounted on front mother board. 

2. Conn. 5 requires jumpers as shown. 

3. Power supplied to push on tabs on mother board. 

4. Audio control connected to solder points on mother board. 


INPUT/OUTPUT WAVEFORMS 


l*b MS~»! 


i i 


11 —u 


*350MS „ 


^— Varies 

with —J. 


-IF 


I I 

£b MS “*l 


U LJ 


phoneme k 
speech rate 


-#- 

\-»- 

- JL - 

A - n - 


Zero Decode 



NOTES: 

1. Data in should be changed on positive edge of phoneme clock. 

2. Zero decode output may contain spikes when data changes. 

3. Data in is negative true (1 TTL load with 4. 7K pullup resistor). 
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BAD BIT GETTERS: 

Memory Test Programs 

by Ray Boaz 

(reprinted with permission from Homebrew Computer Club 
Newsletter ) 

Every computer system needs a memory test program or 
two to ensure a high level of confidence in the memory sys¬ 
tem hardware. One bad memory bit can send a program off to 
Never-Never Land. The memory test programs listed here are 
for use with 6800 systems operating with MIKBUG as a system 
monitor. MIKBUG is a simple monitor (as it was meant to be) 
which has many useful subroutines. Several of them are made 
use of in these memory test programs. 

The terms used herein are consistent with the 6800 nomen¬ 
clature. A and B are the two accumulators, X is the index 
register, PC is the program counter, SP is the stack pointer, CCR 
is the condition code register, and M is the memory location of 
interest. 

Of the two programs, the shortest, MT1, is written to be 
used in the 6810 RAM used by MIKBUG as a scratch-pad. It is 
27 bytes long and fits into address space A060 to A07A. This 
should work well for the SWTP 6800 Computer Systems. The 
second, MT2, is a more general test program but takes up 58 
bytes total. The start and end addresses in MT1 are direct 
operands and therefore, shown blank in the listing. MT2 uses 
locations A002-3 for start, and A004-5 for end addresses. So 
these locations must be loaded before the program is started. 
Also in MT2 the I/O interrupt pointer locations (A000-1 are 
used so if applicable it must be set after running MT2. In 
general, both MT1 and MT2 operate the same until an error is 
found. 

In both programs a store is made to an M start address, then 
the data is fetched back, compared to good data, and if true, it 
is incremented to test M again with A+l. This continues for all 
256 bit combinations—00 to FF. Then X is incremented, and 
the next location is tested. This continues until the address is 
encountered. 

In MT1, on finding an error, a branch to MIKBUG software 
interrupt is made which results in the status registers being 
printed out as follows: CCR-B-A-X-PC-SP. B is the good data, 

A is the error data, and X is the address with the error. If 
testing IK bytes, 2000-23FF, and an error was found which 
resulted in B=00, A=00 and X=007, the chip containing data 
bit 7 (MSB) at M=2007 is bad. M+l must be loaded as the new 
start address to continue the test to end address. 

MT2 on finding an error goes to a routine to print A-B-X, 
then continues to the next M until end address is reached. Here 
again, A=error data, B=good data, and X=M error. 

Both of these programs have worked well as memory testers 
and as chip testers for 2102 type memory chips. 

MT1 

A060 CE_START LDX LOAD X WITH START 

ADDR 

A063 4F OMT CLRA CLEAR A 

A064 5F CLRB CLEAR B 


A065 06 


TAP 

CLEAR CCR 

A066 A7 

00 

NVAL STAA 

STORE A AT X ADDR 

A068 A6 

00 

LDAA 

LOAD A WITH DATA 
JUST STORED 

A06A 11 


CBA 

COMPARE B-A 

A06B 26 

OD 

BNE 

IF NOT SAME BRANCH 
TO ERROR 

A06D 4C 


INCA 

ELSE INCREMENT A 

A06E 5C 


INCB 

INCREMENT B 

A06F 26 

F5 

BNE 

IF B NOT EQUAL TO 00 
BRANCH TO NVAL 

A071 08 


INX 

ELSE INCREMENT X 

A072 8C 

— 

CPX 

COMPARE X TO END 
ADDR 

A075 26 

EC 

BNE 

IF NOT SAME BRANCH 
TO OMT 

A077 7E 

E0E3 

JMP 

ELSE JUMP TO MIKBUG 
CONTROL 

A07A 3F 
MT2 


ERROR SWI 

PRINT ERROR STATUS 

0000 FE 

A002 

START LDX 

LOAD X WITH START 
ADDR 

0003 4F 


OMT CLRA 

CLEAR A 

0004 5F 


CLRB 

CLEAR B 

0005 06 


TAP 

CLEAR CCR 

0006 A7 

00 

NVAL STAA 

STORE A AT X ADDR 

0008 A6 

00 

LDAA 

LOAD A WITH DATA 
JUST STORED 

000A 11 


CBA 

COMPARE B-A 

O00B 26 

OD 

BNE 

IF NOT SAME BRANCH 
TO ERROR 

000D 4C 


INCA 

ELSE INCREMENT A 

000E 5C 


INCB 

INCREMENT B 

000F 26 

F5 

BNE 

IF B NOT EQUAL TO 00 
BRANCH TO NVAL 

0011 08 


INX 

ELSE INCREMENT X 

0012 BC 

A004 

CPX 

COMPARE X TO END 
ADDR+1 AT A004 

0015 26 

EC 

BNE 

IF NOT SAME BRANCH 
TO OMT 

0017 7E 

E0E3 

JMP 

ELSE JUMP TO MIKBUG 
CONTROL 

001A B7 

A000 

ERROR STAA 

STORE A AT A000 

001D F7 

A001 

STAB 

STORE B AT A001 

0020 FF 

A002 

STX 

STORE X AT A002 

0023 CE 

E19D 

LDX 

LOAD X WITH ADDR 

OF CR/LF/* STRING 

0026 BD 

E07E 

JSR 

JUMP TO PRINT CR/LF/* 

0029 CE 

A000 

LDX 

LOAD X WITH ADDR OF 
ERROR DATA 

002C BD 

E0CA 

JSR 

JUMP TO PRINT ERROR 
(A) 

002F BD 

E0CA 

JSR 

JUMP TO PRINT DATA 
(B) 

0032 BD 

E0C8 

JSR 

JUMP TO PRINT ERROR 
ADDR (X) 

0035 7C 

A0Q3 

INC 

INCREMENT M FOR 

NEW START ADDR 

0038 20 

C6 

BRA 

BRANCH TO START 
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UNIZAP-A MODIFICATION OF 'SHOOTING STARS’ 

by John C. Shepard 

EDITOR’S NOTE: A game called TEASER, written in BASIC, 
was published in the September, 1974, issue of PCC. The game 
was redone by Willard I. Nico under the title of “Shooting 
Stars”, and was published as an eight-page article in the May, 
1976, issue of Byte (pages 42-49). UNIZAP is a variation of 
Nico’s “Shooting Stars” game. 

1 i 'UNI2AP' - A AlUDiriCATION OF 'SHOOTING STARS' A P 

2 | DESCRIBED IN THE ITAY ISSUE OF BYTE F1AGAZINE (it 9). 

3 I 

4 I CONVERTED TO RUN ON INTEL SDK-Bf BfBf SYSTEMS BY 

5 I JOHN C, SHEPARD 

6 ; 

7 ; THIS PHOCRAM IS PUBLIC DOMAIN... SEE BYTE MAG. FOR 

9 j *.*-.♦***♦*,,. 

9 I 






10 


C1RG 

1C00H 

; 

A GOOD PLACE TO STARTI 





11 

GETCH 

EQU 

C21BH 

i 

input routine user-written 





12 

ECHO 

EQU 

01F 4H 

; 

echo routine user-written 





13 

HOLE 

EQU 

2DH 

I 

A DOT 





14 

STAR 

EQU 

2AH 

; 

A STAR 





15 

WHY 

EQU 

59H 

; 

A "Y" 





16 

SPACE 

EQU 

20H 

! 

A SPACE 





17 

QUE 

EQU 

S1H 

1 

A "Q" 





18 

CO COM 

EQU 

3AH 

i 

A : 





19 

ZERO 

EQU 

30H 

; 

A M 0" 





20 

CR 

ECU 

y'DH 

; 

A ZERO 





21 

MESND 

EQU 

0FFH 

\ 

END OF MESSAGE FLAG 

1000 

31 

LE 

12 

22 

START t 

LXI SP,12EEH 

; SET UP STACK PTR. 

ie0o 

21 

25 

12 

23 


LXI 

H, TITLE 

! 

LOAD POINTER TO TITLE M 

Iff 6 

CD 

32 

11 

24 


CALL 

MESAGE 

1 

PRINT IT 

1C09 

856 

8)85 


25 


MV I 

8,00H 

1 

INITIALIZE UNIVERSE 

100H 

0E 

01 


26 


MVI 

C.01H 

; 

TO STARTING PATTERN 

1000 

50 



27 


MOV 

0,8 

1 

CLEAR SHOT COUNTER 

100E 

14 



28 

UNIOIS: 

INR 

D 

; 

INCREMENT SHOT COUNTER 

i00r 

IE 

0A 


29 

UNLOOP! 

MV/I 

E,0AH 


LOOP COUNT 10 ITERATION 

1011 

ID 



30 

ULOOP2: 

OCR 

E 

* 

DECREMENT LOOP COUNTER 

1012 

CA 

9F 

10 

31 


JZ 

WINTST 

i 

IF LUUP DONE, GO TO WIN 

1015 

7B 



32 


MOV 


; 

MOVE COUNTER FOR TEST IN 

1016 

FE 

06 


33 


CPI 

06H 

; 

IS LOOP IN 4TH CYCLE? 

1010 

CA 

3E 

10 

34 


JZ 

CRLF 

i 

IF SU, DO A CR/LF 

1018 

FE 

63 


35 


CPI 

03H 

i 

IS LOOP IN 7TM CYCLE? 

101D 

CA 

3E 

10 

36 


JZ 

CRLF 

i 

IF SU, 00 A CR/LF 

1020 

FE 

05 


37 


CPI 

05H 

i 

IS IT STAR FIVE? 

1022 

CA 

45 

10 

38 


JZ 

TFST5 

i 

IF 50, SO 1 •.FECIAL' FET 

102S 

AF 



39 

NEOOT: 

XRA 

A 


Cl FAR CARRY (ANO A) 

1026 

78 



40 


MOV 

A,8 

; 

MOVE UNIVERSE TJ A 

1027 

(Sr 



41 


RRC 


! 

ROTATE NEXT PLACE INTO 

102H 

47 



42 


MJV 

0 ,A 


SAVE IT IN B FOR A UfHlL 

1029 

D2 

31 

10 

43 

PSIlOOTt 

JNC 

LJAOUT 

; 

IF BLACK HOLE, DO bLACK 

102C 

3C 

2A 


44 


MVI 

A,STAR 

; 

ELSE LUAO A STAR 

102E 

C3 

33 

10 

45 


JMP 

DOIT 

i 

ANO PRINT IT 

1031 

3E 

20 


46 

LOACOTj 

MVI 

A,HOLE 

s 

LUAO A UlALK HOLE 

1033 

CD 

2B 

11 

47 

DO ITi 

CALL 

OUTPUT 

i 

PRINT THE CHARACTER 

1036 

3E 

20 


48 


MVI 

A,SPACE 


f LOAD A SPACE 

1030 

CD 

20 

11 

49 


CALL 

OUTPUT 

5 

PRINT THAT, TUO 

1038 

C3 

11 

13 

50 


JMP 

ULU0P2 

; 

GO HACK INTO UNIVERSE P 

103E 

3E 

00 


51 

CRLF : 

MVI 

A ,CR 

1 

LOAD A CARRIAGE RETURN 

1040 

CD 

2‘J 

11 

52 


CALL 

OUTPUT 

* 

PRINT IT. OUTPUT SUPPLI 

1043 

C3 

25 

10 

53 


JMP 

NEOOT 


GO BACK ANO 00 MORC ONI 

1046 

AF 



54 

TESTS: 

XRA 

A 

1 

CLEAR LARRY (AND A) 

1047 

79 



55 


MOV 

A,C 

s 

GET POSITION FIVE STATO 

104B 

0F 



56 


RRC 


1 

PUT STATUS INTO LARRY 

1049 

C3 

29 

10 

57 


JMP 

PSIJOOT 

l 

REJOIN MAIN ROUTINE 

104C 

21 

61 

11 

50 

GOTSTRi 

LXI 

H.URSHOT 

I 

POINT TO 'YOUR SHOT?’ M 

1 04F 

CD 

32 

11 

59 


CALL 

MESAGE 

l 

PRINT MESSAGE 

1052 

CO 

IB 

11 

60 


CALL 

INPUT 

; 

GET PLAYER'S INPUT 

10SS 

IE 

09 


61 


MVI 

E ,09H 

s 

100P COUNT FUR TABLE SE 

1057 

21 

30 

11 

62 


LXI 

H.MSKTBL 

; 

POINT TO THE MASK TABLE 

105A 

BE 



63 

NXTGRP: 

CMP 

M 

i 

OOES INPUT EQUAL TABLE 

1050 

CA 

69 

10 

64 


JZ 

FOUNO 

t 

IF SO, GO ALTER UNI VERS 

105E 

ID 



65 


OCR 

E 

i 

OTHERWISE, DECREMENT LO 

105F 

r a 

na 

10 

66 


JZ 

INVALO 

; 

IF LOOP HAS ENDED, CHAR 

1062 

23 



67 


INX 

H 

i 

OTHERWISE INCREMENT 

1063 

23 



63 


INX 

H 

» 

TABLE POINTER FOUR 

1064 

23 



69 


INX 

H 

i 

TIMES TO GET TO NEXT 

1065 

23 



70 


INX 

H 

i 

ENTRY 

1066 

C3 

5A 

10 

71 


JMP 

NXTGRP 

t 

THEN TEST THAT ENTRY 

1069 

23 



72 

FOUND: 

INX 

H 

i 

POINT TO POSITION MASK 

106A 

7E 



73 


MOV 

A ,M 

* 

AND LOAO MASK INTO A 

106B 

A7 



74 


ANA 

A 

i 

SET THE FLAGS 

106C 

C2 

78 

10 

75 


JNZ 

UNI2A 

; 

IF MASK NUT 0 THEN FRIN 

106F 

79 



76 


MOV 

A ,C 

i 

OTHERWISE THE CENTER PO 

1070 

FE 

01 


77 


CPI 

01H 

i 

IS STAR IN CENTER? 

1072 

C2 

12 

11 

7fi 


JNZ 

BAOMOV 

» 

IF NOT THEN IT'S A WRON 

1075 

C3 

70 

10 

79 


JMP 

NXTBYT 

i 

ELSE GO PROCESS STAR 

107B 

7H 



80 

UN12A: 

MOV 

A ,B 

i 

REST OF UNIVERSE TO A 

1079 

A6 



81 


ANA 

M 

i 

ANO WITH MASK TO ISOl.AT 

107 A 

CA 

12 

11 

82 


JZ 

BAOMOV 

i 

IF NO STAR THEN WRUNG M 

107D 23 



83 

NXT8YT: 

INX 

H 

i 

POINT TO GALAXY MASK 


1f?E 

7a 



84 


MOV 

A ,B 

l FETCH UNIVERSE AGAIN 

1f7F 

AC 



85 


XRA 

M 

; AND COMPLEMENT IT (THAN 

If no 

47 



86 


MOV 

8,A 

; THEN REPLACE IT 

If Ml 

23 



87 


INX 

H 

1 POINT TO CENTER MASK 

10H7 

79 



08 


MOV 

A #C 

; FETCH CENTER UF UNIVERS 

If ns 

Af 



09 


XRA 

M 

j COMPLEMENT CENTER 

10D4 4F 



90 


MOV 

C, A 

l AND SAVE THE CENTER OF 

1005 C3 

0E 

10 

91 


JMP 

UNIOIS 

; GO DISPLAY THC NEW UNIV 

1 fPB 

FE 

51 


92 

INVALO: 

CPI 

QUE 

j WAS SHOT 'QUIT'? 

IfDA 

C2 

96 

10 

93 


JNZ NOTVAL 

1 IF NOT DO OAU STAR RUUTI 

If HD 

21 

77 

11 

94 


LXI 

H.HEQUIT 

l POINT TU 'YOU QUIT' MES 

10981 

CD 

32 

11 

95 


CALL 

MESAGE 

; PRINT MESSAGE 

1(693 

C 3 

EF 

10 

96 


JMP 

AGAIN 

i SEE IF HE WANTS TO TRY 

1 096 

21 

6F 

12 

97 

NOTVAL: 

LXI 

H,8A0NUM 

;POINT TO BAO MESG. 

1099 

CD 

32 

11 

90 


CALL 

MESAGE 

| PRINT IT 

11I9C 

C3 

0F 

10 

99 


JMP 

UNLUOP 

j GO BACK ANO REPRINT UNI 

11D9F 

70 



100 

WINTST: 

MOV 

A ,B 

; MOVE UNIVERSE TO A 

If Af ft 

FF 


101 


CPI 

0FFH 

; ARE ALL FRINGE STARS P 

101A2 

C2 

w ii 

102 


JNZ 

LOSTST 

j IF NOT, SEE IF PLAYER H 

1UA5 

79 



103 


MOV 

A ,C 

i FETCH CENTER OF UNIVERS 

1 (6 AC 

A7 



104 


ANA 

A 

I SET FLAGS 

1JIA7 

L2 

4C. 

10 

105 


JNZ 

GOTSTR 

l IF CENTER NOT EMPTY, NO 

If AA 

21 

92 

11 

106 


LXI 

H,WINMS1 

; POINT TO 1ST HALF OF UI 

If AD 

CO 

32 

11 

107 


CALL 

MESAGE 

; AND PRINT WIN MESSAGE 

IfBf 

1L 

30 


108 


MVI 

E.ZERO 

l BEGIN BINARY TU DECIMA 

If 02 

43 



109 


MOV 

B,E 

; CONVERSION BY SETTING 

If (13 

40 



110 


MOV 

C,E 

| REGISTERS TO (ASCII) ZE 

1 f04 

15 



111 


OCR 

0 

; GET RIO OF LAST SHOT 

If 05 

7A 



112 


nav 

A ,0 

; MOVE SHOT COUNT TO A FO 

If 06 

A7 



113 


ANA 

A 

; SET FLAGS 

1fB7 

LA 

E5 

10 

114 


JZ 

LSTSIG 

; IF ZERO, SKIP CONVERSIO 

IflBA 

3C 

3A 


115 


MVI 

A, COLON 

; SET A TO OVERFLOW COD 

IfBC 

if: 



116 

MOROEC: 

I MR 

E 

J COUNT UP 1 IN 1'S DIGIT 

10BO 

88 



117 


CMP 

E 

; IS IT 3 TO OVERFLOW? 

10BE 

C2 

CB 

10 

118 


JNZ 

TALLY 

1 IF NOT THEN TALLY ANO C 

10C1 

IE 

30 


119 


MVI 

E,ZERO 

; ELSE RESET 1'S DIGIT T 

1fC3 

0C 



120 


INR 

C 

; AND CARRY INTO NEXT OIG 

1 fC4 

B9 



121 


CMP 

C 

; IS IT - TO OVERFLOW TUO 

ifcs 

C2 

CB 

10 

122 


JNZ 

TALLY 

J IF NOT THEN TALLY 4 CON 

1 f Cfl 

0E 

30 


123 


MVI 

C,ZERU 

; ELSE RESET MIDDLE OIGI 

1 fCA 

04 



124 


INR 

B 

; ANO CARRY INTO 100’ S> 01 

If CD 

15 



125 

TALLY: 

OCR 

0 

| DECREMENT SCORE FOR TAL 

IfCC 

C? 

BC 

10 

126 


JNZ 

MOROEC 

; IF NOT ZERO THEN KEEP L 

IfCF 

7 a 



127 


MOV 

A,B 

• FETCH LEAOING DIGIT TO 

If Of 

FE 

30 


128 


CPI 

ZERO 

; IS IT (ASCII) ***?*, 

10D2 

C2 

DE 

10 

129 


JNZ 

threed 

• IF NOT 01 SPLAY 3 DIGITS 
, FETCH MIDDLE DIGIT TO • 

, IS IT US' II) «•»“ 

I IF nur Oltntiu 2 Ol-‘l 
j IF s» HIM"*' UHLy 1 .' l ' r 
; oisMLar a uf.i ‘’ 

; FETCH FIDDLE D ;.U 

DISPLAY 7. Ul'.l ID. U " 

. FETCH I's of 'll 

1f05 

79 



130 


MJV 

A ,C 

If 06 

FE 

30 


131 


CPI 

ZERO 

If O'! 
If DO 

C2 

r.3 

E2 

€h 

10 

10 

132 

133 


JN7 

IMP 

MIDPRT 

LSTSIG 

If DC 

If El 

LD 

79 

2(1 

11 

134 

135 

TIIREEO: 

LALL 

MOV 

GUI PUT 

A ,C 

1.C? 

CO 

20 

11 

136 

MIDPRT: 

CALL 

UUTPUT 

1 f F 5 

70 



137 

LSTSIG: 

M.V 

A ,C 

1fC6 

LO 

2U 

11 

138 


lALL 

OUTPUT 

; DISPLAY REMAINING 01 GIT 

1fE9 

21 

At: 

11 

139 


LXI 

M,WINMS2 

; POINT TU 2ND HALF OF WI 

If EE 

CO 

32 

11 

140 


CALL 

MESAGE 

1 PRINT ThE ME5SAGE 

IfEF 

21 

CA 

11 

141 

AGAIN: 

LXI 

H,AGNMES 

| POINT TO 'AGAIN?' ME5SA 

1fE2 

CD 

32 

11 

142 


CALL 

MESAGE 

i PHINT IT 

IfFS 

CD 

IB 

11 

143 


CALL 

INPUT 

j GET PLAYER'S RESPONSE 

IfEB 

FE 

59 


144 


CPI 

WHY 

j IS ANSWER 'YES'? 

IDEA 

CA 

00 

10 

145 


JZ 

START 

; IF SO, DO GAME AGAIN 

IfFO 

C3 

07 

00 

146 


JMP 

0007H 

; ELSE, BALK TO KIT EXIT 

llff 

A7 



147 

LOSTST : 

ANA 

A 

\ SET FLAGS 

11 fl 

C2 

4L' 

10 

148 


JNZ 

GOTSTR 

1 CONTINUE IF FRINGE NOT 

11f4 

79 



149 


MOV 

A ,C 

1 TEST CENTER POSITION 

IlfS 

A7 



150 


ANA 

A 

1 SET FLAGS 

1106 

f 2 

4C 

10 

151 


JNZ 

GOTSTR 

l IF CENTER NOT ZERO, GO 

11f9 

21 

EH 

11 

152 


LXI 

H.LOSTMS 

* POINT TO 'YOU LOST' MES 

lift 

CO 

32 

11 

153 


CALL 

MESAGE 

l PRINT IT 

iifr 

C3 

EF 

10 

154 


JMP 

AGAIN 

l SEE IF HE WANTS TO PLAY 

1112 

21 

01 

12 

155 

BAOMOV: 

LXI 

H ,BADMES 

1 POINT TO 'QAO MOVE' MES 

1115 

CO 

32 

11 

156 


CALL 

MESAGE 

| PRINT IT 

1110 

C3 

0F 

10 

157 


JMP 

UNLOOP 

j ANO BACK INTO GAME 

111B 

C5 



158 

INPUT: 

PUSH 

a 

J SAVE B,C REGS. FROM MUN 

111G 

CO 

10 

02 

159 


CALL 

GE1CH 

j GET A CHARACTER FROM US 

111E 

CD 

F 4 

01 

160 


CALL 

ECHO 

; ECHO ITI 

1122 

59 



161 


MOV 

C,C 

j SAVE ITI 

1123 

0E 

00 


162 


MVI 

C,CR 

; DO A CR/LF 

1125 

CO 

F4 

01 

163 


CALL 

ECHO 

; USING THE ECHUEH 

1120 

70 



164 


MOV 

A,t 

; GET THE INPUT BACK 

1129 

Cl 



165 


POP 

8 

; RESTORE B,C REGISTERS 

112A 

C9 



166 


RCT 


} THEN JUST RETURN 

112B 

C5 



167 

OUTPUT: 

PUSH 

0 

1 SAVE B,C REGISTERS FROM 

112C 

4F 



168 


MOV 

C,A 

1 LOAO CHARACTER TO PRINT 

1120 

CO 

F 4 

01 

169 


CALL 

ECHO 

j PRINT IT 

113f Cl 



170 


POP 

0 

l RESTORE B,C REGS. 

1131 

C9 



171 


RCT 


; THEN RETURN 

1132 

7E 



172 

MESAGE: 

MOV 

A ,M 

| GET CHAR. FROM MEMORY 

1133 

FE 

FF 


173 


CPI 

MESNO 

j IS IT STOP CUOE? 

1135 

CP 



174 


RZ 


1 YES. RETURN TO CALLER 

1136 

CD 

28* 

11 

175 


CALL 

OUTPUT 

; NO. PRINT CHAR. 

1139 

23 



176 


INX 

H 

1 INC. MESSAGE POINTER 

113A 

C3 

32 

11 

177 


JMP 

MESAGE 

j GO BACK AND GET SOME MO 
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1130 31 

113E 01 

113F 00 

1140 01 

178 

MSKTBL: 

1)0 

31H,01H 1 0BH,01M 

1141 32 

1142 02 

1143 07 

1144 00 

1145 33 

179 


00 

32H,02H,07H,00II,33H 

1146 04 

1147 16 

1140 01 

1149 34 

114A 0a 

10(3 


DG 

04M,16FI,01H,34H,0OH 

1143 29 

114C 00 

114D 35 

114C 00 

114F 5A 

101 


00 

29H,00H,35H,00H,5AH 

1150 01 

1151 36 

1152 10 

1153 94 

1154 00 

102 


00 

01H, 36H, 10H,94H,00H 

1155 37 

1156 20 

1157 63 

1159 01 

1159 3r 

103 


03 

37H,2(lH,68H,01H,38H 

11SA 40 

1150 E0 

115C 00 

115D 39 

115E 80 

104 


DO 

40H, 0E0H, 00H, 39H ,U0H 

11SF DO 

1160 01 

105 


00 

0O3H.01H 

1161 00 

106 

URSHGT; 

D0 

CR 

1162 

107 


ASC 

■ YOUR SHOT > 1 

1176 FF 

100 


00 

MESNO 

1177 0D 

1170 00 

1179 00 

109 

HEQUITt 

DO 

CR.r.R.CR 

117A 

190 


ASC 

’YOU GIVE UP TOO EASILY’ 

1190 00 

1191 FF 

191 


00 

CR.MESNO 

1192 00 

1193 0D 

1194 00 

192 

WINMS1* 

00 

CR,CR.CR 

1195 

193 


ASC 

* YOU WON III’ 

11A0 00 

194 


DO 

CR 

11A1 

195 


ASC 

'YOU FIREO ’ 

11 AO FF 

196 


Di? 

ISC $10 

11AC 

197 

WINMS2: 

ASC 

’ SHOTS ... BEST 5CURE IS 11 ’ 

111.R 00 

11 r 9 FF 

190 


DC CR.MESNO 

11CA 00 

199 

Al.NMESi 

DO CR 

11CB 

200 


ASC 

’WOULD YOU LIKE TO TRY AGAIN?* 

11E7 FF 

201 


00 

MESNO 

11EB 00 

202 

L0STM5: 

00 

CR 

11E9 

203 


ASC 

* HEYl YOU LOST THE GAME’ 

11FF 00 

1200 FF 

204 


00 

CR.MESNO 

1201 00 

205 

BADMES: 

08 

CR 

1202 00 

206 


D0 

CR 

1203 

207 


ASC 

’YOU MAY ONLY SMOOT STARS, TURKEY' 

1223 00 

1224 FF 

208 


00 

CR,MESNO 

1225 00 

209 

TITLE: 

OB 

CR 

1226 00 

1227 00 

210 


08 CR.CR 

1220 

211 


ASC 

•*.*.*.* UNIZAP *.*.*.*' 

123E 00 
123F 00 

212 


00 

CR ,CR 

1240 

213 


ASC 

• 12 3’ 

1240 00 

214 


09 

CR 

124E 

215 


ASC 

' 4 5 6' 

125C 00 

216 


09 

CR 

1250 

217 


ASC 

* 7 8 9' 

126F) 00 

1266 00 

1260 0D 

126E FF 

218 


00 

CR ,CR,CR,MESNO 

126F 00 

219 

BAONurn 

08 

CR 

1270 

220 


ASC 

'TYPE 1 THRU 9 ... OR "q" TO QUI1 

1290 00 

1291 FF 

221 


00 

CR.MESNO 


NO ERRORS FOUND IN THIS ASSEMBLY 
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C27F,1079FE01C21211C37O107. , A6CA1211237t'AF472379AE4FC3,'C1 >1FC51C29510217711 
CD321TC3CF10216F12CD3211C30F107ciF£FFC2(101179A?C24C18219211CD32111E304J4Fi 
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205441 2051554954001T 

SYMBOL 

TABLE 



NAME 

VALUE 



GETCH 

Mi n 

NXTBYT 

1070 

ECHO 

(11F4 

IN’JALO 

1088 

HOLE 

0020 

NOTVAL 

1096 

STAR 

002A 

WINTST 

1 *«i9F 

WHY 

(1059 

MORDEC 

10BC 

SPACE 

0020 

TALLY 

10CB 

QliE 

0051 

THREEO 

11'OE 

COLON 

003A 

MIDPRT 

10E2 

ZERO 

(1033 

LSTSIG 

10C5 

CR 

(1000 

AGAIN 

1I»»EF 

MESNO 

B0rr 

LOSTST 

1100 

START 

1000 

9ADM0U 

1112 

IJNIOIS 

100E 

INPUT 

1110 

L'NLOOP 

100F 

OUTPUT 

1129 

UL00P2 

1011 

MESAGE 

1132 

NEDOT 

1025 

MSKTBL 

1130 

PSUOOT 

1029 

URSHOT 

1161 

LOADOT 

1031 

HEOUIT 

1177 

DOIT 

1033 

WINMS1 

1192 

CRLF 

103E 

WINMS2 

11 AC 

TESTS 

1046 

AGfIMES 

11CA 

GOTSTR 

104C 

LOSTMS 

11C0 

NXTGRP 

105A 

BAOMES 

1201 

FOUND 

1069 

TITLE 

1225 

UNI2A 

1078 

BAONUM 

126F 


Note that the assembler doesn’t calculate the ‘ASC’ values in 
the listing-but leaves space for them. The hex dump has the 
ASCII in it. Prog, requires less than 700 bytes. The 11 step 
solution is 5,2,1,8,5,3,2,7,9,8,5 
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Palo Alto Tiny BASIC 


by Li-Chen Wang 

Within the first five issues of Dr. Dobb’s Journal we have 
published complete details and listings of four versions of Tiny 
BASIC: 

Jan. & Feb., 1976: Whipple's & Arnold's Tiny BASIC 
Extended (TBX) 

March, 1976: Greeb's Denver Tiny BASIC 

April, 1976: Mueller's MINOL 

May, 1976 (now): Wang's Palo Alto Tiny BASIC 

All of these have been for 8080's. We think this is 
enough for the 8080, at least for the time being. Therefore, 
we will publish no more 8080 versions unless they have some 
very unusual or valuable features, for instance: 
floating point package (well documented) 
comprehensive string & substring operators 
well-designed graphics/display interface & commands 


complete interface & commands for mass storage 
significant program & variables editing features 
extensive package of interest built-in functions 
full BASIC capabilities in under two kilobytes 

We are very interested, however, in publishing complete 
information on some versions of Tiny BASIC for the many 
other microprocessors, for example: 

8008 PACE 6502 

6800 SC/MP ETC. 

Also, as you read through the articles on the first four 
implementations, you should see better ways to do things, 
features that can easily be added, improvements that are 
possible in the documentation, etc. We hope you will imple¬ 
ment those, as you note them; write them up, and forward 
them for publication in the Journal as enhancements to these 
four Tiny BASIC dialects. -Jim Warren, Jr., Editor 
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A NOTE TO MEMBERS OF THE 

SOUTHERN CALIFORNIA COMPUTER SOCIETY 

by Jim C. Warren, Jr., Editor, Dr. Dobb’s Journal 

I am writing to object to several of the actions of 
Louis G. Fields, vice president of SCCS, that have recently 
come to our attention. 

1. On April 12th, we sent Mr. Fields 500 copies of the 
March-April issue of People’s Computer Company newspaper, 
for distribution at the Aoril 24th SCCS meeting, compliments 
of PCC. 

I happened to attend the meeting and found that, first 
of all, Mr. Fields had failed to bring most of that supply to 
the meeting, and secondly, those he had distributed were 
stamped in oversized red letters, "Compliments of Louis G. 
Fields." 

This may have given the completely false impression that 
either Mr. Fields was the donor of these complimentary 
copies, or that PCC was somehow supporting Mr. Fields. Mr. 


Fields did NOT donate these copies, and, after having the 
opportunity to see him in action, we wish to adamantly state 
that PCC does NOT support Mr. Fields in any way! 

2. Along with these 500 free copies of PCC, we also 
forwarded a number of other PCC publications, as per Mr. 
Fields' telephone order of April 12th. His order totaled 
$359.75 (unrelated to the free PCC copies). We forwarded 
the telephone-ordered publications to Mr. Fields with the 
understanding that he was representing SCCS. 

In spite of repeated billings, to date he has paid only 
$59.75, received June 10th. Our contacts with the other 
SCCS officers have consistently shown them to be responsible, 
trustworthy, and responsive. 

3. As a result of the above-noted incidents, PCC will 
make no further donations or sales through Mr. Fields to 
SCCS. We will be delighted, however, to work with any of 
the many other SCCS officers. 

Note: We do not mean this to in any way reflect 
negatively on the SCCS, nor on the many Society officers 
who are doing an excellent job of administering a worth¬ 
while organization that provides many useful services to the 
computer hobbyist community. 
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INDEX TO THE COMPUTER HOBBYIST 
VOLUME 1, ISSUES 1 THROUGH 9 

This is an excellent newsletter. We strongly recommend it to 
every serious computer hobbyist. Not flashy; no side-show . . 
just excellent, comprehensive, well-written articles. 

—Jim Warren 


The Computer Hobbyist is a newsletter/magazine totally 
dedicated to the use of computers and associated devices as a 
hobby. Both software and hardware are discussed in feature 
articles. Circuit diagrams and program listings frequently sup¬ 
plement these articles. In addition to the features, each issue 
contains an editorial and regular columns on surplus, letters 


from subscribers, and want ads free to subscribers. Occasion¬ 
ally, as the material warrants, book and product reviews are 
printed. Frequency of publication varies from 4 to 12 weeks, 
so subscriptions are for a particular number of issues rather 
than a time period. The Computer Hobbyist is offset printed 
on looseleaf 8 y 2 "x 11 " paper suitable for ring binding (except 
for the first three issues which were folded to half size) and 
is mailed third class to subscribers in the continental United 
States. 

Occasionally, printed circuit boards and other hard to 
find components are made available to aid our readers in 
constructing the projects written up. 

For further information write to: The Computer 
Hobbyist. Box 295, Cary NC 27511. 


THE COMPUTER HOBBYIST 

NUMBER 1 

1. A GRAPHICS DISPLAY FOR THE 8008 PART 1 - Fundamental concepts and programming 
technique for inexpensive vector graphics display. 

2. SURPLUS SUMMARY - THE TELETYPE STORY - Survey of teleprinter equipment suitable 
for computer output. 

3. NOTES ON THE 8008 INSTRUCTION SET - Some simple tips for more effective 8008 
programming not mentioned in the Intel manuals. 

NUMBER 2 

1. THE 8080 IS HERE - MITS ALTAIR 8800 product line preview and comments on the 
future of hobby computers. 

2. LOGIC SYMBOL CONVENTIONS or HOW TO READ TCH LOGIC DIAGRAMS - Discussion of 
MIL-STD-806C logic symbols and logic design using the "dot convention". 

3. A GRAPHICS DISPLAY FOR THE 8008 PART 2 - Description and diagram of digital and 
analog circuitry for vector graphics display generator. 

4. INTERFACING A 5-LEVEL TELEPRINTER PART 1 - Description of simple current loop 
interface with common teleprinters. 

NUMBER 3 

1. A GRAPHICS DISPLAY FOR THE 8008 PART 3 - Description and diagram for large 
screen XYZ scope using common magnetic deflection CRT's and photos of display. 

2. BOOK REVIEW - Critical review of MICROCOMPUTER DESIGN from Martin Research. 

3. CHESS BOARD DISPLAY - Description and listing of chessboard and chesspiece 
display program, fits in about 500 bytes. 

4. INTERFACING A 5-LEVEL TELEPRINTER PART 2 - Description and listing of print 
software that accepts ASCII input. 

5. A CHEAP MARK SENSE CARD READER - Description and diagram of circuit for reading 
pencilled data from tab cards with surplus Western Union card reader. 

NUMBER 4 

1. HUMAN INTERFACE YOUR GRAPHICS DISPLAY - Description, diagram, and driver software 
for a 4 variable proportional control input for interactive graphics. 

2. 8008 VS 8080 VS IMP-16 WHICH MICROPROCESSOR FOR YOU?. - Detailed comparison of 
strengths and weaknesses of microprocessors available to hobbyists. 

NUMBER 5 

1. TCH AUDIO CASSETTE DATA RECORDING STANDARD PART 1 - Rationale and description of 
proposed data recording standard for recording on audio cassettes. 

2. RANDOM NUMBER GENERATOR - Description and listing of random number generator, 
sequence length over 2 billion, program length 40 bytes 

3. TCH STANDARD AUDIO CASSETTE INTERFACE - Description and diagram of machine 
independent audio cassette interface conforming to TCH standard. 

4. DRAWING WITH YOUR POT CONTROLS - Description and listing of program for 
interactive drawing on graphics display. 

NUMBER 6 

1. TCH AUDIO CASSETTE DATA RECORDING STANDARD PART 2 - Discussion of logical data 
format, cyclic redundancy error detection technique, and summary of standard. 

2. ADD A DATA STACK TO YOUR 8008 - Description, circuit, and timing diagram for a 16 
byte push-pop stack enhancement for 8008; machine status save/restore routine. 

3. THE TCH CASSETTE INTERFACE PRINTED CIRCUIT BOARD - description, foil patterns. 
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pacts list and assembly diagram for TCH audio cassette interface. 


NUMBER 7 

1. TCH AUDIO CASSETTE STANDARD ROM - Description and listing of audio cassette 
software for both 8008 and 8080. Also order form for 1702/5203 programming. 

2. BOOK REVIEW - Critical review of MACHINE LANGUAGE PROGRAMMING FOR THE 8008 
by Nat Wadsworth of Scelbi Computer Consulting Inc. 

3. NEW PRODUCTS - Brief review of Micro 400 computer kit and the Cramerkit series of 
microcomputer kits. 

4. COMPUTER PING-PONG - Discussion, description, and listing of ping-pong program 
using the TCH graphic display and pot controls. 


NUMBER 8 

1. INTERFACING THE ALTAIR 8800 PART 1 - Detailed discussion of system loading 
considerations, timing diagrams, and example TCH cassette and ROM interface. 

2. NEW PRODUCTS - Brief review of Altair 680, JOLT, and Sphere computer kits. Brief 
discussion of Mini-Software's FORTRAN system for the 8080. 

3. AN IMP-16 MICROCOMPUTER SYSTEM PART 1 - Overall system description of high 
perlormanee I (> bit microcomputer construction project. 

4 . WHAT THIS COUNTRY NEEDS IS A GOOD $20 MICROPROCESSOR - Discussion of features and 
programming considerations of the MOS Technology 650X series of microprocessors. 

NUMBER 9 

1. TCH SUPER SIMPLE FLOPPY DISK INTERFACE PART 1 - General description of floppy 
disk drives and discussion of controller requirements. 

2. INTERFACING THE ALTAIR 8800 PART 2 - Discussion of polled interrupt scheme that 
doesn't require a vectored interrupt card, diagram for interrupting keyboard. 

3. AN IMP-16 MICROCOMPUTER SYSTEM PART 2 - Detailed discussion of system bus 
controller. Also schematic and timing diagrams for bus controller. 

W W WWWWWWWWWWWWW W Wm W WW W WWWWWW TVVVVVWWVVWWWVWWWV 


JIPDEC VISITS PCC 

We didn't know that People's Computer Company fame 
had spread so far. On May 19th, we were visited by the 
Microprocessor Application Study Team from the Japan Infor¬ 
mation Processing Development Center. The team included 
Professor Hidetoshi from Keio University; Koichiro Ishihara, a 
Research Fellow with Hitachi Systems Development Lab; 

Tatsui Miyakawa, Manager of Fujitsu's Computer Science Lab; 
and Kazuya Watanabe, from NEC (Nippon Electric Company). 
We were surprised, honored, and delighted by their visit, and 
pleased with the opportunity to exchange ideas and information. 

What may be even more interesting to our readers is that, 
in the face of all of the massive microprocessor research and 
manufacturing that is centered in the San Francisco Bay area, 
this JIPDEC group chose to visit only PCC and IMS Asso¬ 
ciates, Inc. (IMSAI). 


CHICAGO STORES; 

CHICAGO COMPUTER STORE 
ITTY BITTY MACHINE CO. 

There are two new computer stores in the Chicago area; 

Chicago Computer Store (handles MITS stuff) 

517 Talcott Rd at Hwy 62 
Park Ridge IL 60068 

Itty Bitty Machine Co. (handles IMSAI, etc.) 

1316 W. Chicago Ave. 

Evanston Ill. 

TedNelson of Computer Lib has a hand in the second one. 


WHAT’S A BAMUG? 

by Richard Lindberg 

BAMUG stands for [San Francisco] Bay Area Micro¬ 
processor’s Users Group. It is one of the many computer 
hobby clubs which have sprung up like weeds in the past year. 
We meet in San Leandro, Cal., on the first Thursday of each 
month. Meetings are held at the Great Western Savings building 
at E. 14th and Davis, at 7 p.m. 

BAMUG is a relatively small group. Anyone is welcome to 
join us, but we are mostly interested in the Intel 8080. We are 
starting a software library which, though still small, contains 
some very useful programs. 

We try to keep the meetings interesting. We have some 
demonstration at every meeting, if possible. At the last meeting 
we had one of our members, Ken Jackman, tell us some of the 
concepts involved in Nim-like games. He is writing a book on 
the subject and presents it well with the aid of his vintage Nova. 

At the next meeting we will have George Morrow. He will 
be hauling odds and ends out of his basement to show us. Of 
particular interest is his inexpensive tape cassette interface. We 
also hope to get a preview of his 16K ALTAIR-IMSAI compat¬ 
ible RAM board. 

We have voluntary dues of 50 cents per meeting, but you 
are welcome to attend without paying. If you have a program 
to contribute to our library, please bring us a copy. 

(Reprinted with permission from Homebrew Computer Gub 
Newsletter ) 
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Texas Tiny BASIC (TBX) Marries 
TV-Cassette Operating System (TVCOS) 


by Digital Group Software Systems, Inc. staff 
Box 6528, Denver CO 80206; (303) 861-1686 

QUESTION: What could almost be better than having your 
micro programs run correctly? 

ANSWER: Having unique micro software to utilize to your 

heart's content!! Whether to create some fan¬ 
tastic program(s) or to have the facility to 
entertain yourself and/or friends with programs 
and games requiring a bit of "think power" . . . 
especially for those days when your "think 
power" could stand a bit of bolstering! 

All this is possible thanks to the software packages now 
being provided by Digital Group Software Systems, Inc., 
(DGSS), which was recently established and is headed by 
Chuck and Dianne Howerton. Software which is now available 
on cassette tapes, complete (for the most part) with docu¬ 
mentation for each offering, is as follows: 

1. TINY BASIC EXTENDED (TBS-TVCOS) 

10K, VERSION 1 

Created by Dick Whipple and John Arnold of Tyler, 
Texas, based upon design criteria published in Dr. Dobb's 
Journal Volume 1, Number 1, page 14. Dr. Robert Suding of 
The Digital Group designed and developed the software inter¬ 
faces between TXB (TINY BASIC EXTENDED) and the TV- 
Cassette Operating System (TVCOS) for the Digital Group 
8080 microcomputer. This is a superset of TINY BASIC as 
originally proposed; a limited and modified subset of the full 
BASIC language. It has 26 possible simple or dimensioned 
variables, 4 immediate commands (LST, NEW, RUN, and SZE), 
and 12 commands (DIM, DTA, END, FOR, GOTO, GOSUB, 

IF, IN, LET, NXT, PR, and RET) which may be entered 
either as program statements or immediate execution com¬ 
mands. Also included is a RN or Random Number generator. 

14 pages of documentation, which lets you do everything 
with TINY BASIC EXTENDED that is presently possible, is 
also included. 

PRICE: $5.00 @ cassette with documentation. 


2. TINY BASIC GAMES, DGSS SET 1 

Contains 5 games written in TBX language—3 games are 
TBX versions of games listed in either 101 Computer 
Games or What to do After You Hit Return [Both are 
available through PCC bookstore. Please see inside of 
back cover.]. Other two games are original products of 
author Howerton. Games on Set 1 tape are: 

a. CHOMP : 2 or more players take 
turns biting into the poisioned 
cookie - Each trying to force 


one of the others to take the 
poisioned "byte"!!! 

b. CHECKERS : You against the com¬ 
puter in this classic board 
game - WARNING: The computer is 
as crafty as a 6-year old playing 
his first game!! 

c. TIC-TAC-TOE : The computer plays 
a fairly reasonable game with 
just enough randomness in its 
selection to make the game in¬ 
teresting - Can be beaten. 

d. DIGIGUESS : Try to guess a 4 di¬ 
git number "thunk" up by the com¬ 
puter based upon clues it sup¬ 
plies. 

e. BRAINTEASER : A strategy game - You 
against your own worst enemy...YOU1 
Try to create a pattern working with 
a set of rules to drive you nuts!!! 

PRICE : $5.00 @ cassette with documentation 

NOTE : TINY BASIC GAMES, DGSS Set 1, and 

all TINY BASIC GAMES are read in 
AFTER "bootstrapping" TBX- TVCOS 
program into micro-computer.... 
and away (:RUNcr) you go!! 

3. TINY BASIC GAMES, DGSS Set 2 

All the games in this set were adapted to 
TBX-TVCOS by Dr. Robert Suding from 101 
COMPUTER GAMES, PEOPLE'S COMPUTER COMPANY 
and WHAT TO DO AFTER YOU HIT RETURN. 

a. WAR-3 : An artillery duel between 2 
or 3 armies - OBJECT : To blast the 
opponent(s). 

b. THERAPY : Have a relaxing "conver¬ 
sation" with DR. THERAPY and in¬ 
vestigate your inner problem(s). 

c. GOLF : 9 holes of championship 
play on the "micro-links" - Hooks 
and slices are rare and 1-putts 
from 40 feet are fairly common. 

d. REVERSE : Test your skills at ar¬ 
ranging things in sequential order 
from a random beginning according 
to a fixed set of rules. 

e. BIORYTHM: Predict your "highs" and 


Page 28 Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 May, 1976 


145 




"lows" from a computer-produced 
chart based upon your personal sta¬ 
tistics. 

PRICE : $5.00 @ cassette with documentation 

4. TINY BASIC GAMES, DGSS Set 3 

All the games in this set were adapted to 

TBX-TVCOS by Ted Holdahl from 101 COMPUTER 

GAMES. 

a. TAXMAN : Test your knowledge of fac¬ 
toring by trying to beat the TAXMAN!! 
It's tough but he can be beaten!! 

b. SNARK: Learn symbolic logic and the 
use of Ven diagrams while trying to 
find the SNARK. 

c. TRAP : Find the computers' num¬ 
ber by trapping it between two 
guesses of your own. 

d. NUMBER : Learn binary-searching 
techniques while trying to pin¬ 
point a randomly-generated num¬ 
ber between 1 and 100. 

e. SQUARE-ROOTS : Computes the 
square root of any number from 
-32K to +32K. 

f. CLOCK : This bonus program keeps 
accurate time using looping tech¬ 
niques and displays on the screen 
to the nearest second. 

PRICE : $5.00 @ cassette with documen¬ 

tation. 

5. TINY BASIC GAMES, DGSS Set 4 

All the games in this set were adapted 

to TBX-TVCOS by Ted Holdahl from 101 

COMPUTER GAMES. 

a. HAMURABI : Try governing ancient 
Sumaria successfully. The author 
says that the object of the game 
is to discover the rules. 

b. STARS : Guess the computers' num¬ 
ber based on clues which tell you 
whether your warm, hot, or cold. 

c. 23-MATCHES : Outfox the computer 
by making ijt take the last match 
in the pile - You can beat it if 
you try hard enough. 

d. 20-QUESTIONS : Take-off on an old 
radio-TV game where the player 


guesses the computers' number by 
asking questions. 

e. BLACKJACK : From 1-9 players - 
Play against the house in this 
Casino game. 

f. FACTOR : A bonus program which 
will compute the factors of any 
number up to 32,767 or tell you 
if it is prime. 

g. BATUM : A super bonus game which 
is a varient of 23-MATCHES. Good 
selections will really make the 
computer think!! 

PRICE : $5.00 @ Cassette with documen¬ 
tation. 

6. KINGDOM; LIFE 1 & LIFE 2 
(all on one tape) 

a. KINGDOM : Lets you be the "KING" 
of 1and/bushels/population of YOUR 
"KINGDOM" - Object of game is to 
accumulate 1 million acres and/or 
bushels which can only be accom¬ 
plished by buying and selling land. 
Tents your ability to buy and soil 
these items and outwit tho compli¬ 
cations all KINGS have!! 

b. LIFE 1 : Standard LIFE which will 
take a pattern and, with simple 
rules of LIFE, iterate until a 
stable situation is reached. 

c. LIFE 2 : Bi-Symetrical pattern gen¬ 
erator based upon modified rules of 
LIFE but a stable situation is NEVER 
achieved - Will continue to run and 
never repeat pattern for approxi¬ 
mately 10 3 i years!! 

PRICE : $5.00 @ cassette with documenta¬ 

tion (sort of)11 

7. EDUCATOR 8080 

Designed to assist the micro-computer user 
in understanding the effect that the ex¬ 
ecution of various instructions has on 
status and operation of micro-processor 
unit - Provides continuous real-time dis¬ 
play of status flags, Accumulator, B and 
C registers which reflect their contents 
as changed and/or modified by instructions 
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issued by user - Complete with EDUCATOR 
instruction set. 


PRICE: $10.00 @ cassette with documen¬ 

tation. 

8. AMATEUR RADIO HAM CASSETTE 
FOR 8080 

Amateur Radio (CW) Send and Receive 

RTTY (Baudot) Send and Receive 

CW Receive is automatically self- 
adjusting to any CW speed sent 

CW Send has 8 100-character mem¬ 
ories that may bo individually 
callod up 

CW Send also features a 256-charac- 
ter software FIFO buffer 

RTTY Receive can select 60, 66 and 
100 Words per Minute (WPM); upper 
or lower case output to TV. 

RTTY Send program can send at 60, 

66, or 100 WPM. 

All 4 programs are designed to re¬ 
side simultaneously in a 10K 
Digital Group 8080 system. 

PRICE : Documentation and cassette 
HAM-1 $5.00 


9. OPERATING GUIDE - TVT MONITOR 8 
FOR 8008 BASED SYSTEMS 

The TVT Monitor 8 is a modification and 
extention of the Monitor 8 published by 
MIL before their untimely demise. The 
original Monitor 8 was written to be 
used with teletype/paper tape input and 
output. The TVT Monitor 8 is designed 
to be used with a Digital Group TVT, 

ASCII keyboard and Digital Group Cassette 
tape interface as input and output. 

Several features were added to the Mon¬ 
itor 8 to increase its usefulness. One 
of these is software scrolling of the 
TVT. This causes the TVT to simulate 
the format of a teletype by displaying 
the previous seven lines. Two other 
additions were the "Insert" (INS) and 


"Delete" (DEL) routines which allow one 
to insert or delete octal code at any 
point in your program. These routines 
move the following instructions in mem¬ 
ory to make room for the new instruc¬ 
tions or close up a space. In addition, 
the addresser of JMP and CAL instruc¬ 
tions are modified as appropriate to 
maintain proper loop registration. A 
program to zero memory was added (ZRO). 
And a program to load ASCII directly 
into memory (helpful for TVT output) 
was also developed (TXT). 

The use of this operating system in 
program development would typically 
involve the following steps: 

1) ZRO - zero program storage area 

2) Symbolic input of rough program 
draft 

3) TXT - input of any ASCII 

characters needed 

4) DPS - symbolic dump to ver¬ 

ify program 
or DPO - octal dump 
to verify code 

5) XQT - execute program as sub¬ 

routine of monitor 

6) SBP - set break point to 

print out register and 
flag status at any pro¬ 
gram step 

7) EDT , INS , DEL - these functions 

can be used to change, 
insert, or delete, in¬ 
structions at any loca¬ 
tion. A particular ad¬ 
vantage of this monitor 
is that on deletion or 
insertion of instructions 
the code following is 
moved up or down in mem¬ 
ory and all JMP and CAL 
instructions are modified 
to maintain registration. 

ONCE THE PROGRAM IS RUNNING TO YOUR 
SATISFACTION; 

8) CPY - moves blocks of data 

around im memory 

9) TRN - changes JMP and CAL 

arguments to reflect 
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new page nuntoers 

10) TAS - can be used to store 

completed program on 
cassette tape 

11) PRG - can be used (if one has 

the proper hardware) to 
program EPROM's. 


unless accompanied by a self-addressed 
stamped mailer. Obviously, if many 
users send in submissions, duplications 
will occur. In this event, date of 
receipt AND quality of work will 
determine which contributor's 
submission will be utilized. Royalties 
will be paid quarterly in cash or may 
be applied to the purchase of products 
at a discounted rate. 


THE ALPHA-NUMERIC MUSIC SYSTEM 


by Malcolm Wright 


Price: MONITOR-8 $6.00 

PLEASE NOTE: This package runs only on 
8008- baBed systems - will not run on 8080. 

All the above described programs 
and games can be obtained either 
by ordering through the Digital 
Group or, if your order is exclu¬ 
sively for software, you may order 
direct from: 

Digital Group Software Systems 
PO Box 1086 
Arvada, CO 80001 

Should you have any immediate 
questions, Chuck or Dianne may 
be reached at (303) 422-6197. 

Please try to restrict calls to 
9 - 5pm Mon - Saturday. 

Watch for the next Digital Group 
Flyer to find out what's new in 
the way of available programs and/ 
or games and other interesting 
items for your microcomputer. 

NOTE : All TINY BASIC EXTENDED 

(TBX-TVCOS) users are encouraged 
to develop, additional programs 
and games which will run -under 
the system. Users who submit 
programs and/or games to DGSS with 
appropriate documentation and who 
consent to permit DGSS to distribute 
copies will be paid a small royalty 
for each copy sold. Submissions 
must include a cassette tape 
containing the program or game and 
typewritten documentation as 
required. All submissions will be 
acknowledged but cannot be returned 


In the January, 1976, issue of PCC Newspaper , an article 
was published on a music program for the 8080 CPU, called 
"Alpha-Numeric Music with Amplitude Control." Since Jan¬ 
uary, the PCC bookstore has made this 22-page article avail¬ 
able for $2. The interest at the Home Brew Computer Club, 
computer stores, and mail orders has been relatively high. 

There have been many other music routines written for the 
8008 and 8080 CPU's, but Alpha-Numeric Music seems to be 
getting a great deal of interest from music majors, as well as 
the general hobbyist. Why? 

Looking into the Alpha-Numeric Music (ANM) program, 
one can see many features that don't exist in most of the 
other routines. 

1. An easy-to-follow encoding scheme for writing 
music. Not just number look-up tables for coding, but letters 
like C, D# (D-sharp), A! (A-flat), for the actual notes to be 
played. 

2. A range of 6 octaves can be played, from about 
31 Hz up to 2092 Hz. 

3. Different voicing (different sounds) can be specified 
any time in the musical piece by typing CTRL-E and a 
number 0 thru 9 to pick the sound. 

4. Three different volume levels can be called upon for 
loud and soft passages of music. 

5. The duration of the note can be set from a whole 
note (W) down to a thirty-second note (T), to satisfy most 
music fans, any time in the musical measure. 

6 . The tempo of the music can be changed to three 
different rates including a nominal 100 beats a minute. 

If you have a convenient way of loading programs into 
your 8080 computer, I am sure you will enjoy this program. 

This is a NOTEworthy routine that will MEASURE up 
to any other music program and help you SCALE new heights 
in micro-computer enjoyment by BEATing the dull and 
average software. 

Editor's Note: Malcolm Wright is the designer of this system, 
and the author of Alpha-Numeric Music with Amplitude 
Control. Please see page 35 for ordering information. 
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PROGRAM REPOSITORY & TAPE DUPLICATION FACILITY 

A PUBLIC DOMAIN ALTERNATIVE TO MANUFACTURERS' USER CROUPS 


The Community Computer Center (CCC) will act as a 
repository for program tapes; both source tapes and binary tapes. 
Everyone wishing to contribute programs to the public domain 
may do so by forwarding appropriate paper tapes to CCC. In 
particular, if you are hesitant about submitting a program for 
publication in Dr. Dobb’s Journal because you don’t want to 
hassle with its distribution, you are encouraged to forward the 
tapes to CCC and the documentation to the Journal for publication. 

The CCC will thus serve as a desirable alternative and 
supplement to the User Groups that are controlled and operated 
by many of the processor manufacturers, some of whom charge 
up to $100 for “membership” and access to the programs that 
their customers developed and offered to the User Group, without 
compensation. 

There is no membership fee for access to the tapes from the 
Community Computer Center. Instead, one pays only for the 
duplication and mailing costs: 

Duplication charge: $l/ounce or fraction thereof, for tapes 
(weighed after punching on fanfold tape) 

(Add 6% tax for orders mailed to a California address) 
Postage & handling: $0.50 on orders of $5 and less 
$1 on orders exceeding $5 

Payment must accompany all orders. Orders will be mailed 
First Class, within 3 days of receipt. 

Lists of available tapes will be published, periodically, in 
Dr. Dobb’s Journal, as well as being available from CCC: 

Community Computer Center 
1919 Menalto Avenue 
Menlo Park, CA 94025 
(415)326-4444 

The following source tapes are currently available. They 
are programs written for the version of BASIC that is implemented 
for the HP 2000F minicomputers, and are discussed in What To Do 
After You Hit Return (available from the PCC Bookstore, $6.95). 


Number Guessing Games S12 

Board Gaines 

Sll 

Number 

2 

Qubic5 

5 

Abase 

3 

Gonioku 

4 

Trap 

2 

Teaser 

3 

Stars 

•» 

Rover 

5 

Clocks 

3 

Welcome to the Caves 

S 9 

Bagels 

2 

Caves1 

5 

Quadgt 

3 

Wunipus 

4 

Button 

2 

Caves2 

5 

Word Gaines 

SI0 

Business & Social Science 

S22 

Letter 

2 

llamrbi 

3 

Aba gel 

3 

King 

5 

tlangmn 

3 

Civil2 

7 

N tad lib 

6 

Market 

5 

Word 


Slock 

5 

“Niinlikc” Games Sll 

Policy 

4 

23Mtch 

2 

Polut 

4 

Balnum 

3 

Science Fiction Games 

SI2 

Nun 

4 

Tradei 

10 

Oiomp 

3 

Sttrl 

9 

Zot 

S 

Last Chapter 

SI0 

Ilidc-ii-Scck m 

2D S 4 

Crash 

4 

llmkle 

-> 

Lunar 

3 

Mucwmp 

2 

Revcrs 

2 

Stiark 

2 

Zeros 

3 

Pattern Games 

Sll 

Taxman 

3 

Dangle 

2 

The following games arc in 


Sunsgn 

3 

Dartmouth BASIC 


Biosin 

3 

Motic 

5 

Mandal 

3 

Rescue 

5 

life 

Ama/.c 

3 

3 

For historical reasons. 

CCC maintains a different price schedule for postage and handling 

CM 

CO 

on this particular set of tapes: 

duplication charge and tax. as above 
postage and handling: 

S0.50 on orders under SI0 

SI .00 on order of SI0 or more 
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byte swap 

We are experimenting with offering a “Want Ad” section. We 
will continue to do it as long as we can afford it (in terms of 
staff time and printing costs). Note: the charge for running an 
ad will undoubtedly increase as our circulation (and printing 
costs) increases. 

Please follow these instructions in submitting ads. Ads received in 
other than this form cannot be accepted, and will be returned to the 
sender. 

1. Type the ad, with a blank space between each line, in lines no 
more than 50 character positions in length. 

2. Include at least your name and address as part of the ad. 

"Blind" ads will not be accepted. 

3. Compute the charge on the basis of $1 per line or partial line, 
per issue. 

4. Forward the typed copy and a check or money order payable 
to "PCC," to: DDJ Byte Swap, PCC, Box 310, Menlo Park CA 94025. 
Do not send cash. Your cancelled check is your receipt. Payment 
must accompany the ad. 


SELL: MIL MODS with MONITOR, TVT-1 with UART and key¬ 
board, Creed TTY, Altair 8800 new kit, unassembled. Send 5.4 SE to 
R. Schultz, 611 N. Dexter, Lansing MI 48910. —5/14/76 


“BASIC JUST WON’T CUT IT. 

GET STARTED ON A NEW LANGUAGE.” 

Dear Jim Warren, May 15, 1976 

I think you are wasting good space with still another 
version of BASIC. BASIC just won’t cut it. 

Suggest you get started on a new language for hobbyists 
with the best features of many languages. Should come in 
various sizes, always upward compatible. Also, it should be 
interpretive for fast programming, and compilable for fast 
execution. 

24365 Clipstone 

Bill Roch Woodland Hills CA 91364 

HOW ’BOUT SMALL PASCAL? 


I fully agree. You’re asking for a lot in requesting various 
sizes + upwards compatibility + interpretable + compilable, but 
1 hope to offer at least part of that in our next HLL (High 
Level Language) for micros. Unless someone else volunteers to 
initiate a HLL project through the Journal in the next month or 
three, I hope to start a build-your-own-compiler project called 
SMALL PASCAL. My plan is to detail the design of each 
module of a compiler in a series of articles. The compiler will 
be for a block-structured PASCAL-like language, trimmed for 
microcomputer size, and modified as appropriate for a pre¬ 
sumed interactive, stand-alone environment (as opposed to a 
batch system). At this point, expandability and interpretability 
are low-priority goals for this project, but Ill keep them in 
mind. 

1 definitely wish to “push” a “good” HLL, instead of con¬ 
tinuing emphasis or reinforcement of BASIC. BASIC is better 
than nothing (and, currently, nothing else is available for 
hobbyists). However, I see no reason to continue to eat 19<t 
hamburgers when classy filet mignons are available at the cost 
of a little interesting effort. -JCW, Jr. 
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$98.50 Graphics Terminal Kit, Southwest Texas Products Corporation 33 
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4K Static RAM Board (Unpopulated) for $18.75 4 Adaptor Makes LSI-ll’s and 11/03’s into Real PDP-ll’s 36 

$450 Dot-Matrix Printer for 6800’s and 8080’s 36 Western Data’s 6502-based Data Handler Kit for $169.95 43 


RCA COSMAS & jjScope [letter], Jim Day 43 LED Replacements for Burn-Outable PDP-8/E Lamps 43 
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Going to Submit a Program to Someplace? [letter & reply] 6 New club: TRACE in Ontario 15 
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+ propaganda, subscription form & questionaire centerfold 6800 BASIC, Editor, Blackjack; Tiny BASIC Star Trek; etc. 
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DO YOU... 

. . . LIKE WHAT WE ARE DOING? 

* Publishing significant systems software, every month 

* Reprinting materials from club newsletters 

* Proposing & detailing “realizable fantasies” . . . exciting projects, feasible for home computers 

* Actively pursuing a role of consumer advocate 

* Publishing useful references . . . indices to periodicals, bibliographies, lists, etc. 

* “All Meat” pages; we are not accepting commercial advertising 

* And more— 

. . . KNOW THAT MUCH MORE MATERIAL IS BEING SUBMITTED 
THAN WE ARE FINANCIALLY ABLE TO PRINT? 

* Many more programs than we have room to print 

* Much more very useful material from many club newsletters 

* A number of projects that are practical & appropriate for home computer users 

* More consumer evaulations of products & services 

* Many, many more reference lists, indices, tables, etc. 

* Much more 

. . . KNOW THAT YOU CAN HELP US 

TO BE ABLE TO PUBLISH ALL THE GOOD THINGS WE ARE RECEIVING? 

* Since we . . . 

-are supported entirely by subscriptions & sales through stores 

-want to keep it that way (“keeps us honest” when we indulge in consumer advocacy) 

-are serving you ; not serving commercial advertisers 

* Then . . . 

-the only way we can get more income to pay our printers to print more pages, is to have more 
people and companies subscribe to and purchase the Journal 
-you have already helped by purchasing this issue 

. . . WISH TO HELP US HELP YOU? 

* Tear out the center-fold (not very sexy, but we hope it’s attractive) 

-pass it along to a friend or professional associate 
-post it on the bulletin board at school or at work 
-give it to a manager of microprocessor software or design 
-reprint it in your club newsletter 

* Stand up and tell your next computer club meeting about the Journal 

[and ... if you really like what we are doing:] 

* Send tax-deductible contributions to People’s Computer Company 

-do so as a company or an individual 

[Oh . . . didn’t you know? PCC, the publisher of Dr. Dobb’s Journal is a legitimate, state and 
federally chartered, non-profit, educational organization. Contributions to it are tax-deductible.] 

DC 
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PRAISE FOR PITTMAN’S 6800 TINY BASIC 
and 

A Minor Complaint . . . With Tom’s Response 

Dear Bob, May 17, 1976 

I bought Tom Pittman's 6800 TINY BASIC and 
think it's the best $5 I've spent in a long time. I haven't 
tested it exhaustively, but it seems to work admirably, though 
slowly. The user's manual that came with it was simple and 
comprehensive, and gave enough info to make the program 
run on anyone's system with a minimum of fuss. Mine worked 
almost as soon as I got the paper tape read in. Tom Pittman 
is to be applauded not only for producing a good TINY 
BASIC that uses less than 2K, but for doing such a good job 
of explaining how to use it. If all hobbyist vendors con¬ 
formed to Tom's standards, there would be far fewer 
complaints. 

My only complaint about Tom is that he staunchly 
refuses to release the source listing of his program. I need to 
make some modifications to the program, for use with my 
cassette O/S, and I would like to be able to expand it. It is 
very frustrating to be kept so ignorant about his program, 
particularly since it seems to work so well. He seems con¬ 
cerned about his ability to retain control over the integrity of 
the program, and perhaps about the investment in time and 
potential money he expects to receive from it. I can't see how 
he'll ever make enough money (at $5 a copy) to keep himself 
in business. But the price may serve to discourage people from 
circulating clandestine copies of the program. Anyone who 
uses Tom's program without paying Tom for the privilege, 
should be tarred and feathered. 

Sincerely, 

David M. Allen 1317 Central Ave. 

Kansas City KS 66102 


Dear Jim: 11 June '76 

I have to agree with David’s complaint—I would be very 
unhappy to find the tv 1 just bought did not have a sche¬ 
matic, but then a $5 transistor radio is something else. 
Though he does not seem to realize it, David has actually 
touched on the reason why I have not made source listings 
available. 

When I first started this venture, I too was not sure I 
could make enough money to stay in business; it was in fact 
a sort of experiment in economics. Therefore, as a hedge 
against possible losses, I sold copies of the source and main¬ 
tenance documentation to a company for a lot more money 
than any hobbyist would be willing to pay, though it was 
still considerably less than I usually sell custom programs of 
comparable size for. While the sale was non-exclusive, I do 
not think it fair to devalue this company's investment when 
to some extent they helped make Tiny possible. 

Aside from that one large sale. Tiny BASIC 6800 has 
not yet paid for itself, but the promise is there, so I expect 
to go ahead with other software for the hobbyist in the same 
price range, and I hope to make source listings available for 
the new packages. As for Tiny BASIC, I am presently pre¬ 
paring a comprehensive description of the IL (which is sub¬ 
stantially the same as that originally published in PCO in¬ 
cluding instructions for modifying it to add functional capa¬ 
bility or change syntax, to be published in DD r ^(if you will 
have it). I had hoped to include an assembler Witten in Tiny 
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4K STATIC RAM BOARD 
(UNPOPULATED) FOR $18.75 

Dear Friend, May 10, 1976 

I would appreciate your disseminating the spec sheet 
enclosed to your friends and club members. A discount of 5% 
will be given to clubs with an order of 50, and 10% on 100. 

Several months ago I received several inputs on making 
an unpopulated 4K RAM board, hence I am producing the 
board for the hobbyist that does not want to get ripped off. 

The board has been fully tested and is in use by many 
people here in Dallas. I might add that it is in use on 8080, 
6502, and 6800 CPU's. 

Sincerely yours, 

Jim Garrett Box 2161 

Micro Applications Garland TX 75041 

4K STATIC MEMORY BOARD (unpopulated) 

FEATURES 

2102 and 91 L02 compatible 
User selectable options 

Protect/Unprotect switch 
Battery backup 

Selection of address by dip switch 
Fully compatible with MITS/ALTAIR and IMSAI 8080 
Can be used with other micro/homebrew computers 
Full buffering of address and data lines 
Bipass capacitors on all ICs for improved noise immunity 

SPECIFICATIONS 

Double-sided MIL-spec board 

100-pin (50x50) on 0.125-inch centers 

Standard dimensions 

Plated through holes 

Gold plated edge contacts 

GENERAL DESCRIPTION 

This is an unpopulated 4,096 word (byte) Random Access 
Memory. The cost to populated is less than any kit available (based on 
advertised prices). Full instructions, schematics and parts list are 
included. 

PLUSES 

100% tested 
Instruction package 

Plated through holes and gold-plated edge contacts 
Uses 2102's or 91 L02's 

PRICES 

1-3 @ $18.75 each 
4 or more @ $16.25 each 

$1 for instruction package (one is included with each order) 
Texas residents add 5% tax 

DELIVERY 

3-4 weeks 

Coming Soon: "The Extender." 

We are interested in receiving consumers' compliments 
and complaints concerning Micro Applications, and all other 
large and small marketeers to the hobbyist community. -JCW 


(yes, I know it's slow), but already I am time-sharing my 
efforts between this, new software, and those expensive cus¬ 
tom programs that keep the rent paid; the projects with non¬ 
zero financial return seem to get higher throughput. 

Tom Pittman Box 23189 

San Jose CA 95153 

P.S. Your readers may appreciate being made aware of the 
fact that Tiny BASIC does run on a Sphere configuration, but 
they should mention which computer they have, since the 
code is slightly different for the different operating systems 
(e.g.. Sphere vs. SWTP, etc.). 


Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 June/July, 1976 


152 



DENVER’S DIGITAL GROUP KIT DRAWS PRAISE 

Dear Bob: April 26, 1976 

I finally broke down and bought myself a system. I 
took out a bank loan, added some cash of my own and 
mailed my cashier's check to the Digital Group for their 
Three-board system. 

Three days later I read in PCC that caution was needed 
in dealing with DG. I also read some mixed reports in Micro-8 
News. I was really nervous, had bad dreams, and didn't sleep 
for nights. 

2/10/76 Order placed with DG: 3-board system kit plus 
power supply. They promised 3-week delivery. 
Order placed with Herbach & Rademan: Clare/ 
Pender Keyboard. 

2/21 The three boards arrived, missing 74121 and 22uF 

capacitor. 

2/25 Keyboard arrived. 

2/26 Power supply arived. 

3/3 Mother board arrived. 

Total time: 3 weeks, one day. The missing parts took 4 
weeks and two letters. 

All parts are of good quality. 

TV-Cassette and Mother boards are slightly warped. 

5V 6A supply by Eentak Inc.; looks impressive. 
Documentation fair; assumes a lot. Several minor errors. 
Chassis, switches and connectors need to be ordered 
from other distributors at present. 

Time Spent 

2.5 hours I/O card 
4.75 CPU card 
3.25 TV-Cass. card 

2.5 - 5, ± 12V power supply 

.5 Mother board 

6.5 TV modifications 

17.5 Planning, cutting, mounting, wiring chassis 

4.5 Checking things out 

41.5 hours Total time 

I took my time and spread it over about 40 days. I 
must say I savored every minute of it. 

I had trouble with the TV characters being out of focus. 
It finally dawned on me, after scratching my head for several 
days, that the TV interface was overdriving the TV video. I 
solved the problem by turning the contrast and brightness to 
zero. Later I plan to add a pot on the interface output. 

When I had gone through their checks, I turned the sys¬ 
tem on and sure enough there was a message on the TV 
screen: “Read 8080 Initialize Cassette." 

After dancing around the room, I proceeded to read in 
the cassette. Numbers flashed across the screen. First 1's, then 
2's, and finally 7's, then a bunch of dots. The dots weren't 
suppose to happen. More scratching of the head and several 
days later I decided it must be the cassette recorder. 

I borrowed a recorder from the school to replace my El 
Cheapo and everything happened just like it was supposed to. 
However, it still misses a few bits now and then. The 1100 
baud rate is too fast for my El Cheapo. It looks like it 
would be possible to set the cassette read and write constant 
at a lower baud rate, re-record the Operation Monitor, and 
then every time the system is turned on key in the new con¬ 
stant from the front panel, and then read in the cassette on an 
El Cheapo. However, the DG system does not come with a 
front panel, just plans for one. 
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I've been spending most of my time figuring out what 
makes the Monitor work. The DC documentation is not much 
help. I've also found out that machine language is a far cry 
from Fortran. 

I will echo what some others have said about the DG 
system: 

It does what they say it will do. 

It worked the first time I turned it on, which says a 
lot considering how complex it is. It's definitely not a 
beginner's kit. 

More documentation: flow charts for the Monitor 
(I'm working on a set), clearer instructions, spec 
sheets for the IC's and a better description of how it 
works would be nice. But that would mean more 
money and maybe in that case the documentation is 
OK. 

Last week I got info about DG's Tiny BASIC. I plan to 
order that and another 8K of RAM from them. 

Materials I'm finding helpful: The Bugbook III. 

Hopefully my Intel 8080A Users’ Manual will get here 

soon. 

I want to get: 8080A Microcomputer System’s Manual, 
Intellec 8/Mod 80 Microcomputer Development System Ref¬ 
erence Manual, SCELBI software manuals. 

Keep up the good work. 

Vours, 

Ed C. Epp Freeman Junior College 

Freeman SD 57029 

GOOD REPORTS ABOUT MOS TECHNOLOGY 

We hear that MOS Technology has sold about 1000 KIM's. 

We also hear that they are very responsive to customer queries. If 
you have needs or interests, the "good guy" name we have been 
given is Don McLaughlin, Product Manager for KIM, 

(215) 666-7950. 

PLAUDITS FOR MOS TECHNOLOGY 

Dear Jim, May 11, 1976 

Just received my third issue of Dr. Dobb’s Journal and 
I thought I'd drop you a note of thanks for putting in an 
article on a MOS 6502. From the lack of MOS Technology 
articles, I got the feeling that "Intel Valley" was banning MOS 
Technology products in California. 

Last week I called Intel, to get a software manual, and 
received the biggest runaround I have ever gotten. Unlike 
Intel, I have found MOS Technology will answer any and all 
questions on their products and it only takes one call to them 
to produce results. Many times I have called Will Mathis and 
Don McLaughlin of MOS Technology with what I, today, 
would consider to be stupid questions and received the time 
and help of their technical staff in getting me on the straight 
and narrow. 

MOS gets a number one in my book and should be 
given more space in your Journal. 

Very truly yours, 

Gerald D. Severson 

RUMOR: 16-BIT, 3-MEGAHERTZ MICRO? 

We hear that MOS Technology is planning to exhibit a 
3-megahertz, 16-bit microprocessor at this Fall's Wescon con¬ 
vention in San Francisco. They also expect to have a "rotate 
right" instruction in their 6502 by the time this issue reaches 
your hands. 
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GOING TO SUBMIT A PROGRAM 

TO A MANUFACTURER’S SOFTWARE LIBRARY? 

WHY NOT SUBMIT A COPY 

TO YOUR LIBRARY (THE JOURNAL )? 

Dear Editor, May 12, 1976 

I've got a gripe. I ordered my Altair back when Pop 
’Tronics first published the article (took four months to get it, 
though). Anyway, they automatically gave me a 1 year's sub¬ 
scription to their Computer Notes. With each copy they in¬ 
clude at least one page of new programs available in their 
software library. These are programs that they keep asking 
people to send in, for which they receive a couple of pro¬ 
grams in turn from the library. We are told these programs 
are all free simply for a small handing and copying fee. These 
"small fees" are almost all $2 minimum—or more for the 
longer programs. The current offering consists of 29 programs 
totaling $61 in fees if one ordered all 29 (28 are $2 each, 
and 1 is $5). 

What I don't understand is why they don't publish them 
in their Computer Notes. As it stands, Computer Notes con¬ 
sists of 16 pages of virtually nothing but their own advertising. 
They say a subscription to non-Altair owners is $30. Personally, 
I wouldn't give 30 cents for a year's subscription. I bet after 
the 12th issue goes out and they start selling subscriptions 
they are going to be in for a big surprise. Who will pay even 
$10 for their advertising sheet? They also issue software with 
a $500 price tag to the hobbyist and then lament the swap¬ 
ping, passing around, trading, of it. What do they expect? 

But that's another story. 

The point is—why can't you publish these (or similar)? 
Just glancing at the latest list I see programs listed as being 
60 lines, 83 bytes, 73 bytes, 21 lines, 46 lines, 121 bytes, 

28/33 bytes, 56 bytes, 12 lines, 250 lines, 15 bytes, etc. You 
could get all eleven programs I listed on 3 or 4 pages, and 
that represents $22 of handling and copying fees. Publishing 
some would save us a bundle. 

This is what I hope Dr. Dobb’s Journal is all about. 
Actually, a lot of people just aren't going to get many of the 
programs unless there is a lot of the lamented swapping, trad¬ 
ing, and exchanging—or, unless you become the "library" for 
all of us. 

$o far, you are doing fine. Keep up the good work. 
Durward Landers 2509 Lakeside Dr. 

Garland TX 75042 

We will publish as many programs as we can, if people 
will send them to us. Spread the word: Whenever someone 
decides to submit a program to a manufacturer's software 
library or users' group, encourage them to also submit it to 
the Journal. If it's systems software or assembler-level, we will 
probably publish it. If it's a program coded in BASIC or some 
other HLL (High Level Language), it will probably be pub¬ 
lished in PCC Newspaper. 

We see nothing wrong with offering programs to manu¬ 
facturers’ libraries. But at the same time, why not offer them 
to your library: Dr. Dobb’s Journal ? 

As far as reproduction and postage costs are concerned: 
there is a problem. The Community Computer Center (CCC) 
is maintaining a Program Repository and Duplication Facility 
(see the Journal, March, 1976, issue) for all programs sub¬ 
mitted to it. We think their charges are reasonable: $1 /ounce 
for tapes plus 50 cents (orders under $5) or $1 (orders ex¬ 
ceeding $5) for postage and handling. Note that these are 
quite comparable to MITS' charges . . . and we know CCC 


ACCENTUATE THE SYSTEMS SOFTWARE; 
ELIMINATE THE GAMES 
Dear Editor, 

You can eliminate 90% of the games. Almost all other 
hobby publications specialize in them. Emphasize your unique¬ 
ness: a repository for systems software. It's a great idea, so 
far well executed; so don't drop the ball by trying to cover 
too many other things. I strongly recommend that you push 
APL as you did TBA5IC 

Robert C. Minnick Box 306 

Ouray CO 81427 

To a large extent, we will leave the games for publication 
in People’s Computer Company. We will reprint games from 
time to time, particularly when they are "games' systems," or 
are games written in assembly-level code. This might be con¬ 
sidered to be, so to speak, systems software for home computer 
users. Dr. Dobb’s Journal will definitely not be emphasizing 
games, however. 

We would be delighted to "push" APL as we did Tiny 
BASIC. All we need is for someone to provide design criteria 
and details appropriate for hobbyist consumption. We are 
alwsys on the lookout for competent individuals interested in 
providing the leadership for such projects. Incidentally, as soon 
as he can find the time, the Editor of Dr. Dobb’s Journal is 
planning on initiating a SMALL PASCAL project, to be pur¬ 
sued in much the same manner as Dinnis Allison's Tiny 
BASIC project. This will be based on Niklaus Wirth's PASCAL, 
a cleanly designed, excellent, block structured, high-level lang¬ 
uage similar to ALGOL, .but with much more powerful data 
description and manipulation facilities, and structured for 
single-pass compilation. 

One final note: PCC is not a program repository. We 
publish all available information about interesting software, 
including information as to how it may be obtained. However, 
we do not distribute such software in machine-readable form 
(e.g., paper tapes, cassettes, etc.). --JCW 

SHORT ON LENGTH 
BUT LONG ON QUALITY 

Dear Jim, 

Having just read your February issue (Vol. 1, No. 2), I 
was sufficiently impressed to part with the money for a sub¬ 
scription. What your publication lacked in length was more 
than adequately offset by quality and subject matter. Your 
questionnaire scares me somewhat as you apparently are look¬ 
ing for some new directions - . Additional coverage of other 
topics is fine and may tend td broaden your base of appeal. 
However, I for one, bought ydur publication for what it cur¬ 
rently is—"a medium concerning the design, development and 
distribution of free and low-cost software." Bhould your en¬ 
terprise maintain its stated goal of presenting "detailed infor¬ 
mation concerning low-cost systems software," I will have 
spent the subscription fee well. 

I remain, 

Dan Artman 1445 Adams Rd 

Cincinnati OH 45231 

is doing little more than breaking even. Unfortunately, there is 
a lower limit on the cost of maintaining paper-tape equip¬ 
ment + purchasing supplies + paying a paltry pittance to a 
slave to operate the equipment and verify tapes that are 
punched and . . . etc. (Note: People's Computer Company is 
a publishing operation. We provide programs in human- readable 
form. We do not provide programs in machine- readable form, 
e.g., paper-tapes.) 
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A novice constructs an IMSAI 

An attorney builds 


his first computer 

by S.A. Cochran, Jr. 

I am a little out of my field messing about with computers— 
far more than some school teachers are whose interest is in 
propagating math instruction, etc. But even my life was not un¬ 
touched by some of the manifestations of the computerized 
society-about four years ago, I made use of the IBM Mag-card 
Selectric typewriter during a period of heavy work. Ever since, I 
had been struck with the convenience—and high cost—of 
mechanized typing. 

More recently, I heard that John Arnold and Dick Whipple 
were assembling a computer for what appeared to be peanuts, 
compared to the charge gaily levied by IBM for its typing units, 
much less its Mag-card units, and still less than its computers. 
Based on this information, I could hope to install a powerful 
typing system with greater capabilities than anything that I 
could expect to purchase from IBM with available resources, 
and at less cost. 

Having decided to get into the microcomputing stream, 
with the help of John Arnold, I decided to get an IMSAI 
rather than Altair because the IMSAI unit with memory was 
the same price as the MITS unith without memory. Also, 

MITS' prices for memory were substantially above those 
charged by IMSAI. 

I placed my order for the basic IMSAI unit on 
January 22nd. They received this order on the 25th, and the 
unit was actually shipped on February 2nd. I learned more 
about the units actually available from IMSAI on January 25th, 
and sent in an additional order on that date. It was not filled 
until March 1st, when some of the parts were shipped. The 
I/O ports that were included in the second order did not 
arrive until about March 25th. 

The serial I/O board was delayed by a considerable 
re-design of the board, which must have started in January, 
and must have concluded at the very end of February. The 
documentation received with the original equipment showed 
the manner of assembling the SIO 2-2 board. Rev. 1. I re¬ 
ceived at least one set of errata with the documentation, and 
one after I had already got the equipment. Ultimately, IMSAI 
sent me their SIO 2-2 Rev. 3 board, with all of the changes 
built into the board. 

I would like to point out that IMSAI was very prompt 
in providing the kit buyers with errata when they discovered 
something that needed to be fixed. In addition, on certain 
rather complicated modifications, they offered to make the 
modifications themselves if the kit-builder did not trust him¬ 
self to fix the unit satisfactorily. They have also been quite 
helpful with software for units of the equipment. For in¬ 
stance, with the CRI board they supplied paper tape software 
and a hexadecimal listing. 

In the revised order, I had requested the EXP-22 
mother board. I recall that I could not proceed beyond the 
assembly of the several independent boards during February 


while waiting for this unit to arrive. 

I had a little confusion about the proper procedure for 
completing the power supply and collecting it. I had docu¬ 
mentation for connection of the IMSAI power supply using 
two alternative transformers and they had shipped a third 
version of the main power supply. This was corrected quickly 
enough, and a minor problem with the 1 K memory board 
was quickly corrected when someone pointed out that I had 
interchanged a .01 mfd capacitor and a 33 mfd one. Testing 
of the front panel board and the cpu board had to wait for 
arrival and assembly of the mother board and additional 
memory. 

When the additional units arrived, everything tested out 
satisfactorily, except that there was a single bad LED on the 
front panel. I recall that there was an embarrassing pause 
after this LED was replaced—we thought that the entire 
equipment had gone berserk. However, I found that a piece of 
wire had worked its way behind the front panel, and was 
shorting the deposit switches. I have had no further problems 
with the computer, or with any of the parts supplied by 
IMSAI—except for the problems involved in learning to speak 
machine language like a native. (Apparently I don't do that 
yet.) 

My remaining difficulties in getting the initial system 
into operation have revolved around input and output devices. 

I joined John Arnold and Dick Whipple in the acquisition of 
three Burroughs Model 9350-2 communicating typewriters 
from Herbach & Rademan of Philadelphia. These units were 
correctly advertised as receiving and transmitting a form of 
ASCII. They appear to be based on the Friden Model 2300 
typewriter, a modernized version of the Flexowriter. They are 
not readily convertible to use as a computer input because 
there is a direct mechanical linkage between the keyboard and 
the keybars of this typewriter. Another thing that I found very 
hard to get used to was that this "typewriter" didn't have a 
backspace key! There was some additional major maintenance 
to be done on this equipment. Although it could be induced 
to type, thus far I have been unable to get the typewriter 
hooked up to the computer! 

After making the decision to use a separate keyboard, I 
bought one of the keyboards originally built for RCA that 
have been advertised by Sargeant's in Los Angeles. This key¬ 
board was advertised to be fully ASCII encoded, and it was, 
so far as it went. Unfortunately, this unit had provision for 
upper and lower case letters, numbers, and punctuation marks, 
but it did not have any provision for the non-printing control 
characters so common to computer work. In addition, upon 
applying power to the keyboard, we discovered that this key¬ 
board carried a strobe that was valid as long as the key was 
pressed, and used negative logic. That is, the strobe output, 
and all the other outputs supposed to be made true when a 
key was pressed, went at that point from a voltage of 5.0 to 
0.4 volts. It appeared that it would be necessary to add a 


June/July, 1976 Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 Page 7 


155 



tair number of IC's to the interface between the keyboard 
and the computer in addition to installing an additional key 
on the keyboard for use as a control key. With all these 
matters before me I decided to keep the keyboard for future 
modification, and get another for my present use. But I did 
get a pretty keyboard enclosure from Sargeant! 

[ Later] ... I am now in the process of putting that 
pretty keyboard enclosure and keyboard to good use. It's going 
to take a certain amount of skill and understanding but one 
of my purposes in getting into this hobby was to acquire that 
sort of skill. Thanks to Sargeant's, any way, for providing me 
with an occasion for that sort of acquisition—even if it wasn't 
what I exactly expected. 

I feel that I should mention the question of IMSAI soft¬ 
ware before closing. In the advertisements that they began to 
distribute just after I ordered my IMSAI unit, they stated 
that they would ship an assembler, loader, and monitor with 
every unit, together with BASIC and other languages there¬ 
after. This assembler, etc., turned out to be a re-write of the 
assembler originally distributed by Processor Technology Corp. 
It uses all of a 4K memory, and needs an additional 2K of 
RAM, if not more. A complete source listing and paper tape 
of this assembler were enclosed with the unit. IMSAI also 
provided a listing and paper tape of software for their Cas¬ 
sette Recorder Interface board. On March 20th, IMSAI wrote 
all of their customers, stating that they were now ready to 
deliver their 4K BASIC, and expected to be ready to deliver 
the 8K and 12K BASIC languages on April 15, and May 15, 
respectively. The 4K BASIC was shipped at the end of March. 

I was ultimately charged $4.00 for their cost of duplication of 
the paper tape, and an additional $10.00 for a 70-page source 
code listing of the IMSAI BASIC. IMSAI had apparently 
enclosed it 'by mistake.' 

IMSAI's price for its 4K BASIC thus amounts to $14. 

In addition, IMSAI will sell the 8K and 12K BASICs for $1 
per kilobyte of memory required. The source code listing for 
these two extended BASICs will again be $2.50 per kilobyte. 
Compared to the longwinded philosophical discussions that one 
hears from MITS from time to time, this is probably a great 
bargain, notwithstanding that the IMSAI BASIC may not be 
quite as powerful as the MITS 4K BASIC. 

After acknowledging the assistance of my friends in 
checking out the IMSAI 8080, I conclude that this equipment 
is a well-designed, sturdy unit easily capable of expansion to 
the full limits of addressable memory. IMSAI has acted in a 
very businesslike fashion, and has tried to be genuinely helpful 
within the limits that are proper to a business organization. 
IMSAI recently raised the price of the basic equipment, with¬ 
out memory, to $599. Certain persons of my acquaintance 
griped very strongly at IMSAI's action. I consider that in view 
of the high quality of the merchandise, the IMSAI equipment 
is worth this premium price to the individual who has never 
attempted to build an electronics kit before. Anyone who 
considers the IMSAI not worth the price, should consider 
whether he or she could duplicate the system with available 
resources. If he could match the high quality provided by 
IMSAI, could he deliver the goods to others, at the price? If 
so, why isn't he in there competing? 

Yours very truly, 

S.A. Cochran, Jr. Box 607 

Attorney at Law Tyler TX 75701 


Bootstrap for 8080 

by Lichen Wang 

(reprinted with permission from Homebrew Computer Club 
Newsletter) 

If your 8080 microprocessor system is not equipped with 
non-volatiie memory, you probably have to reload the memory 
from time to time. To read the Intel hex-format paper tape, 
you need to key in a loader of some eighty-odd bytes long. This 
is rather tedious and often leads to error. Altair BASIC has a 
bootstrap loader of twenty or twenty-one bytes long. In princi¬ 
ple, you can use this bootstrap to load in your own loader which 
will then load in your program. I coded one myself, and what 
comes out is a bootstrap sixteen bytes long. This is still too 
long—maybe our professional experts can make it shorter. For 
the time being, you are welcome to copy mine. 


The part that you 

have to 

' key in 

looks like this: 

0000 DB00 READ 

IN 

0 

JlEAD AND 

0002 E620 

ANI 

20H 

JMASK THE STATUS BIT 

0004 CA0000 

JZ 

READ 

;NOT READY YET 

0007 DB01 

IN 

1 

•.READY, READ IN A 




FRAME 

0009 010900 HERE 

LXI 

B,HERE ;LATER BECOMES INX B 




STAX B, CPI 

000C 02 

STAXB 

EATER BECOMES FF 

000D C30000 

JMP 

READ 

EATER BECOMES JNZ 


READ 


And the paper tape should have the binary equivalent of the 
hex numbers shown below: 

01 01 ... 01 03 02 FE FF C2 00 00 XX XX.XX XX FF 

<- leader -> <- bootstrapping -> <- your loader -> marker 

Where your loader is punched in binary format on the paper 

tape between the 00 and the FF is denoted by XX XX. 

XX XX. Your loader cannot have any byte with the value FF. 
The marker FF tells the bootstrap to start your loader, starting 
at 10H. After the FF, the paper tape is read by your loader. Use 
whatever format you want. 

If your loader cannot be loaded at 10H, then you will have 
to write another loader which can be loaded at 10H. Use it to 
load in your first loader to load in your program. This sounds 
very confusing, but that is how bootstrap works. Have you 
ever tried to get yourself off the ground by pulling your 
bootstrap? 

Incidentally, the I/O ports at locations 1 and 8, the status 
bit mask at 3, and the jump condition at 4 may have to be 
changed for different I/O interface board. Your loader should 
copy them from the bootstrap rather than setting them up on 
their own. (Or, you can code your loader to change location 9 
to RET, and use READ as your input routine.) This way the 
same paper tape can be used on different machines. To carry 
this one step further, your program should, in turn, copy them 
from your loader, so that it too can work on different 
machines. 


HIGH SCHOOL CLUB IN CHICAGO 

The University of Chicago Laboratory High School (1362 
E. 59 St., Chicago IL 60637) has started a computer club. 
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BYTE SAVING PROGRAMMING TRICKS 
FOR THE 8080 


by Tom Pittman 

(reprinted with permission from 
Homebrew Computer Club Newsletter) 

These are some programming tricks I have accumu¬ 
lated over the years which can often save a byte or two 
in 8080 programs. Because of the peculiarities in the 
instruction sets, only a few of these also apply to 6800 
programs and are so noted. Many of these tricks are 
widespread lore; some I have never seen elsewhere. I 
hope they can help you as well. 

For 2's complement signed arithmetic, it is some¬ 
times necessary to add a signed Tbyte number to a 
larger format. There are also other reasons for spread- 
ingasingle bit (in the Carry FF) to a whole byte (in A). 
I found this one in the Scelbi book: 

SBB A Copy carry to all bits in A 

The 8080 does not have a proper shift instruction 
which fills the vacated bits with zeroes. Normally, a 
CLC must precede the RAH instruction. However, for 
left shifts: 

ADD Shift with zero insert 

To insert a single bit (in the Carry) into the left or 
right end of the A without altering the other seven bits: 

RA L Remove old left bit 

RRC Insert new from Carry 

The right-end version is symmetrical. To divide a 
signed (2's complement) number in half, it is necessary 
to keep the sign bit (bit 7) unchanged while shifting A 
right. The 8080 does not have an instruction for this, 
but the RAR may be used if the Carry can bet set up 
to match the sign bit: 

RLC Copy bit 7 to Carry 

RRC Restore A 

The 6800 has a single instruction for signed right 
shifts, but no circular rotate. To copy a sign into the 
Carry: 

ASR A (6800) Duplicate bit 7 

ROL A Restore A with bit 7 in Carry 

Some of these other tricks with the Carry become 
more useful if the Carry can be set on the basis of the 
other conditions. A zero in A may be converted into 
either a one or a zero in the Carry (so that non-zero is 
the reverse) by one of the following instructions (this 
also works in the 6800 with appropriate opcode sub¬ 


stitutions): 

ADI OFFH C=0 if and only if A=00 
SUI 1 C=1 if and only if A=00 

It is easy to get the sign of A into the Carry (any 
left shift will do); to get the complement of the sign is 
a little trickier. This instruction leaves the contents of A 
unchanged, and also works for the 8080: 

CPI 80H Complement bit 7 to Carry 

Finally, how do you pack a byte with some bits 
from A and some bits from B? The Univac 1108 has a 
special instruction called Masked Load Upper which 
does this. The 8080 (and also the 6800—but only when 
the second byte is in memory) can do this in three in¬ 
structions! Assume that the data in A and B (or any 
other register or memory location) are already in the 
correct bit positions. The mask represents a byte with 
the ones where the data in A is to be substituted; the 
non-data bits of A and B may contain garbage, as they 
are ignored: 

XRA B XOR B to A data bits 
AN I Mask Delete A garbage 

XRA B Insert B data 

The theory behind this trick lies in the fact that 
the XOR operation may be considered a "selective 
complement" instruction. In other words, where there 
are ones in B the bits in A are complemented, and 
where there are ones in B the bits in A are unchanged. 
The AND operation, on the other hand, may be thought 
of as selectively setting bits to zero in A, where the 
zeroes in the mask set bits in A to zero and ones in the 
mask leave the bits in A unchanged. Assume for the 
moment that the mask is all ones; the other two instruc¬ 
tions exactly cancel each other, leaving A unchanged, 
since the ones in B complemented the corresponding 
bits in A the first time and recomplemented the same 
bits (back to their original states) the second time. Thus 
ones in the mask retain the original bits in A. Now con¬ 
sider zeroes in the mask: here the corresponding bits of 
A are cleared to zero by the AND operation so that the 
first XOR has no effect; the second XOR simply com¬ 
plements those zeroes in A which correspond to ones 
in B, which is to say that it copies the bits of B into A 
(remember A was cleared to zeroes by the AND opera¬ 
tion). Thus zeroes in the mask copy in bits from B. 
Since each bit operates independently, there is no re¬ 
quirement that the selected bits of A or B be contig¬ 
uous. Note also that no other registers or memory is 
required for this procedure, and that B is unchanged. I 
realize this operation looks suspicious, so I have includ¬ 
ed the following truth table: 
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— 

< 

00 

MASK 

1st XOR 

AND 

2nd XOR 

0 

0 

0 

0 

0 

0 = 

0 

0 

1 

0 

0 

0 = 

0 

1 

0 

1 

0 

1 = 

0 

1 

1 

1 

1 

0 = 

1 

0 

0 

1 

0 

0 = 

1 

0 

1 

1 

1 

1 = 

1 

1 

0 

0 

0 

1 = 

1 

1 

1 

0 

0 

1 = 


FIGURE 1 

Byte Packing Truth Table 


PROCESSOR TECHNOLOGY REFORMATOR 

THIS PROGRAM TAKES 8080 ASSEMBLY 
SOURCE PROGRAMS WRITTEN ON INTEL'S 
INTELLEC 8 WHICH HAVE COLONS AFTER 
LABELS, CONTROL-1'S FOR TABS, 

AND SEMICOLONS TO DENOTE COMMENTS. 


IT CONVERTS THEM TO PROCESSOR 
TECHNOLOGY'S FORMAT WITH LINE 
NUMBERS, TO DENOTE COMMENTS, 

AND NO SEMICOLONS AFTER LABELS. 


THE READER MUST BE UNDER PROGRAM CONTROL. 
THAT IS IT MUST BE STOPPED AFTER EACH 
CHARACTER IS READ IN. 


THIS RUNS ON THE INTELEC/8 
IT STARTS AT LOCATION 1 OH 
AND USES THE INTEL MONITOR 
FOR I/O 


OOOD 


CR 

EQU 

ODH 

OOOA 


LF 

EQU 

OAH 

3806 


RI 

EQU 

3806H ;READER INPUT 

3809 


CO 

EQU 

3809H ;CONSOLE OUTPUT 

0000 


; 

ORG 

10H 

0010 

310001 

START: 

LXI 

SP,01OOH ;INITILIZE 

0013 

CD8100 

; 

CALL 

CRCHK ;INPUT A CHARACTER 



; PRINT OUT 4 

ASCII DECIMAL DIGITS 

0016 

F5 

MDEC: 

PUSH 

PSW 

0017 

21A900 


LXI 

H,DNUM+3 

00 1 A 

7E 

MD1 : 

MOV 

A, M 

00 1 B 

3C 


INR 

A 

001C 

FE3A 


CPI 

'9*♦i ;too big? 

00 1 E 

C22700 


JNZ 

MD2 

002 1 

3630 


MV I 

M, '0 ' 

0023 

2B 


DCX 

H ;do the next digit 

0024 

C31A00 


JMP 

MDI 

0027 

77 

MD2: 

MOV 

M, A 

0028 

21A500 


LXI 

H,DNUM-1 

0023 

CDAO00 


CALL 

dprt 

002E 

CDAOOO 


CALL 

DPRT 

0031 

CDAOOO 


CALL 

DPRT 

0034 

CDAOOO 


CALL 

DPRT 

0037 

0E20 


MV I 

C, ' 

0039 

CD0938 


CALL 

CO 


FIRST COLUMN, CHECK FOR A LABEL 


I C OMMENT? 


003C 

FI 

FFCHK: 

POP 

PSW 

003D 

FE3B 


CPI 

'; * 

003F 

C24E00 


JNZ 

LBCHK 

0042 

0E2A 


MV I 

C, 

0044 

CD0938 

FCl : 

CALL 

CO 

0047 

CD8100 


CALL 

CRCHK 

004A 

4F 


MOV 

C , A 

004B 

C34400 

. 

JMP 

FCl 



,* CHECK FOR A 

LABEL' 

004E 

FE20 

LBCHK: 

CPI 

• * 

0050 

CA6100 


JZ 

POC 

0053 

4F 

LBC1 * 

MOV 

C , A 

0054 

CD0938 


CALL 

CO 

0057 

CD8100 


CALL 

CRCHK 

005A 

FE3A 


CPI 

' :' 

005C 

C25300 


JNZ 

LBC 1 

005F 

3E20 


MV I 

A, • ' 


;PROCESS A COMMENT 


;no label 


DO THE OPCODE, OPPERAND, AND COMMENT 
MULTIPLE BLANKS BECOME SINGLE BLANKS 


0061 4F 
0062 CD0938 
0065 CD8100 
0068 FE20 
006A CA6500 
006D FE3B 
006F CA4400 
0072 4F 
0073 CD0938 
0076 CD8100 
0079 FE20 
007B C27200 
007E C36100 


P0C1 : 


MOV 

CALL 

CALL 

CPI 

JZ 

CPI 

JZ 

MOV 

CALL 

CALL 

CPI 

JNZ 

JMP 


C, A 
CO 

CRCHK 

POC 1 
'; • 
FCl 
C, A 
CO 

CRCHK 

P0C2 

POC 


READ A CHARACTER, MASK OFF PARITY. 
IF ITS A CARRIAGE RETURN, THEN 
; DO THE END OF LINE THING 
; CONVERT CONTROL-I'S TO BLANKS, 
i REPRODUCE LEADER. 


0081 

CD0638 

CRCHK: 

CALL 

RI 

;GET THE CHARACTER 

0084 

E6 7F 


ANI 

7FH 

;mask parity 

0086 

FEOD 


CPI 

CR 


0088 

CA9500 


JZ 

CRC 1 

;its the end 

008B 

B7 


ORA 

A 


008C 

CA9900 


JZ 

CRC2 

;REPRODUCE LEADER!! 

008F 

FE09 


CPI 

09H 

/•CONTROL-1 IS A TAB 

0091 

CO 


RNZ 


/•NOT CONTROL-I 

0092 

3E20 


MV I 

A, ' • 


0094 

C9 


RET 


/•REPLACE WITH ' ' 

0095 

El 

CRC1 : 

POP 

H 

/•FORGET RETURN 

0096 

C3AA00 


JMP 

NLINE 

;go to end of line 

0099 

4F 

CRC2: 

MOV 

C/A 


009A 

CD0938 


CALL 

CO 

;OUTPUT LEADER 

009D 

C38100 


JMP 

CRCHK 



PRINT OUT C(H,L)) AS 
ASCII DECIMAL DIGIT. 


OOAO 

23 

DPRT: 

I NX 

H 

00A1 

4E 


MOV 

C,M 

00A2 

CD0938 


CALL 

CO 

00A5 

C9 

; 

RET 


00A6 

30303030 

; 

DNUM: 

DB 

•0000 


TERMINATE A LINE WITH A 

CARRIAGE-RETURN, LINE-FEED 

AND GO PRINT THE NEXT LINE NUMBER. 


OOAA 

OEOD 

NLINE: 

MV I 

C,CR 

OOAC 

CD0938 


CALL 

CO 

OOAF 

OEOA 


MV I 

C/LF 

OOB 1 

CD0938 


CALL 

CO 

0084 

CD8100 

NL2 : 

CALL 

CRCHK 

00B7 

FEOA 


CPI 

LF 

OOB 9 

CAB400 


JZ 

NL2 

OOBC 

C31600 

. 

JMP 

MDEC 

0000 


; 

END 



LISTING PRODUCED COURTESY OF COMMUNITY COMPUTER 
CENTER, 1919 Menalto, MENLO PARK. (415) 326-4444 

THEY HAVE COMPUTER GAMES FOR KIDS/ BIRTHDAY PARTIES, 
TIME ON A PDP 11 AND PSP 


TIME ON A PDP/11 AND PDP/8, AND WILL REPRODUCE PAPER 
TAPES. 


;DELETE •s • 

;loop to print 

f • SEPARTES LABEL AND OP-CODE 


Page 10 
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AN EXERCISE FOR NOVICE 

TRANSLATOR IMPLEMENTORS 

An Arithmetic Expression Evaluator, Coded in BASIC 

by Bill Thompson 

Greetings: April, 26, 1976 

I have been studying compilers, interpreters and the like, 
and thought that some of the methods that I have used to 
gain a proper acquaintance with such a complicated subject 
might aid other uninitiated persons. 

As such, having access to an HP9830 (programmable 
calculator-programs in BASIC) I have constructed in BASIC, 
an expression evaluator-sort of an interpreter. Since it is in 
BASIC, instead of assembly, the flow is a bit more obvious. 

Thanks and take care, 

Bill Thompson 614 - 35 St 

Evans CO 80620 

Following is a program and sample run of a simple 
expression evaluator, written in BASIC. The program uses a 
transition table to "crunch" an expression. I have restrained 
myself from numerous embellishments which have occurred to 
me as I worked on the program—had I started on that route 
I would soon have succeeded in writing a BASIC interpreter 
in BASIC! Nevertheless, I do suggest that the beginner who 
wishes to learn enough to write a compiler or an interpreter 
will find it particularly helpful to write this routine in 
assembler code. If you have access to a version of BASIC with 
strings, add some of those embellishments I left out, such as 
program storage, exponential functions, and assigning an 
expression to a variable. All of these will get you into the 
program, and hopefully into your own language. 


a transition table to evaluate an arithmetic expression. There 
are 2 stacks: a transition stack, T, and an execution stack, E 
(arrays "T" and "E"). The program reads the expression once 
from left to right and takes various actions as directed by 
reference to the Transition Table (array "D"). As the expres¬ 
sion is read, if the new symbol is an identifier (name of a 
variable, its value is pushed on stack E. If the new symbol is 
an operator: ( + - * / ) then the program goes to the 
transition table for instructions. It does this by comparing the 
current symbol with the top one on the translator stack (T). 

INSTRUCTIONS: 

1. Push the current operator on translator stack T, and 
continue reading. 

2. Perform an operation, push the current symbol on T, 
continue. 

3. Pop Stack T, continue (deletes parenthesis). 

4. Perform an operation. Pop T, then repeat the table 
look-up with the current symbol and the new top of T. 

5. Error: missing right parenthesis. 

6. Error: missing left parenthesis. 

7. End—evaluation complete. 

Notes: 

A "stack" is a last-in-first-out data vector. 

All operations are performed on the top two members 
of the expression Stack, E. 

All operations performed use the top of the T stack. 

All expressions must be followed by a blank. 

A blank is denoted in the table by . 

Values are assigned by expressions of the form: 

'LET E=5'. 

Reference: Translation of Computer Languages by Wein- 
garten, 1973, Holden-Day, Inc., ISBN 0-8162-9423-2. (Warn¬ 
ing: the reference though good, contains errors in diagrams, 
etc.) 


A TRANSITION TABLE EVALUATOR 
FOR ARITHMETIC EXPRESSIONS (IN BASIC) 

This program illustrated the use of stack techniques and 


Current Symbol 

14 ( + - * / ) 

(blank) 


7 

5 

4 

4 

4 

4 


1 

1 

2 

2 

4 

4 


6 

3 

4 
4 
4 
4 


Transition Table 


io dim Astaoi.Bsiioi,csr26i,cr26],Trao],ErBoi,D16,n 

20 HEM 

30 HEM SET UP THE TRANSITION TABLE 
40 HEM 

50 FOR I=1 TO 6 
60 FOH J=1 TO l 
70 HEAD DII,JI 
80 NEXT J 
90 NEXT I 


100 

DATA 

1 . 1 .1 , 

1,1. 

1,5 

1 10 

DATA 

5.1.1, 

1,1. 

1.3 

120 

DATA 

4.1,2. 

2.1. 

1.4 

1 30 

DATA 

4.1,2. 

2, 1 , 

1 .4 

140 

DATA 

4.1,4, 

4,1, 

1.4 

150 

DATA 

4.1.4. 

4,1, 

1.4 

1 60 

FOH I 

= 1 TO 

26 


1 70 

CII ] = 

0 



180 

NEXT 

I 



190 

FOH I 

= 1 TO 

80 


200 

TI I ] = 

1 



210 

Etn= 

0 



220 

NEXT 

I 



230 

B$=" 

(+-*/) 

ll 


240 

CS=“A 

BCDEFGHIJKLMNOPQRSTU9WXY2" 

250 

DISH 

"INPUT 

EXPRESSION"; 

260 

INPUT 

AS 



270 

IF AS 

[1,31# 

"LET 

" THEN 300 

280 

GOSUB 

380 



290 

GOTO 

250 



300 

K= 1 




310 

L=POS 

(BS.AS 

[ K, K 

1) 

320 

IF L#0 THEN 

350 

330 

GOSUB 

4 30 



340 

GOTO 

360 
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350 GOSUB 530 

360 K=K + I 

370 GOTO 310 

380 A=POS(CS,AS[5,5 1) 

390 N=POS (A S , ) 

400 CC M] = VAL(AS[N + t 1) 

410 PRINT "* •• ICS Ci411* , = , » *C(fe 1 * " + " 

420 PETUPN 

430 M=POS<CS,AS[K,KJ) 

440 IF M=0 THEN 500 
450 FOP 1=80 TO 2 STEP -I 
460 E[I] = Et 1-1) 

470 NEXT I 

480 EM )=CI Ml 

490 PETUPN 

500 GOSUB I 320 

510 PPINT ‘'INVALID SYMBOL" 

520 GOTO 190 

530 GOTO DITIII.LI OF 540,590,650,710,770,830.890 
540 PEM 

550 PEM INSTPUCTION I 

560 PEM 

570 GOSUB 990 

580 PETUPN 

590 PEM 

600 PEM INSTPUCTION II 

610 PEM 

620 GOSUB 1050 
630 GOSUB 990 
640 PETUPN 
650 PEM 

660 PEM INSTPUCTION III 

670 PEM 

680 GOSUB I 220 
690 PETUPN 
700 PEM 

710 PEM INSTPUCTION IV 

720 PEM 

730 GOSUB 1050 
740 GOSUB I 220 
750 GOSUB 530 
760 PETUPN 
770 PEM 

780 PEM INSTPUCTION V 
190 PEM 

800 GOSUB I 320 

810 PPINT "MISSING PIGHT PAPENTHESIS" 

820 GOTO 190 
830 PEM 

840 PEM INSTPUCTION VI 

850 PEM 

860 GOSUB 1320 

870 PPINT "MISSING LEFT PAPENTHESIS" 

880 GOTO 190 
890 PEm 

900 PEM INSTPUCTION VII 

910 PEM 

920 PPINT AS!" =" 

930 PPINT "* " ! EI I )!" *" 

940 PPINT 

950 PPINT "* STOP *" 

960 El 1 1=0 
970 GOTO 250 
980 END 

990 PEM THIS PO'JTINE ADDS A SYMBOL TO STACK T 


1150 PETUPN 
I 160 EtII=EI21*EI1 1 
I I 70 GOSUB 12 70 
1180 PETUPN 
I 190 El II = E12 I/EC I 1 
1200 GOSUB 1270 
1210 PETUPN 

1220 PEM THIS pollTINE POPS STACK T 
1230 FOP 1=1 TO 79 
1240 TtIl=Tt1 + 1) 

1250 NEXT I 
1260 PETUPN 

1270 PEM THIS POUTINE SHIFTS STACK E 

1280 FOP 1=2 TO 79 

1290 Et I 1=1:1 I + l 1 

I 300 NEXT I 

1310 PETUPN 

1320 PPINT AS 

I 330 PPINT TAB( K-1 ) 

1340 PPINT 
1350 PETUPN 


RUN 

INPUT EXPRESSION?LET A=5 

* A= 5 

INPUT EXPRESSION?LET Z=6 

* Z= 6 

INPUT EXPRESSION?LET D=4 

* D= 4 

INPUT EXPRESSION?LET X=3.25 

* X= 3.25 

INPUT EXPRESSION?LET P=3.14159 

* P= 3.14159 


INPUT EXPRESSION?A*A 
A*A = 

* 25 * 

* STOP * 

INPUT EXPRESSION?A/Z*P 
A/Z*P 

+ 

INVALID SYMBOL (missing \f>, that is, missing terminating blank) 

INPUT EXPRESSION?A/Z*P 
A/Z*P = 

* 0.265258463 * 

* STOP * 

INPUT EXPRESSION?(A*Z )+D*X 
(A*Z)+D*X = 

*43 * 


1000 Fop 1=80 To 2 STEP -1 

1010 TI11=TII-l1 

1020 NEXT I 

1030 Tt11=L 

1040 PETUPN 

1050 PEm THIS POUTINE GENEPATES AN OPEPATION 

1060 GOTO Til] OF 1070,1070,1100.1130,1160,1190,1070 

10/0 GOSUB 1320 

1080 PPINT "EPPOP IN OPEPATION GENEPATOP" 

1090 GOTO 190 
I 100 El I)=Et2l+EII 1 
MID GOSUB 1270 
1120 PETUPN 
I 130 El 1 1=F 12 1-Et I 1 
1140 GOSUB 1270 


* STOP * 

INPUT EXPRESSION?((A-Z)/(X*Z)+P 
((A-Z)/(X*Z)+P 

t 

MISSING RIGHT PARENTHESIS 
INPUT EXPRESSION?((A-Z)/(X*Z)+P) 
((A-Z)/(X*Z)+P) 

* 3.090307949 * 

* STOP * 
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A Classy 8080 Text Editor 


by F. J. Greeb 

1915 S. Cape Way. Denver CO 80227 

(303) 986-6651 

May 6, 1976 [received at PCC June 21st] 

Hello People, May 12. 1976 

Enclosed is a description and source listing of my test editor 
program, along with some comments on conversion of the program to 
other 8080 systems. This material is being submitted approximately 
simultaneously to both the Denver Amateur Computer Society News¬ 
letter, and to Dr. Dobb's Journal for publication as either (or both) 
organization sees fit. As far as / know, all the bugs have been re¬ 
moved from the program. / have been using an earlier version, which is 
essentially the same except for the variable storage locations and tele¬ 
type routines, for several months. 

/ am also including a current description of my system, which 
will probably be out of date by the time you receive this, since / 
keep changing it, and s ome other general comments. 

Keep up the good work. 

Fred J. Greeb 

GENERAL COMMENTS 5-12-76 

TEXT EDITOR SOURCE LISTING—The listing is not 
generated directly by the 8080 assembler. It is the result of 
playing the source tape generated by the assembler into a 
system which has a high speed printer. The playback timing is 
not perfect and some errors do occur. All known errors have 
been corrected, but consider this factor as a potential source 
of errors when implementing the program on another system. 

TEXT EDITOR PROGRAM—The program has not been 
optimized for either memory utilization or speed. The original 
design goal was to use less than 4K, for compatability with 
the assembler. The first version used about 2K, and therefore 
no size reduction was attempted. 

Most commands execute with no noticeable delay. A 


Discs and controllers. A 16-bit system. High speed printer and 
controller. And on and on and on . . . 

PLANNED APPLICATIONS—Indefinite. I designed and 
built the system to learn more about the hardware. That pur¬ 
pose was accomplished: I did learn a lot. As for what I do 
with it, only time will tell. 

m —i ■■■■■■ 1 1 " 1 " * ■ 

THE EDITOR 

The text editor program is a strong/line oriented pro¬ 
gram written in 8080 assembly language. The program is de¬ 
signed for use in the development of source programs to be 
processed by an assembler or compiler, or for general purpose 
ASCII file generation. 29 separate commands are recognized by 
the program 

The editor does not require line numbers to be present 
in the ASCII file. It has the capability to search for and lo¬ 
cate any string of valid ASCII characters in the file, irrespec¬ 
tive of their location within a line. Lines can be added, de¬ 
leted, replaced, modified, or printed with simple input com¬ 
mands. Once initialized, the program contains self protection 
features so that it cannot overwrite itself. 

HARDWARE REQUIREMENTS-The program occupies.' 
approximately 2.5K words of memory, plus memory space for 
the file being edited. An additional 128 words of memory are 
used for the 8080 stack. Peripherals supported are a TV-Type- 
writer, Baudot teletype (output only), and a cassette tape. 
Several of the driver routines for the peripherals are contained 
in the system monitor ROM, and must be supplied externally 
for conversion to other 8080 systems. 

COMMAND FORMAT AND DESCRIPTION-AII com¬ 
mands to the editor are input as ASCII data terminated by a 
carriage return. The only non-printing ASCII characters recog¬ 
nized by the program are carriage return (C/R, octal 15), end 
of file (EOF, octal 1), and Tab (Control T, octal 24). The 
program outputs a greater-than symbol, >, as a prompt indi¬ 
cating that it is waiting for a command to be input. 

The commands recognized may be classified into three 
general categories: Initialization, Edit, and Utility. All com¬ 
mands must be followed by a space and/or terminated by a 
C/R. Additional parameters associated with a command (nu¬ 
merical or string data) must be separated from the command by 
one or more spaces. 

Initialization Commands—The initialization commands 
set the file start address and define the end of file. All ini¬ 
tialization commands request the file starting address, which 
must be input from the keyboard. 

The initialization commands and their results are: 

NEWF Defines a new file location starting at the input ad¬ 
dress, and enters the input mode. 

EDIT Edit an existing file at the input address. Outputs the 
first line or page of the file, as specified by the out¬ 
put mode. 

LOAD Loads a file from tape, beginning at the starting ad¬ 
dress. Loading begins wieh a C/R is input following 
the address input to allow time for manual tape setup. 

Edit Commands—The edit commands are used to display 
and/or edit lines within the file. All edit commands operate 
on, or with respect to, the current line. In most cases, the 
current line is defined as the last line displayed on the TVT 
screen. The program utilizes a line pointer which always con¬ 
tains the starting address of the current line. This address 
changes as different lines within the file are accessed. 

In the following descriptions, a string is defined as any 
sequence, of any length, of valid ASCII characters. Parameters 


long string search or deletion of many lines will cause a few 
seconds' pause. _ 

DESIRABLE HIGH LEVEL LANGUAGE FEATURES 
(personal preference)—Efficient utilization of memory, possibly 
by converting source code to opcode (binary) equivalents, 
rather than storing source code directly. This conversion 
could be accomplished at load time, or by a separate pro¬ 
gram (a compiler?). 

User definable I/O handling, including multiple I/O ports. 
Considering the price of PROM's, I suspect most I/O routines 
will end up in PROM sooner or later, with everyone using 
different techniques and addresses. 

External subroutine call capability, including variable 
transfer capability. 

User definable integer and floating point variable 
capability. 

Several others I can't think of off the top of my head, 
and will undoubtedly remember after I mail this. 

SUPPLIERS—Excellent: James Electronics, Bill Godbout 
(2 week service on custom-programmed PROM's). Major sup¬ 
plier gripe: refund credit slips rather than cash refund on out- 
of-stock items. These have a habit of getting lost when re¬ 
turned for a cash refund. I don't know how the two men¬ 
tioned suppliers handle this problem. Out of numerous orders 
for a variety of merchandise, they have never been out-of¬ 
stock on any item. Poor suppliers: why bother to mention 
them—most have already received an abundance of criticism. 

WANT LIST—High level language. Floating point arith¬ 
metic and I/O routines. Floating point arithmetic hardware 
and/or schematics. Scope driver software using D/A converters. 
Games. Cheap paper tape reader. 

DREAM LIST—Cassette tape controllers, hardware and 
software. High speed CRT terminal, 72 column line minimum. 
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contained within parentheses are optional parameters which 
may be included in the command line. Only the parameters, 
and not the parentheses, are included if the optional 
parameters are used. 

A String Append the string to the end of the current 

line and display the result. 

BOTM Set the current line pointer to the end of 

file. 

C %string1%string2 Find the first occurence of stringl in the 
current line and change it to string2. The 
two string lengths need not be equal, and 
the second string can be null (i.c., a C/R 
following the second delimiter). The de¬ 
limiters (%) may be any printing ASCII 
character. 

D (M) Delete the current line (or M lines begin¬ 

ning with the current line) from the file. 
The file is moved in memory so that no 
empty space exists in the file. M is input 
as a decimal number, maximum value 
= 255. 

F string Find and display the first line in the file 

which begins with the string. The search 
begins with the line following the current 
line and continues until a match is found 
or the EOF is reached. The found line 
becomes the current line. 

I string Insert the string as a new line following 

the current line. The file is moved up in 
memory to make space for the new line. 

If no string is included, or if only a C/R 
is input as a command, the editor enters 
the continuous input mode. In this mode, 
multiple lines may be entered in the file 
by typing in each line followed by a C/R. 
Exit from the continuous input mode is 
accomplished by inputting a null line (C/R 
only). When the continuous input mode is 
entered, the message INPUT will be dis¬ 
played. Upon exiting this mode, the mes¬ 
sage EDIT will be displayed. No prompt is 
issued between multiple input lines, which 
indicates that the editor is in the input 
mode. 

INSM M Insert M lines from memory following the 

current line (M = 1 to 255). The file is 
moved in memory to accomodate the new 
lines. The location (starting address) of the 
new lines will be requested and must be 
input from the keyboard. This command 
is designed for merging together of two 
files, but may also be used to move lines 
within the same file if the destination is at 
a higher memory address than the source. 

If this is not the case, only one line at a 
time may be moved correctly within the 
file. 

LIST List the entire file on the output device 

(TVT or TTV). 

L string Locate and display the first line in the file 

which contains the string anywhere within 
the line. The search begins with the line 
following the current line and continues 
until a match is found or the EOF is 
reached. The located line becomes the cur¬ 
rent line. 

N (M) Move the current line pointer to the next 


line in the file (or move M lines) and dis¬ 
play the new current line. M may be pos¬ 
itive or negative (max. range = ± 255). 

P (M) Print the current line (or M lines). The 

last line printed becomes the new current 
lines. 

PAGE List one page (15 lines), beginning with 

the current line. The current line is un¬ 
changed. 

R string Replace the current line with the input 

string and display the result. 

T Set the current line pointer to the top of 

the file and display the first line or page 
of the file. 

Utility Commands—The utility commands allow display¬ 
ing of the various pointers used by the program; specifying 
parameters to the program; and outputting files to tape. All 
addresses output by these commands are displayed in split 
octal, low order address first, followed by the high order ad¬ 
dress. The utility commands interface with the TVT only, and 
do not putput to the TTY. 

The utility commands recognized, and the functions they 
perform, are: 

CLRS Clear TVT screen 

DISP Displays current line pointer. This command is 

useful for the INSM command to determine the 
starting address of the lines to be inserted. 

DEOF Display end of file address. 

DISM Display current setting of maximum memory 

size. 

SETM Set maximum meory address. This value is pre¬ 

set to 7.5K for use in an 8K system, leaving 
.5K free for later additions to a large file. This 
command requests an address input. 

MODE L Sets the output to the line (L) or page (P) 

P mode. In the line mode, only the current line is 
displayed following a command. In the page 
moade, 15 lines are displayed. The first line 
displayed is the current line. 

OUTM S Sets the output device to the TVT (S) or tele- 
T(C) type (T). The T parameter initializes the TTY 
only (set to Baudot letters mode), and the TC 
parameter also outputs a carriage return/line 
feed. 

RUBO X Sets the rubout character to X. X (initialized 

to ") may be any printing ASCII character. The 
rubout character erases the previous input char¬ 
acter in a command line. Multiple rubouts may 
be used to erase (back up) multiple characters. 
KILL X Sets the kill character to X. X (initialized to ?) 

may be any printing ASCII character. The kill 
character deletes the entire input line. If the 
kill and rubout are set to the same character, 
the kill function will take precedence. 

Q Quit. Exit to monitor. 

TAPE Transmitts the entire file to cassette tape. Two 

subcommands are associated with this command 
and require responses to queries displayed on 
the TVT. The first TVT output is "REMOVE 
TABS?". An input of Y (yes) will cause tabs to 
be converted to spaces prior to transmission to 
the tape recorder. If N (no) is input, the file 
will be taped unmodified. The next output mes¬ 
sage is "FULL OR PARTIAL FILE?". If an F 
(full) is input, the file is terminated by a double 
end of file on the tape. If P (partial) is input, 
the file is terminated by a single end of file 
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followed by an end of record (octal 3). These 
two tape end formats are not used directly by 
the editor program but are for use in an asso¬ 
ciated assembler, where they signal the assembler 
either that more data is required or that the 
end of the source code has been reached. 
Transmission of data to tape begins when the 
C/R following the F or P response is input. 

ERROR MESSAGES—The program will output the error 
message "WHAT?" in response to unrecognizable or improper¬ 
ly formatted commands. In addition to this general error mes¬ 
sage, several other error messages may be displayed. 

On all commands which require an address input, the 
address is tested against the minimum useable file address. If 
the input address is less than the minimum, the error message 
"MIN ADDR (LH) = XXX YYY" will be displayed. This pre¬ 
vents overwriting of the editor program by the file being 
edited. 

If a command is entered which increases the size of the 
file, the new end of file location is tested against the set maxi¬ 
mum memory value. If the maximum would be exceeded by 
the command, the message "MEM OVERFLOW" is displayed 
and execution of the command is inhibited. During the LOAD 
command, the maximum is not tested until after the load from 
tape is complete, and can overwrite data stored above the 
meximum limit. 

During execution of the INSM command, the data to be 
inserted is verified to be valid ASCII data. (Note: ASCII data, 
as defined in this program, is the 64 character upper case 
subset) If a non-ASCII character, other than a control char¬ 
acter recognized by the program, is encountered, the message 
"BAD DATA XXX YYY" is displayed, where XXX YYY is 
the address of the invalid data. Execution of the INSM com¬ 
mand is terminated if this error is displayed. 

If execution of a command, such as Print M, causes the 
end of file to become the current line, the message "BOT¬ 
TOM" will be displayed. This message will also be displayed 
if a Find or Locate command fails to match the input string, 
indicating that the sting is not present in the portion of the 
file searched. 

CONVERSION TO OTHER SYSTEMS-Conversion to 
other 8080 systems should not be exceedingly difficult. Sev¬ 
eral hardware dependent I/O routines, which are contained in 
ROM, are called by the program. These routines will have to be 
supplied by the user. The routines called, the functions they 
perform, and the registers which may be modified by these 
routines are: 

CRLF A register Output a carriage return/line feed 

to the TVT 

CLRS A register Clear TVT screen 

TAPI A, B, D, E registersSingle character input from tape. 

Data returned in A and D regis- 


NEW CLUB: TRACE, IN ONTARIO 

There are about 50 members currently in TRACE (Tor¬ 
onto Region Association of Computer Enthusiasts). It covers 
the greater Toronto-Hamilton-Kitchener areas of Ontario, and 
usually holds meetings on the first or second Friday of each 
month. Address: TRACE, Box 545, Streetsville, Ontario, 

L5M 2C1 Canada. 


ters 

Single character output to tape. 
Data in A register output and 
returned unmodified 
Time delay (approximately 5 sec¬ 
onds) for tape output routine. 
Enter at TMDL+6 for 0.05xC- 
Register value delay 
Address input from keyboard to 
HL registers. Carry set for normal 
return. Carry clear if input error 
occurred. 

System monitor 

ASCII/BAUDOT conversion tables. 
Numerical values of Baudot sym¬ 
bols listed in ASCII sequence. Bit 
8 set for ASCII symbols which 
have no Baudot equivalence, with 
5 LSB's containing the relative 
address of the double character 
equivalence in table BEQV. 

In addition to these routines and tables, a memory area 
for the 8080 stack is required. The program uses a 128 word 
memory dedicated to this purpose. The stack depth require¬ 
ment has not been determined, but 20 or 30 words should be 
sufficient. The two TVT I/O routines (TVTI and TVTO) may 
also have to be modified. These routines use hardware control 
of the 8080 ready line, rather than flag testing or software 
timing. 

The most convenient location for these additional mem¬ 
ory requirements is at the end of the present editor program. 
Only the value of MMIN (Minimum useable file address) 
would have to be changed, and this value is referenced only 
in the address input routine (HLIN). 

SYSTEM DESCRIPTION-HARDWARE May 12, 1976 

Custom design and construction. Based on 8080 microprocessor. 
1.25 MHz clock. Full front panel control and display. 

Memory 

8K RAM, Address 000 000 to 040 000 
128 word RAM, Address 347 000 to 247 2000 (normally 
used as stack) 

51 2 word PROM, Address 340 000 to 342 000 
Peripherals 

TV Typewriter (Radio Electronics TVT-1). Multiplexed half 
duplex type parallel data interface with hardware control of 
the 8080 ready line. No "echo" required. 

Cassette tape mass data storage. Suding type interface with 
software timing (inPROM) at approximately 660 baud. 

Two channel D/A converter. 

Baudot teletype with UART interface. Primarily used for 
hard copy output. 

SYSTEM DESCRIPTION-SOFTWARE 

Monitor (PROM)—Includes load from tape, dump to tape, key¬ 
board input to memory, display memory contents, execute a 
program, and ASCII/BAUDOT conversion tables. 

Assembler—Modified Processor Technology version. Modifications 
include four character (max.) symbols, octal output, multiple 
block data input from tape, unlimited ASCII string (data) 
length, object code output to tape (optional), and source 
listing to tape (optional). 

Text Editor—General purpose ASCII data handling for source 
code generation and modification. Line/string oriented; no line 
numbers required. 

Denver Tiny BASIC—Features integer arithmetic, 120 variables, 
single dimensioned variables, remarks, and a random number 
generator. 

Other programs—File list; memory check; octal editor; LIFE 
(from PCC, Vol. 4, No. 2—September, 1975); hex memory 
dump to TTY; etc. 


TAPO B, C registers 
TMDL A, B, C registers 

HL All except D, E 

MONT - 

LTRS, FIGS, BEQV 


June/July, 1976 Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 Page 15 


163 



'X 

X 


l.o 

X 


X I 

I.n X 


10 

X 




LU 

_I 

UJ 



z 


UJ 




1- 


•3 



■ n 


z 



o 

X 

LO 

LO LO 


4_4 

© 

X 


X 

X 

Z 

M 

CO 


X 

X 

y 

LU X 

O 


X 

_l 


o 

LO 

o 

H 

X 


LO 

X 

l — 1 

z*- 

> 

2 


X 

X 

jl! 


LO 


3 

H- 


UJ 

o 

X 




X 


O 

x 

X 

1— 

i~ 


UJ 

X 


l/l 

X 

X 

X 


X 

X 

X 

H 

2 

UJ 

CL 

t- 

© 


o 

UJ 

1—1 

rn 

>—< 



X 

1- 

D 


1.0 


— l 

X 

h- 

h- 

X 




X 

X 

b- 

l.o 

■_) 

t- 


O 

X 

1.0 

D 



1— 

X 

1— 

O X 



X 

•—i 

CO 

2 

H 

LO 

X 

b- 

1- 

LO 

y 

01 

X X 

1— 

o 

X 

ill 

1.0 

X 

_i 

UJ 

2 

UJ 

UJ 

UJ 

3 

X 

X 

-J 

X 

1- 

uJ 

LU 

z 

z 

O 

y 


LO 

o 

1- 


l— 

X 


L0 




b- 


Q 

•0 









►—4 



2 

X 

2 







ill 

X 

1- 

IX 

h- 

1—4 


y 


•o 



X 

A 

3 

1- 

D 

h- 


. 

"r 

+ 

ill 



•.0 

u. 


O 

ill 

X 

X 

V 

*n 





1— 

X 







I 

X 



3 


X 

X 





L0 

i: 



o 

1—4 

■J 

X 

x 


M 



i_i 

X 

X 


X 

«T 

X 

o 

o 


N 

LL 

LL 

ill 

ill 

X 

X 

O 

Q 

X 

2 

o 

3 





X 










• 0 


X 

X 









Jl 


K 

(J 








• N X X 
. Z X H 

1 *-> X 01 























0 

X 



b- 

X 


H- 






























> 

L0 

X 



Z b- 

2 


2 






























0 X 




0 z 

0 


5 



X 















X 





t- 







0 

3 

X 



0 0 

ill 


0 





















X 


D 






X 

X 

O 




CJ 0 



0 



u £ 

1- 














X 



X 


X 

10 

> 




X 

1- 

o 

O 



CJ 

L0 






0 



X 











o 



X 


K 

10 X 




h- 

X 

0 

h- 



z 

X 


Z 



b- 0 

X 



0 





X 





X 


X 


H 

X 

0 

X 

t— 


X 


z X 





Z X 

•0 





0 O 

h- 






X 

X 

•3 

X 




X 

X 

X 

X 


X 

L0 O 

X 

•O 


X 


3 

X 

3 

L0 



0 CJ 

X 

X 

3 



Z 40 

0 


to X 

0 



O 

X 

L0 




*-< 


o 

X 

o 

b- 

•J 

X 



h- 


o 

X 

n 

X 



0 X 

X X 

( L 

0 




0 


•3 


1- 


o 


LO 

z 

X 

X 

X 

h- 

t- 

y 

X 

h- Z '3 

X X 

X 

to 




(J 

X 

0 

i 1 



0 X 

L0 X X 

5 



X z 


(3 

X 

0 



h- 

X 

L0 

o 

L0 L0 

X 

X 

X 

o 


X 


Z> X 

X 0 

X 

X 

X 

H 




X 

X 



CJ CO 

I b- 

0 X X 

X 


X 

X 0 0 

X 



X X U_ 

L0 Z 

D 

1 

X 

z 

X 


Zy 

O X 

X X 


X 

X 

o 


z 

X 

X 

X 




0 <0 



•0 0 


3 

0 

0 

X 

3 



X 

X 


LO X O 

X 

X 

X 



t- 

X 

(J X 


H 

b- 

h- 

z 


y 


LU 

L0 



b- H 


0 

h- 

X X 

0 

X 0 

X 

X 


X 

h- 


0 

X 


X 

LL X 




X 

X 

X 

X 


Q X 

2 





~i 

►- 





z z 

b- b- 

h- 

z 



X 0 



0 




X 


X 

X 

X L0 

X 

X 

X 

►—4 

X O X X 

X X 

CO b- 

X 

X 

X 

X 

L0 

-J 

CJ 

o 

X 


X 

X UJ 

z X 


UJ 

X X 

X X 0 

X 

X CO 

X 

X 



b- 

X 


X X 

4 

•—1 

1—4 



r— 

i_i 

X X 

0 X 

z 

I—I 

1—4 

1-4 

X 

O 

X 


0 


X 


0 X H 



1-4 

0 

0 

N 

o 




X 

3 


1- 

X X 




X 

X X 

L0 


h- h- 

CO X 

X 




o 

O X 

0 


X 

X 

LU LU 

Z 

0 

LU 



H 

X 

X 

CO 


LU 


0 

X 

1- 

_J 


H 

X 

1— 

o 

X 


X 



X 

X 

H 

X 

X 


1— 

1-4 


CJ 

b- 

X X 

X 

X 

X 

b- X 

H- 

b- X 




X 

X 



t- 

X 

X 

1— H 

L0 

X 

L0 

X 

X h- 

b- 

2 

1- b- 

b- b- 

CJ 

2 

L0 

2 

X 

1- 

X 

h- 

1 

X 


O CJ 

0 b- 

K 

CJ 

L0 2 

L0 

X L0 

b- 

b- 

b- 

2 

CJ 

X 

X 

D 

X 

z 

X X 

X 

3 

X 

X 

XXX 

►“4 

X X 

X X 

z 

0 

X 

0 

L0 

X 

0 

2 

'•w' 

X 

0 


0 X 

0 

z 

X 0 

XXX 

X 

X X 

0 

Z 0 

0 

O 

X 


L0 • 3 

h- 

*-> 

b- 

X 

U LO 

•3 

t“ 

L0 1 3 

L0 <3 


*-> 1- 

3 


0 

X 

3 

n 

L0 

b- 

H-. f-4 

0 0 

o 


1— »-> 

K- 

Z X 

L0 

a 

L0 

*■> 

4~“4 

X 

X 

X 



X 














b- 













ClJ 








X 



3 



























1 








X 

X 

z 

X Z 


X 


h- 

X 

X 

X 

H 





X 

L0 






o 


X 

o 


z 


X X 


X 


0 




X 

K 

*—• 



u 


X 

2 

X 

X 

3 2 

2 


0 

X 

o 

X 

ill 


in 

X 


X 


0 t- 

X 


«_• 


h- b- 

H 



0 



X 

% 

_■ 

h- 

■% X 

X 

h- 

X 

I 

X 

Q 

2 

X 

, 


X X 

X 

X 



i 



X 


1 X 

X 


ill 

M 

X X 


LU 


X 




X o 

u 

X 


LO 


3 

X h- 

b- 

1- 

X 1— 

ft 

R 

I 

I- 

H 

b- 

h- 

X 

X 

♦H 

UJ 

X 

h- 

D 

E 

+*t Z 

1- 

0 

H b- 

H 

z z 

X 

h- 

X 

b- 

X 

X 

»r 


X 

X 







X 

X 







1- 






0 



0 













X 

X 

►-4 > 



1—4 

N 

X X 

X 

X 

-4 X 

X > 

x 


1—4 

r-j 

X 

z> 


(J 

z> 

1—1 

0 

X X 

N X 

0 

X 


t_, 

N X 

H 

X 

X M 

X X 

> 

X X 

X 

X O LL 

N 

X 

Z X H 

I 

X 

> X 

X 0 

Z N X 

2 

X 

o 

~l 


o 


X 

z z 


X 

2 

X N 

X 



ill 

X 

z 

2 

2 

O 



(J 

X 


*-> 

o 


X 01 

-J 

o 

Z X 

0 Z 


y 

l_l 



2T 

L0 

b 


2 

10 

*-• *-• 

y y> 


4-4 

0 *■> 

0 


2 

0 

o 

*-> 



z 









X 



X 






ri 









0 





2 






0 









O 



b- 






CJ 









0 





0 






0 









b- 



X 















X 





ill 






X 









L0 



z 





•* 

* * 









K 





h- 






b- 


3 

cm 




H 


H 

CiJ 

’t 




0 


CM 


H 

0 

CM 

’t 

rl 



40 


CM 


rl 

H 

H 


H 




H 


H 


H 



H 


•0 

0 

0 




0 


0 


rH 

H 

0 

•0 

H 



0 


C' 


rl 

H 

’t 


H 




0 


•0 





H 


0 

0 

40 




0 


•0 


0 

•0 

0 

0 

40 



0 


0 


'0 

0 



40 




•0 


0 


o 



’t 


in 

CJ 

in 



■H 

•:-.j 

'•£» 

0 


in 

rl 

CM 

in 

CM 


•D 

111 

0 

'0 


r- 

r-- 

r- 

rH 

ui 




CM 

rf 

CM 

'£• 

r-_ 



0 


r-- 

0 

’t 



M CJ 

H 

CM 



H 

0 

’t 

N 


0 

LI 

CM 

CM 



ui 

0 

0 

’t 




n 

CM 

rl 

0 

0 



rH 


•0 

H 

0 



H 

n 

rH 

0 


0 

0 

rH 

0 

0 


rl 

M 

H 

•0 


0 

0 

nj 

0 

0 




0 

0 

0 

0 

•0 

in 

rl 

U“i 

\r> 

H 

in 

lil 

n 

•O 


CM 

■0 

CM 

r-- 

CM 

H 

in 

in 

H 

^0 

<0 

CM 

•O 

CM 

K 

CM 

,-.,J 

in 


CM 

r-w 

^£* 

II 

CM 

'•£) 

CM 

CM t-£» 

CM 

c.j 

I*' 

0 

H 

r J‘ 

H 

H 

L“J 

r- 

r-- 

H 

r- 

0 

L-1 

'J 

’t 

H 

H 

•t 

r-- 

r- 

H 

N 

0 

in 

X 

in 

H 

CM 

r-- 

'£• 

r- 


H 

r. 

0 

IS- i-.J 

■'M 

M 

i-1 

H 

CvJ 

0 

10 

fO 

0 

rl 

M 

M 

M 

M 

CM 

0 

0 

M 

M 

0 

H 

M 

M 


iA 

CM 

0 

•0 

M 

0 

•0 

CM 

H 

0 

rl 

il 

I'O 

h n 

M 


LI 


K 

r0’t 

-t 

’t 

’t 

r-- 

CM 

hi 

'•£> 

N 

rH 

T 

t-0 -H 

CM 

in 

0 

(A 


CM 


N 

H rf Ifi © 

i A ' £• 

0 

M 


LI '■£) 

H 

iA '£' ^£' 

'£' 

'.fl 

f'w 


'£» 

'•£' 

'•£' 

N N 

N 

r- 

r-- 

N 

0 

•0 

0 

0 

■H 

rH 

rH CM 

CM 

CM 

(A 

iA 

1 A- 


-t 

-t 

LI LI LI 


•£» '.£< 

r- 

r-- 

IS. 

r - r -- 

•0 

40 *0 *0 

m 

-I 



CM 

CM 

CM 

CM CM 

CM 

CM 

c.j 

CM 

ro 

M 

(A 

M 

lO 

n 

rl (A 

(A 

\A 

(A 

iA 

A I'O 

(A 

M iA 

(A iA (A 

iA 

i A CO 

ro 

iA 

M 

I'O I'O 

•0 

•0 '0 0 

•0 40 40 

•0 

0 

'0 

0 

0 40 

0 

•0 

•0 

o 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 0 

O 

0 

0 

•0 0 0 

0 

•0 0 

0 

0 

•0 

0 O 

■•H 

H H H 

H 

»H 



0 


0 

0 0 

0 

•0 

0 

0 

•0 

0' 

0 

0 

0 

0i 

0 0 

0' 

0' 

0 

0 

0 40 0 


0 

0 0 0 

0 '0 0 

Q 


© 

0 40 

•0 

© © © 

•0 

0 

•0 

•0 

•0 

•0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

•0 

0 

•0 

0 0 

0 

0 

'0 

0 0 0 

0 

•0 © 

0 

0 

0 

«0 4© 

'0 

0 '0 '0 

•0 

40 

40 

<0 


IS. 

C0 


3 

H 

■0 


•0 

'3 



rH 


rH *0 rH 

H 

•0 10 


rH 

rH 



’t 


© © y 

<0 

•0 >0 


H 

•0 



rl 


40 40 CO 

>0 

•0 -0 


•0 

•0 


0 

•H 


r -. «0 h 

H CO 

LI «0 '•£• 


N 

'£» 


T t 

LI 


rH N LI 

•0 L! 

rH r-- x 

0 

X 

•■£1 


•0 

rH 


•0 CO H 

•0 0 

0 CO CO 

0 

•0 

•0 


■•O 

\T> rf 

’T 

CM CO LJ 

' D CM 

' 0 CM CO 

<£• 

CM 1 - 

•:m ’f’t 

•0 

r-- 

H CM m 

•0 40 H CM 

r -- H 

N 0 40 

•0 

r - ■ £• 

•0 40 O 

r- 

0 

M 0 

•0 

CO CO CO 40 

CO CO 

CO CO CO 

•0 

0 4‘M 

CO 0 0 

rH 


LI 

IS. 

•:m co 


N 

CM 

LI 

'•£« 0 

co in *0 

CO 

Li 

0 rH 

rr in 

X 

H 

H 

CM C M 

CM 

CM 

CO 

CO iA A- 

"* 

’t 11 

Li 

Li 


t£' 

'.£< '.jj 

lfl 

•0 

•0 

>0 40 

© © 

0 

0 

40 40 

•0 

0 40 

0 

40 0 

•0 

© © © 

H 

rH 

H H 

rH 

H 

H 

H 

rH H 

H 

H rH 

H 

rH 

rH 

H 

■H rH 

H 

0 

40 

0 40 

>0 

■0 

'0 

0 0 40 

40 

40 40 

•0 

40 0 0 

© © 

'0 

'0 

'0 

•0 '0 

'0 

10 

40 

•0 

'0 40 

•0 

© © 

•0 

•0 

'0 

0 

'0 0 

•0 



X 






















UJ 


X 


in 
























ill 


X 










X 

X 











© 


ill 


_i 





X.’ 





X 

ill 









L0 


2 


X 


© 





O 





H- 










V 






y 





X 





L0 

2 







1 - 

X 

2 


b- 


LU 


X 





I- 





rn 


X 


2 




X 

2 

X 

X 

3 

in 

X 


-i 





LO 





iT 

X 

2 


X 

1 - 



2 

X 

X 


X 

UJ 

X 



•fl 


LO 





K 


X 

2 



X 

rn 



'0 

2 

(XI 

CJ 

2 

X 

X 


> 

r-- 

1 - 

X 


h— 


X 

3 

X 

X 

1—1 

h- 


X 

iC 



X 

2 



1—1 


h- 


_i 

iT-, 

_i 

2 


X 

X X 

O 

X 


X 

X 


•X 

X 



X 

© 

X 

II 


(j 



X 

H 

X 

rn 

LO 

LO 

X h- 

X 

h- 

'X 


L0 


L0 


X 



O 

X 


O 

■Vi 

ill 


2 


b- 

H- 

2 


1—1 

i i 

3 

i 1 


n 


z*- 


1 - 

in 


h- 


40 

ill 

1 - 

LU 



X 


3 

_i 

43 



X 

X 

X 

X 

h- 


X 

X 

3 

X 


3 

h- 


z 



•r 

2 

LO 

lfl 

o 

c« 

rH 



X 


X 

X 



0 

>r 

X 

L0 


X 

3 

2 

•X 

X 

UJ 


X 

l/l 

rH 


X 

b~ 


1 — 

X 

b- 

(E 

X 

b- 


2 

X 

l- 

L0 


l— 

X 

X 

2 

2 

1 -" 

2 

X 

•X 


Zy 




X 

I 

X 

I 

X 

X 


X 

-j 

0 

X 


3 

2 

i 1 

2 

3 

'I 

.3 

0 


X 

H- 

X 

ill 


LO 

!_) 

•/I 

'X 

Ij 

L0 


2 

0 

U 

2 



rn 

L0 

O 


LO 

© 

o 

'0 

1—1 

1- 

l~l 

2 

V 







X 









CJ 




X 

i/i 

X 


l— 

O 

X 







X 



L0 









X 

•0 

X 

b- 

rH 

(J 

H 







X 









X 



X 


co 

X 

o 

2 


•/I 

C'- 

X 

z 

0 


X 

ill 

V 

LO 

ill 

X A '0 

2 

UJ 


ill 


1 - 

X 



ih 

c> 

X 



X 

\ 

X 


ill 

H 

X 

X 

X 

l- 


1— 

rn 





•X 

l_J 

2 


3 

£. 

•r 

X 


rH 


3 


Q 


2 

X 


3 


z> 

1 - 

i 1 

UJ 

2 



h- 

^—4 

’T 

X 


rn 

LO 

■£ 

V 

•X 

X 

•X 

2 

X 

2 

0 

X 

O 'X 1- 

ili 

01 

ill 

rn 

X 


►—1 



X 

2 

1 - 





















ill 

2 

2 


4_l 

rn 









ill 

X 


X 


X 

X 

X 

2 


I 


X 

X 

o 

X 

X 

2 

rn 

rn 

'X 

rn 

•r 

X 

'X 

rn 

X 

X 

rn 

X 

rn 

X 

X 

X 



LO 

►H 


b- 

rH 

o 


rn 



H 

*> 

b- 

X 

1 — 

x 

X 

X 


•X 

> 

•I 

■X 

X 

H 

•X 


v 

b- 

b- 

LO 


LO 


X 

2 

t/l 

2 

U1 

X 

L0 

X 

X 

0 

X 

0 

y 

•X 

•X 

•X 

3 

y 

X 

X 


r-i 

X 

b- 

X 

H 

















X 




iu 

X 

X 

> 

LO 

X 











2 


b- 






I 


h- 

zz 


1 - 

0 

LO 











O 


X 




M 


X 


















ill 


2 






CJ 


* 

* 

if 

if 

if i 

f it- + 











*-* 


CJ 




* * 

■it 

LO 



lx 


X* LU 

m lit iii hi y 


X 

LU 


X 

L0 

2 



UJ 












'X 






01 

4—1 

2 


2 

Ci 

4—1 



2 

10 




1~1 







X 




X 


01 


4—1 

LO 

rn 

2 

1- 



4—1 





2 



LL 


X 


Ui 



X 

0 


X 

2 

H 

1,1 

1- 

2 

3 



1- 

y 


X 


7.. 



Lt. 


UJ 




to 

X 

0 


X 

4—1 

3 

2 

0 'X 

© 



3 



1 1 


• ' 


b- 

X 


1- 


LL 



b- 

•X 




O 

■X 

0 


X 

I 



•-J 


h- 







2 

LL 

U 


2 

z 




u 

u. 

2 

LL 



0 

10 

LL 


LU 

•T 

"1 

2 


J 



rn 

•J. 


h- 

•X 

rn 

X 


«x 

i —1 


2 


X 

I 

b- 

iJ 


X 

J 

2 

L0 

4-H 


X 

u 


O 

X 

LL 

|0 

J 

•0 

0 

i t 


i_i 

I 

ij 

I 

•X 

i_i 

X 

2 

X 

<E 

in 


LiJ 




1. 1 

i -1 

LL 

CJ 


2 

LU 

X 

1 - 


2 

X 

i_i 

i_j 

i_i 

X 

X 

2 

V 

•X 

X 

X 

•0 

LL 

X 


0 


2 . 







>T 

X 

LL 


LL 


LL 

l_4 

•X 


IX 

u. 

4 4 

1 - 

2 


«r. 

0 

b- 

LL 

!• 

U 

h- 


X 

X 

Li 



3 

i-1 

X 


'L 


X 

X 


•L 





X 

UJ 



1 1 

3 

x‘ 

X 

rn 

ll 

3 


X 


2 

U 

LL 

UJ 

rf 

L0 

rn 

LL 

LU 

■H 

X 


»x 

u 

X 

4 J 

ill 


Lit 

UJ 

rn 


0 

10 

X 

X 

UI 

X 

L0 

X 

L0 




•I 

01 


•X 

LL 




X 

•X 

LL 

4-H 



U. 


4-H 

J 

0 

LL 

2 


X 


X 

X 

X 

X 


U. 

LL 

O 

UJ 

lL 

•X 



UJ 



b- 

O 

2 


«r 



j- 

LL 

l_l 

X 0 

X 

2 

•X 

LL 

O 

X 

LL 


0 


ill 

b- 

1 - 

I— 

h— 

LO 

If 

•r 



to 

1 - 




O 


'X 

3 


Q 


UJ 

LL 

•X 


0 


IU 

li 

Lil 

IU 

UJ 

LL 

4 j 

111 

in 

ill 

III 


X 

A- 

X 



y 

rH 

X 

* 

01 

UJ 

01 


b- 

X 

'3 

'X 

L0 

•X 

b- 

X 

01 

LO 

X 

LL 

L0 






01 






01 

















3 





0 


I 




0 











rH 






X 

b- 

01 


X 

rf 

X 

O 

I 


X 

H 

X 

i— 

X 

X 



3 


3 


+ 

3 

X 

3 

X 


2 


til 

’l- 

I 

2 

01 

1- 

i '1 

H 

X 

2 

L0 

X 

2 

I 

X 

0 

2 


z 

2 

\ 

•r 


2 



O 

X 

0 

,, 

O 


1- 

■I 

H 


0 

«. 

I - 

X 

X 




X 


X 



X 

i 1 

X 

X 




•X 

•X 

2 

OQ 

u 


Z 

«r 

2 

X 

•0 

X 

3 


0 

X 

•-* 

X 


•I 


X 

01 


3 

X 

0 

iZj 

0 




X 

X 





X 


0 




0 


0 




X 

0 

Q 



-J 

X 

rn 

•r 

4-H 

X 

4-H 


4-H 

■X 

rn 

_l 

N 

X 

'X 

> 

rn 

X 

0 

X 

> 

4-H 

(J 

X 

X 

X 

X 

4-H 

X 

I 

Z-- 

i— 

z> 

■X 


N 


b- 

z> 

«r 

2 

I 

0 

40 


I 

•r 

I 

O 

X 

2 

■r 

I 

I 

40 

X 

X 

01 

2 

L0 

2 

0 

C' 

3 

2 

L0 

2 

0 

3 

L0 

X 

2 

2 

X 

0 

LO 

y 

0 

3 

0 

01 

X 

X 

X 







X 




























X 







I 










0 




3 







N 







i 1 










<3 




O 














3 










3 




V 






it 

4 

$ 






Z 










z 




X 











r- 


3 


H 


•H 

Ll 

3 

'0 

40 

CM 


CO 

A 

•fl 




10 


f- 

3 

3 


3 


'•£' 




0 


3 


Lfl 

CM 

3 

3 



3 


3 



CM 

Lfl 

3 

3 


•0 

■c 









A 


H 


H 


3 

in 

3 

’t 

•0 

•0 


>0 

Q 

•0 




0 


•0 

3 

3 


3 


■0 




•0 


3 


•0 

■0 

3 

3 



3 


3 



•0 

'0 

3 

3 



* 









CO 


© 


•0 


■0 

•0 

40 

CO 

•0 

»0 


•0 

40 

'0 




•0 


•0 

'0 

40 


'0 


•0 




•0 


•0 


•0 

0 

0 

'0 



10 


•0 



•0 

•0 

•0 

•0 


0 

LL 









•0 

r- 

iA 

CM 

r- 


'0 

N 

3 

>0 

f- 

CM 

'£> 

3 

in 

Li 




3 


3 

LI 

CO 

3 

A 

3 

3 




CM 

3 

3 

3 

A 

'0 

r-- 

A 


•0 

L"' 


Ll 


3 

•0 

Ll 

IT' 

f- 


•0 

'04 









•0 

N 

A‘ 

A 

’!■ 


Ll 

r- 

in 

CM 

•u 

•0 

C-- 

r- 

A 

3 




r-- 


f- 

Ll 

in 

•0 

A 

CM 

'0 




CM 

>0 


3 

>0 

CM 

Lfl 

A 


©1 

Ui 


L"' 


A 

CM 

A 

U" 

Lfl 


A 

3 









CM 

•0 

'0 

'0 

0 


•0 

cn 

40 

CM 

•ll 

3 

'0 

•0 

0 

3 




•0 


3 

Q 

•0 

•0 

•0 

•0 

CM 




CM 

<0 

6 

•0 

CM 

0 

0 

•0 


•0 

<0 


0 


'0 

0 

3 

'0 

0 


3 

0 









H 

'£4 

CM 

■£> 

CM 

r- 

•:m 

3 

CM 

1 n 

3 

Ll 

'£• 

Ll 

Ll 

Ll 




CM 

111 

3 

•:m 

CM 

'-fl 

CM 

Lfl 

in 




CM 

'fl 

CM 

Lfl 

in 

CM 

CM 

CM 

N 

Lfl 

CM 

3 

CM 

Lfl 

Lfl 

CM 

UI 

CM 

CM 

3 

3 

X 









'£' 

r- 

'£• 

r- 

X 

ii 

'£« 

3 

A 

3 

A 

3 


3 

3 

3 




CO 

■0 

CM 

Ll 

3 

r- 

•fl 

'0 

3 




3 

r-- 

Lfl 

•0 

3 

•0 

3 

r- 

3 

40 

Ll 

3 

A 

r- 

r-- 

CM 

3 

A 

in 

© 

CM 

3 









© 


40 

10 

•0 

CM 

•0 

<0 

O 

CO 

40 

CO 

•0 

CO 

CO 

CO 




CO 

CO 

•0 

'0 

10 

•0 

•0 

0 

CO 




CO 

•0 

'0 

0 

CO 

iA 

0 

•0 

3 

>0 

•0 

•0 

•0 

3 

co 

CO 

CO 

0 

0 

CO 

>0 

X 

3 

•0 

•0 

'0 

'0 

•0 

•0 

•0 

•0 

40 

in 

Ll 

•0 

CM 

in 

lfl 

3 

A 

r-- 

•J 

L"' 

•0 

CM 

tt 

•0 

CO 

CO 

CO 

CO 

lfl 

K 

CM 

Ll 

'0 

CM 

Ll' 

r- 

CM 

CM 

CM 

CM 

Li 

f- 

CM 

A 

r- 

CM 

in 


3 

CO 

Lfl 

N 

CM 

CO 

in 

'0 

CO 

Lfl 

3 

CM 


•0 

10 

40 

■0 '0 

‘0 

'0 

•0 

'0 

•0 

40 

rH 

•H 

H 

3 

CM 

CM 

CM 

CO 

CO 

A 

A 

3 

in 

in 

Ll 

Ll 

in 

in 

in 

•fl 

ifl 

r-- 

r- 

r-- 

r- 


•0 

'0 

•0 

•0 

40 

3 

3 

3 

CM 

<’M 

CO 

CO 

CO 

CO 

CO 

CM 

A 

A 

3 

in 

in 

in 

'fl 

Lfl 

O 

01 

H 

rH 

H 

rH 

H 

■H 

rH 

rH 

H 

rH 

rH 

rH 

H 

■H 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

•11 

CM 

CM 

CM 

4'M 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

C-J 

CM 

•:m 

CM 

CM 

CM 

CM 

© 

'0 

•0 

|0 

•0 

'0 

•0 

'0 

•0 

40 

'0 

•0 

•0 

•0 

•0 

© 

*0 

0 

40 

•0 

•0 

'0 

•0 

•0 

10 

'0 

■0 

•0 

•0 

•0 

•0 

40 

0 

•0 

•0 

•0 

•0 

© 

•0 

10 

0 

•0 

40 

0 

•0 

•0 

•0 

'0 

•0 

10 

40 

•0 

10 

10 

0 

•0 

i0 

10 

|0 

10 

40 

C'J 

10 

© 

•0 

40 

•0 

O 

•0 

'0 

>0 

•0 

'0 

•0 

'li 

40 

10 

'0 

'0 

40 

40 

40 

•0 

•0 

'0 

O 

40 

•0 

'0 

'0 

•0 

•0 

•0 

'0 

•0 

'0 

•0 

'0 

'0 

•0 

•0 

•0 

'0 


© 

'0 

■0 


'0 

'0 


•0 

'0 

'0 

40 

40 

0 

•0 

0 

■0 

•0 

'0 


'0 

'0 

•0 

•0 

•0 

•0 

10 

10 

'0 

'0 

•0 

'0 

•0 

•0 

‘0 

•0 

'0 

40 

'0 

'0 

'0 

'0 

<0 

•0 

'0 

10 

•0 

0 

'0 

>0 

•0 

•0 

1 © 

•0 

•0 

'0 

'0 

•0 

10 

•0 

0 

'0 

0 

■0 

■0 

•0 

0 

10 

•0 

•0 

•0 

■0 

0 

•0 

0 

0 

0 

'0 

•0 

'0 


Page 16 


Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 


June/July, 1976 


164 









K 

1- 



CL 




n 







-w 










_ i 

0 



'X 




h* 















LL 


LL 

LL 



IL I. 



1- 

i—• 


"‘I 



ill 






u. 




UJ 


J~ 

h- 



UJ Lj 

X 


*~l 

7 


U'l 





0 




LU UJ 



1- 



3 



h- 

i”l 


l~1 

n 


X 



—1 






1- 



>z 

z 

I/I 

o 

O 



Z 1— 



CD 






7“ 






til 




4—4 






HH ~1 

i 







UJ 







H 

I_j 



o 

•X 

UI 

Z LU 



> J 

z 

LL 

X 

1- 



UJ 

in 

X 

Ul 

h* 







h- 

LL 

-J 


UJ Z 



LL LU 

X 

•r 


1—4 


X 


*T 

in 


l~l 




LL 

-J 




IL 

X 

x - 


LL 

“1 

J 

T 


& 



n 


i T 

r—i 

7» 





4— 1 1 



UJ 


LL 

X -1 


UJ 

X LL 

LU 

•x 

ill 

UJ 


ll 

7" 



X 





UJ H 


•-L 

z 



Cj 


K 

z 



in 



—1 





u. 


X 


*£_ 

JX_ 


-1 

4—1 

UJ 

o 

Ij'l UJ 

u 

CD Z 

X 

_J 


0 


X 

~ 

n 

X 

X 


X 



•— 1 


UJ 

Ll 

X 

<0 

H 

1- 

z 

•z 

i-i UJ 

1—4 

i 1 


1— 

X 


ul 

X 





n 


-1 


z 



UJ 


Cl i 

1 — 1 

LL 

z 


X 

Cj 










7- 



X 

4—1 

UJ 



LL 

•r u. i 

(— 

•z 


1— 

h— 

H-t 

1- 




h- 


h- 

~i 




1— 


H 

Li 

•X 

1- 

z 

UJ z 

_l 

X 

X 1- 

10 

■» 

J 

►—1 

0 

X 

1- 

UI 


I/I 





UJ 


_i 



UJ 


x _■ - 

□ 

o 

O UJ 

LU 

o 

X 

X 

1 1 

n 

UI 

UJ 

~ 

X 


X 

III 

0 

in 

-J 

>_i 


—1 

I/I 


o i 

LL 


X CD 

1- 

o 


UJ 


X 

0 

h- 


h* 

X 

i i 

in 




X 







h- 






H 


















L-j 







UJ 












y— 






z 

o 


rH 




in 










LL 

LL 

z. 

UJ 

LL 


h- 

ui y- - 

1 

CD 

1- 

+ 

H 

i~i 



K 









1- 

_• 

*-< 

Lj 

t- 


m 

LL O 

z 

X 

z z 


X 

UJ 


UJ 


7- 




>T 






LL 


Z 


»—• 

_l z 

c_ 

LL 

X 


J 1 

_l 



LL 

. 


h- 


T 


fi 


x 


LL 


LL 

a: 

_l 

U X 1 

0 


•1 X 



X 


0 

►-* 

X 


U'l 



X 

z 


c 


i~i 





_1 

— 

UJ 

Ci 















_l 

Cl 

1- 

■z 

_l 

■z 

N 

_l LL 1 

L— 

z 

_l > 

1—4 


X 

1- 

J— 

1 


M 



M 

X 

X 


I 



l—l 


LL 

Z 

X z z> 


I o 

X 

o 

l— 

LD 

0 

I 

l~l 


M 



X 





h- 

-J 

_J 

o 

*-> 

o •-> o 

UI 

-J z 


4—. 

in 

X 

X 

-J 

7" 

o 





in 




>—i 





LD 

L- 






K 












X 







LlJ 

y 

















UI 

u 




LL 

Ui 

o 





0 








7” 





L_l 







UJ 






■•I 







h- 



+ 

* Hf 





* 


•* Hr 

LL 






z 







in 



ui 

in 



Ul X 









m 

X 



X 


X 















U'l 

X 



X 


X 

X 






U'l X 









X 

I 


X 

H 


0 

X 



X 



X V- 


X 







X 

10 

X 

0 

10 


Ci 

I 



0 



X z 


0 







0 


X 


X 


X 

10 



X 



Ci 

y- 

0 







■ ~l 

X 

1-4 

X 

X 

Ul 




X 




c 0 

x 

z 







X 

X 

v 

0 

X 

Ul 

y- 

h- 



X H 



X X 

X 









1-4 


X 

I 

X 

z 

z 

X 

•X 

X 0 




y- 

H 



X 


X 


X 

V 

z 

X 

'0 

X 

X 

X 

0 


O Z 

ri 


X X 

D 

z 



0 


0 


_1 


X 

in 


0 

X 

X 

c 

X 





c 

X 



l_l 


0 


X 

z 

z 


X 

0 

X 

X 

X 

0 

X X 

X 


1— k—* 


X 



z 


z 


I—4 

X 


U'l 

0 

X 

0 

D 


X 

4—4 4—4 

0 


X 

X 

X 





X 


z 

X 

Ul 

X 


10 

i0 





X 

Ci 

in 

0 



X 


X 

2 

Ci 


X 

X 

1— 

X 



X 

1— 

X X 

z 

z 

X H 

X 

0 



0 


Z 1 

1—1 

X 

h- 

0 

X 

z 

z 

y- 

i— 

10 

m 

Z 0 

10 

4—4 

0 X 

X 




X 


•-* 1 

h- 

l_l 

X 

H- 

z 

0 

4—4 

X 

X 

2 

X 

0 O 

X 

y- 

x in 


I*- 



X 


X 

_l 

X 

0 

m 

0 

0 

X 

0 

0 

1—4 

h- 

0 X 

X 



X 

X 






□ 













0 


0 







X 






K 





M 


X 



0 









■H 








+ 



X X 

X 

X 

X 


H 

m 

1- 

0 

H 


+ 

H 

X 

iii 

X 




1- 


tii 

X H 

z 

z 

Ci 


U'l 

X 

0 


z 

y 


X 

X 

z 

y- 

jr 



U1 


z 

0 Z 

k-4 

1—4 

0 


►— 1 

X 

7 

X 

X 



X 

4—4 


z 



M 

_J 


X 

h- X 

X 

z 

z 

X 

X 

0 

X 

z 

1—4 

X 


z 

V 

Ul 

X 

X 

I 

•H 


I 

z 



X 






z 






y- 







z 

Ci 0 

0 

X 




X 


0 

0 





X 

0 






1—1 

X X 

1- 

h- 

X 

X 

N 

X 

X 

□ 

X 

■> 

1—4 


X 

H 0 

X 

■> 

V 

4—4 

1 i 

X 

0 

I I 


X 

0 

X 


X 

z 


I 

0 

X 

0 

K 

X 

X 

0 

Z 

X 

N Z 

0 


x in 

X 

0 

X 

0 

►n 

10 

*■> 

X 

X 

z 

10 

*-> 

m 

X h- 

X 



O 

X 

0 

X 


z 







X 






in 





0 

X 

0 

m 




X 


>—1 

h- 





X 

h- 






H- 

X 

►*> 

X 




X 


z 

X 






m 







0 






X 



_J 






X 






* 

if 1— i 

f * 

* * 




h— 

* 

* * 

X' 





* * i 

y z 







H rH 

H 

rH 


'D 

0 iA 

■H 


CM 

H 


rH 



■H 


CM 


H 


H Q 

rH 

H 


0 

A- 0 

rH 


0 

rH 


H 



0 


0 


rH 


0 0 

0 

0 


0 

iA 0 

0 


0 

0 


0 



0 


0 


0 


H M 

0 



in 

0 ID 

in 

rH 

0 

r- 


in 


0 

r- 

■A 

0 


0 


’t 

L0 



0 

CM H 

in 

rf 

CM 

-t 


un 


CM 

iA 

H 

CM 


i/i 


O 01 

0 

0 


’H 

CM 0 

0 

0 

0 

0 


0 


■H 

tA 

rH 

0 




CM M 

01 

CM 

r-- 

CM 

bn rn 

CM ‘ D 

'•D 

CM 

CM 

rH 

CM 

■D 

X 

CM 

'D 

CM 

f- 

CM 

rH 

rf Q 

r-- 

in 

■u 

0 

rH 0 

in n 

r- 

ll 

•D 

rH 

bn 

N 

r- 

rH 

f- 

0 

in 

•D 

rH 

0 iA 

0 

0 

CM 

M 

m rn 

0 rH 

(A 

iA 

0 

rn 

0 

H 

i-i 

m 

ri 

M 

CM 

0 

ll 


bn 0 r l 

(A 

iA ll 

•D 

H 

CM 

bn 

0 

iA 

iA 

iA 

M 

M ' D 

N 

rH 

A 

N 

0 

0 

0 

0 

in 

■t 

'D 

»H 

tA 

'D 

N 

CM 

in x x 

'•D 

'•D 

X 

•D 

r-- 

r- 

r- 

O 

0 

0 

0 

0 

0 0 

0 

rH 

rH 

H 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

tA 

iA 

in 

iA 

A 

CM CM CM CM 

CM 

CM 

CM 

CM 

CM 

CM 

(A 

ri 

M 

M 

M 

tA tA 

iA 

iA 

tA 

Ll 

in 

tA 

iA iA 

in 

in 

iA 

in 

ri 

tA 

(A 

(A 

H H H 

rH 

■H 

■H 

rH 

H 

•H 

H 

H 

rH 

H 

■H 

•H 

H rH 

H 

■H 

rH 

rH 

rH 

rH 

rH 

H 

rH 

rH 

H 

rH 

H 

rH 

rH 

•H 

0 0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


rH 

rH 

H 

'D 

0 

m 

rH 


CM 

rH 

rH 


CM 


H 

H 

H 

0 

A 

0 

*H 


0 

rH 

rH 


0 


0 

0 

0 

0 

(A 

0 

0 


0 

0 

0 


0 


N 

H 

0 

IT' 

0 

LD 

in 

rH 

0 

rn 

H 

bn 

•D 


bn 

'•D 

bn 

0 

CM 

rH 

in 

A 

CM 

n - 

LD 

rH 

0 


0 

0 

0 

rH 

CM 

0 

0 

0 

0 

0 

0 

0 

0 


CM 

CM 

CM 

r-- cm 

bn 

rn 

CM *D 

'•D 

CM 

CM rH 

CM X 

rn 'D 

0 CM 

rn 

in 

A 

N 

•D O 

rH 

0 

in r- 

r-- 

rn 

'D rH 

bn r -- 

a r- 

rH CM 

bn 

0 

0 

0 

cm rn 

n 

rn 

0 H 

rn 

rn 

0 rn 

0 rH 

0 rn 

rn rn 

0 


rn 

rn 

rn 

rn 

'•D 

H 

rH 

H 

rH 

rH 

A 

bn 

0 

rn 

•D 

'■D 

'•D 

•D 

rH 

OJ 

n- 

r- 

CM 

rn 

rn 

rn 

rn 

•D 

[- 

0 

CM 

rn 

'•D 

n- 

’t 

A 

A 

A 

bn 

bn 

in 

bn 

bn 

IT) 

in 

'D 

'•D 

'D 

•D 

'D 

'•D 

r- 

r-- 

N 

r- 

0 

0 

0 

0 

0 

0 

0 

■H 

H 

rH 

rH 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

M 

rn 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

H 

H 

rH 

H 

H 

rH 

rH 

H 

rH 

rH 

H 

rH 

rH 

*H 

rH 

■H 

■H 

rH 

H 

rH 

rH 

rH 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

O 

0 

0 

CD 

0 

0 

0 

O 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

G» 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


i/i 

in 

Lii 

X 


>z 


X ui 
X Z 
'Z UJ 
h- _ 

o *z ■> 
h _j in 

CL CD 

o i/i *r 

Z *~4 I— 

■z Ci 

LlJ 


Cl O UJ 
•Z UI ui 

L- •• 


_l 

J Cl ^ 

CJ *-> C 
LD 
Cl 




y- 

X) 

X 













bn 
























h- 

X 













z 







z 






in 
























'X 


















0 


0 

X 





CM 







X 
















Z 

h- 




•0 














X 


4—4 

X 

Ul 











> 

















1/1 




X 





X 




X 





X 


Ul 

y— 

U'l 



> 

z 







4—4 













X 



•0 





X 





0 




X 



X 


X 


1 

z 

X 



X X 

un 






H 











X 



X 


X 

X 

X 



N 





0 




CD 


z> 

Is* 



X 


4-4 

X 



X 

X 

bn 


CJ 




1—4 


X 


X 

Ul 

Ul 



X 


X 


1—4 

■X 



z 

X 

•r 







IZ 




z 


4-4 

4—4 


z 

Cl 

1— 

O 

1—1 

z 


z 

h- 

CM 




X 

I/I 

in 




l—l 

X 

m 


X 

0 

X 

y- 


X 

X 


X 


J— 



it 



rH 



X 



x 


j- 

y- 


0 

X 

Ul 

X 

ui 

4—4 


*—4 




0 



CD 

0 


•0 


Cl 

X 

X 


rn 

h* 

I 

z 



•X 



X 


-1 







X 

n 



z 


X 




X 

X 


X 



X 

U1 

A 


y- 


0 

•X 

X 


J- 

X 

X 

h- 

LL 


y- 




y- 

h- 


X 

•0 


4—1 

h- 


*: 

H 


1 

X 

z 

X 





CD 

Ul 

Cj 

Ul 


X 

X 


Ul 



Ul 


CJ 



H 

X 




y 


Ul 

iii 



H 

40 

0 

4—4 

z 

»- 



•0 

0 







z 





0 


X 

0 



X 


0 

X 

Ul 


0 

X 

X 

-jfj 

Ul 



X 

X 


m 

X 

K 

4—4 

iii 

m 

y- 


1- 

X 

X 

X 

z 

CJ 

X 

H 

X 

U1 

rH 

X 

X 


in 

0 

X 

y- 



z 


z 

X 

CD 

X 

X 

y- 

X 

X 

X 


h- 

X 

XXX 


0 


4—4 


X 

K* 

X 

•0 

•Z CM 

X 

X 

z 



X 

X 

X 





X 



X 

X 

X 



IZ 




!_1 




O CJ 

X 

z 


X 

X 






z 


X 

0 



z 


X 

X 


X 



X 

X 


X 

X 

X 

y- 

X 

X 


h- 

y— 


X 







0 X 


X 

X 

X 

X 

z 

X 


z 

iii 


y- 

X 

X X 

4—4 


X 

CO 

X 


4-4 

z 

H— 

X 

y- x 

h- 

X 

X 

iii z 

0 


X 

•0 

z 

iii 


4-4 

1 i 


O 


4-4 

X 


X 



•-« 

X 

4—4 

4-4 

X 

X 

“1 

z 

X 

~l 

iii 


X 

4—4 

4—4 

X X 

rH 

X 

0 

0 

X 

X 

4-4 

m 


2 ~i 

i i 

4-4 

4—4 

iii 

4—4 

I- 

0 


X 

0 

0 

4-4 

X 

•Z 

0 

y- 

X 

X 


ui 



UJ 

X 




O 

X 

z 

X 

1- 

z 

X 


X 



0 




CO 


0 




X 

X 

•r 



>r 

X 



0 



■I 

X 


X 






-r 



z 

rH 

X 

1— 

X 

h* 

X 


X 

X 





i~ 

X 

y~ x 

in 

z 


X 

y- 

X 

LU 

X 

Cl 

X 'X 

X 

H" 

X 



X 

X 


J— 

X 



X 

y— 

X 

X 

X 

X 

X 


X 



1— 

5* 

U'l 

z 

Ul 

1- > 

y— 

0 

ui 

1— 

y- 

u 

z 

U'l 

z 

Ul 

0 

—1 

0 

h* 

> 


0 


X 


X 0 

X 

Ul 


X 

y- 


40 

h— 

Ul 

0 

h- 

y- 

0 

iii 

0 


0 

40 


t- 



t- 

X X 

X 

X 

D 

X 

X X 

X 

z 

X 

X 

X 

■=0 

1—1 

X 

0 

X 


X 

1—4 

X 

0 

Ul 


X 


0 

0 >x 

X 

X 

0 

0 

X 

0 


X 

X 

•0 

X 

X 


0 

•0 

0 



0 

X 

0 


D 

Ul D 

Ul 

1- 

*n 

X 

ID U'l 

•ID 

4-4 

D 

40 

1/1 

X 

CJ 

h- 

*~f 

X 

# 

X 

in 

m 

z 

iii 

# 

1/1 

X 

h- 

0 X 

0 

h- 


y- 

Ul 

4 1 

h* 

40 

y- 

X 

Ul 

in 

*: 

m 

X 

•—1 

0 

# 

4—1 

CD 

*“) 

X 

1 






















X 












X 















0 

X 






















X 












'I 



rH 







X 





0 



































H 



+ 












+ 

iii 

X 



Zy 



1— 


h- 

y- 



Is- 


y- 






X 

~ 1 


X 

X 


X 


in 

X 


X 


1/1 



X 


X 

X 



z 

Ul 


z 

h— 

y 


z 

CM D 



Is* 


rH 

Z 


Z 

z 

I 

X 

CJ 


X 


X 


X 


0 

J- 

X 

z 

X 


y- 


h- 

0 


y- 

O 


y 


y- 


1 - 



pj 

•0 

0 


0 

Ul 

t- 


X 

X 


1 

Z 


n. 

X 


X 

X 



X 


X 






x 



X 

0 


z 


-> 

X 


7» r 

iii 

0 


rn 

■i 



X 



0 

X 


0 

X 

0 

V 


X z 

X 


O 

X 

X X 


X 

4-4 


X 

CJ 

iii 

X 

3 

X 

(j 

CJ 

X 

»x 

z 


X 

J- 

y- 


X I 

I 

0 

z 


X 

z 

h- 

■X 

rH 


I 

X 

J— 

■z 

z 

z 

|Z 

CJ 



X 


0 


X 




I 

Cl 


iii 

l—i 



X 









X 



ili 

*0 

iii 


X 


n 

iii 


X 





0 





0 



X 



Lj 

4—4 

ID 

4-4 

N 

X 

4-4 Ul 

X 

*<I 

X 

X 

I> 

z> 

X 

X 


X 

> 

X 

I> 

X 


X 

2> 

X 

_J 

I 

X X 

x 

X 


X 

X 

X 


■> 

4-4 

N 

x 

X 

•z 

X 

N X 

H 

X 


X 


LU 


X 0 

D 

X 

z 

0 

> 

X 

z 

X 

X 

0 

0 

X 

CJ 

X 

0 

0 

z 

0 

X 

N 


O 

h— 

I 

•0 

I CJ 

0 

>r 

0 

•0 

X 



0 

X 

Z 

2 

I 

0 

•0 

z 

y 


•0 

N 

«z 

CJ 

ui 

K 

x *-> 

X 

0 


X 

Z X 

X 


Ul 

X 


z 

0 

iii 

*“> 

X 

z 

4-4 

z 

1—1 


X 

z 

Ul 

X 

x 

X iii 

0 

»x 

•-> 

x 

Ul 




•0 


4-4 

Ul 

X 

0 


X 

0 


0 

0 
























z> 












O 










z> 






X 

0 









1-- 












0 


x 



X 







■X 

v 









0 

X 





z 










I-- 












z 


X 



y— 







iii 

n 










0 















z 














x 



X 








X 










DC 



























■fr * * 


z 










Hf HC- 











* z 





N ’t N 

h oi r- 

H H 0 


rH CM 

bn >0 rn 


•0 rH 



rH 




rH H 

■H 



'•0 


CM 





rH 


rH 

rH 


rH 


rn 

■H 


rH 

rH 



rH 


■H 

rH 


■*H 

rH 


■H 

CM 

un 

n- q 

rH rj- CM 


0 0 



'0 




rH H 

H 



•0 


•0 





•04 


rH 

rH 


rH 


•0 

•0 


rH 

•0 



•0 


rH 

rH 


•0 

Q 


'0 

10 

40 

r n '0 

rH 10 rH 


0 0 



10 




•0 40 

•0 



'0 


•0 





•0 


•0 

'04 


10 


•0 

■0 


|0 

<0 



•0 


40 

•0 


0 

•0 


•0 

•0 

•0 

h rn 

bn b"' CM 


cm rn 


un 

rH 


rH 


un un 

un 



un 


,0 





rn 


N 

N 


rH 


N 

N 


rH 

rn 


un 

rH 


rH 

r-- 


LD 

rn 


rn 

rn 

'•D 

bn q 

'0 '0 >0 


Q ’t 


b“' 

A 


0 


un un 

un 



CM 


CM 





’t 


CD 

b"4 


'D 


•:m 

rH 


'0 

'D 


rH 

•0 


4-D 

'•D 


•D 

LD 


LD 

40 

rn 

rH CM 

rH rH H 


•0 CM 


'0 

rH 


•04 


•0 '0 

■0 



rn 


'0 





CM 



'0 


•0 


rn 

CM 


•0 

CM 


■0 

CM 


101 

404 


rH 

CM 


CM 

40 

rn 

bn r n 

CM 'D rH 

'0 

rH CM 

bn 

‘0 

CM 

rH 

'•D 

un 

cm rn cm 

CM 

A 

un 

un 

un 

•:m 

h un 


•0 

r-- 

01 

un 

•:m 

CM 

rn 

cm rn 

rn 

in 

CM 

rn «:m 

rn 

X 

'D 

CM 

rn 

CM 

CM 

un 

OJ 

rn 

un 

CM 

un 

CM 

H 0 

CM 0J '0 

A 

•0 rn 

'0 

N 

•0 

40 

<0 

40 

un A A 

b'i 

•0 

H 

»H 

A 

•o 

|0 H 

H 

N 

•D 

rH 

N 

•d 

un 

bn 

in un 

IT' 

•H 

rn 

bn 

A 

•0 

N 

N 

10 


A 

r-- 

r- 

•0 

•0 

rH 

rH 

rH 

rn 

rn rn 

1 

1 

1 

CM 

0 rn 

rn 

rn 

rn 

rn 

•0 

rn 

10 <0 *0 

'0 

rH 

■H 

rn 

40 

rn 

rn h 

'0 

*H 

CM 

rn 

rH 

'0 

*0 

rn 

i0 0 

<0 

rn 

rn 

rn 

•0 

rn 

rH 

rn 

rn 

■0 

•0 

•0 

•0 

rn 

rn 

•0 

rn 

rn 

rn 


f -- CM 

un 

H b“* 

rH 

•IM 

CM 

CM 

cm un 

■0 

rH 

rn 

LD 

T-- rH 

CM 

un 

'•D 

rH 

A 

un 

LD 

H 

cm un lj 

r-- 

10 

rH 

CM 

un 

un 

un 

un 

LD 

rH 

A 

un 

•0' 

rH 

«:m 

un 

404 

rH A 

N 

N 

N 

N 

•0 

CM 

un 'D 

rH 

A 

un 0 

iA 

in 

rn 

rn 

■•t 

N 

CM 

ld r-- 

r-- 

101 Q 

rH 

rH 

rH 

rH 

rH rH 

CM 

CM 

CM 

CM 

cm rn 

rn 

rn 

rn 

A 

A 

A 

A 

un 

un un un 

un 

'•D 

LD 

LD 

•D 

LD CD 

LD 

LD 

r-- 

r- 

r-- 

•0 

40 

'0 

•0 

rH 

rH rH 

rH 

rH 

rH 

rH 

CM 

CM 

cm «:m 

iA 

in 

in’t 

A 

A 

A 

A 

rj- 

rj- 

un 

10 Q 

'0' 

rH rH 

rH 

H 

rH 

rH 

rH rH 

rH 

rH 

rH 

rH 

rH rH 

rH 

rH 

rH 

rH 

H 

H 

rH 

H 

H rH rH 

rH 

rH 

rH 

H 

■H 

rH 

rH 

rH 

rH 

tH 

rH 

rH 

CM 

CM 

OJ 

CM 

CM 

•:m cm 

CM 

CM 

CM 

CM 

«:m 

CM 

CM CM 

CM 

CM 

cm i:m 

CM 

CM 

CM 

CM 

CM 

CM 

»nj 

H H 

rH 

•H -H 

rH 

rH 

rH 

rH 

rH H 

rH 

rH 

rH 

rH 

rH rH 

H 

rH 

H 

rH 

rH 

rH 

H 

H 

rH rH rH 

rH 

rH 

rH 

rH 

H 

rH 

rH 

H 

rH 

rH 

H 

rH 

rH 

rH 

rH 

rH 

rH 

rH rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH rH 

rH 

rH 

rH rH 

H 

rH 

rH 

rH 

rH 

rH 

rH 

•0 '0 

'0 40 40 

•0 

•0 

•0 

10 

•0 40' 

•0 

•0 

|0 

•0 

•04 ‘0 

•0 

'0 

•0 

<0 

•0 

•0 

10 

•0 

*04 '0' '0 

•0 

•0 

40' 

404 

•0 

'0 

•0 

'0 


Q 

40 

•0 '0 

'0 

•0 

10 

'0 '0 '0 

'0 

'0' 

•0 

•0 

'0 

40 

•0 *0 

•0 

0 

0 '0 

•0 

0 

»0 

'0 

•0 

•0 

0 

40 40 

40 

0 40 

40 

•0 

'0 

•0 

•0 '0 

40 

40 

'0 

40 

10 '0 

10' 

40 

•0 

•0 

■04 

40 

•0 

'0 

404 40 404 

■0 

10 

•04 

40 

40 

10' 

•0 

•0 

40 

40' 


•0 

■0 

•0 

•0 

0 

'0 

0 0 

0 

•0 

0 

•0 

•0 

■0 

•0 0 

0 

•0 

0 '0 

0 

0 

«0 

40 

•0 

>0 

'0 


June/July, 1976 Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 Page 17 


165 







CL 

CL 




X 


X 







01 


G 

G 






ill 







01 

in 

ill 

ill 

I*- 



G 01 


G 







UJ 

Cl 

X 

X 

X 



X X' 

X 

X 

•X 






Cl 

UJ 



3 



X 

l—l 


_J 






a 

fr— 

UJ 

UJ 

X 


X 

X fr— 

G 

X 

X 






ill 

01 

■3 

•3 

01 


3 

X 01 

X 

3 

01 






X 


X 

X 

4-4 


_J 

X - 


X 

4—1 







•3 

01 

X 

G 


X 

3 

•3 

Cl 

ill 






lL 

UJ 

01 

o 




X X 

01 

o 







o 

CL 

UJ 

fr- 

o 



X X 

01 

fr— 

Q 






UJ 


2 

01 

fr— 



X 

y 

01 

fr- 

A 






UJ 





> 

X 




X 





ill 

ill 

ill 

o 

X 


X 

G ill 

ill 

ill 

Cl 

_J 





CE 


X 

X 

y 



X 

X 

X 







O 

O 

o 

o 

3 

/•% 

y 

o o 

o 

o 

3 





2 

_J 

fr- 

3 

_J 

*-> 

I 

X 

_l fr- 

_J 


*-> 





X 






3 

y 





X 







3 

CJ 


V 



3 

CJ 






2 



01 

3 





01 

_l 







z 


X 

o 

X 

X 

X 


x 


X 

X 




3 

Cl 


UJ 

UJ 

o 

o 

'• X X 

X 

X 


o 

X 

\ 


X 


U. 



-k 

UJ 

X 

ill X 




X 

X 



ill 

fr- 

UJ 


CO 

X 

UJ 


rn '• rn oo 

X 

00 

I 

X 


rn '• 

M 

3 

3 
















X 

G 

_J 

n 

X 


4-4 

LL 


> 

X 

g *3 
3 X 



X 





4—4 

I 

3 

X 

X 

X 

2 

in co oi x _i 

X o 

X 

X 

X 

2 

01 X 

01 

X 


_l 

X 

-1 

3 

►-> 

G 

OOOO X 

_i X 

_J 


*-) 

ill 

ill ill 

ij 

ill 

X 







01 









X 

u. 





<3 

CJ — 

y 




3 

3 



X 

o 





01 

_l ill 

01 




01 

3 



fr¬ 

UJ 





2 

o 

M 




Y 

x 




ill 





UJ 

X it it it 

g 




X 

X 


it 

it 














X 




















X X 


























X 0 



01 



3 X 









X 

X 







X 



X z 



01 



0 0 





X 




0 

0 



fr- 




X 

X 


fr- X 



X 


X 

3 X 





X 

X 


X 

0 

o 



Z 




fr- 

X 


z 



X 


X 

X 





fr— 

X 


X 

■X 0 01 z 



3 



01 

2 

fr- 

X 

2 



0 


fr- 

X X 




01 

2 

fr- 


fr- 


•X 0 



o 



01 

►-4 

z 

X 0 

0 0 

X 


0 


z 

X 0 




m 

4-4 

2 


2 

fr- 3 *r x 

2 


3 

LL 


X 

o 

4—4 

X G 

X fr- 

Q 

X 

X 


4—4 

> X 


X 


X 3 

4-4 


4—4 

Z X 3 0 

X 



ill 


X 

X 

O 3 X 

X 

X 

l“i 



0 

•3 


0 


X X 

0 


0 

X 

X •! 

X 


Z 

G 


ill 


X 


X 


X 

fr- 


X 

(J 


0 


ill 


X 

X 

X 

XX X 

X 



X 


ill 

UJ 


X X 

X 1- 

X 


2 



X z 


•r 


0 X 


o 


X 

0 0 

3 


~i 


X 

X 

z 

X 0 0 

fr- X 0 

X X 


X 

o — 



X X 

2 

X 

X X 

3 0 CO X 

01 


3 

H 

3 


4—4 

o 

X fr- 

X 0 

X 

4—4 

z 


«3 

X X 


t- 

o 


4—4 

0 


0 

3 

Z Q 4-1 



O 

_i 

X 

fr- 

3 

fr- 


0 



X 


X 

3 

X 

3 

X 

fr- 

3 

fr- 


X 


0 

X 


3 

X 

01 

3 



fr- 0 

X fr- 

X 

X 

X 


fr- X 

2 

X 

01 

3 



0 


0 

0 X 

■X 

X 


H 

01 

U- 

fr— 

fr- 

4-4 X 

fr— _ : " 

01 

V 

3 0 

fr- 

01 <L 

4—4 

fr- 

in 

X 

fr— 

fr— 

2 

fr— 

I <E fr- Z 

X 

2 

fr— 

3 X 

Z 

X 

X X 0 

X 0 

X 

3 

2 

0 x 

X X 

fr- 

3 

X 

2 

X 

X 

4—4 

X 

0 

0X3 

3 

4-4 

X 

•3 

2 

•—4 

01 

01 

Z 3 

3 Z 

fr- 

y 

4-4 

3 

01 

fr- 01 

D 

0 

2 

4—4 

01 

01 

X 

01 

3 

3 01 3 

3 

fr- 

01 

X 













C> 











3 














X 

01 










0 


E 














2 










X 


Cl 

X 

2 

X 

3 

Z 3 

4—4 


2 


2 

2 

2 

0 

0 

X 

2 

X 

3 

2 

z 

X 

X fr- 

m 



X 

fr- 

►-4 

1- 

X 

4-4 X 

X 0 


4—4 


4—4 

X 

X 

2 

•X 

fr— 

4—4 

H 

X 

X 

X 

fr- 

0 01 

X 

fr- 

rH 

■v 

3 

3 

2 

0 

fr- 0 

X - 


0 


X 

X 

X 

X 

.. 


3 

2 

i-J 

X 

X 

2 

0 - 

3 

3 


X o 

X 

X 

fr¬ 

0 fr- 

fr- z 

rH 

fr- 

I 

fr- 

X 

X 

2 

X 0 

I 

X 

fr- 

X 

X 

X 

Z X 3 

3 

X 

X 














Z 











fr- 



_J 

3 

ill 

ill 

3 0 

3 





0 

3 

0 


3 

3 

0 

0 

3 

0 

0 


3 

—i 


4—4 

3 

3 

3 

3 

3 3 

3 > 

4—4 


X 

X 

3 

3 fr- 

3 

4—4 

J 

3 

-J 

3 

3 

3 

3 

<1 X N 

3 

0 

4—4 

X 

X 

X 

I 

XXX 

X 0 

X 

N 

2 

2 

I 

OC X 


XXXI 

X 

X 

X 

I 

0 X Z 

•X 


2 

3 

3 

3 

01 

in 

3 3 

3 Z 

3 

4—i 



01 

3 X 

fr- 

3 3 

3 

01 

01 

3 

01 

3 

3 0 3 

3 

UJ 


X 






2 





2 


0 

X 










£ 

fr- 

3 






4-4 





4—4 


X 

3 










3 

0 

fr- 






X 





0 



0 











2 







fr- 





fr- 

it 

it 

it X 









it 

it it 

3 


rH 

tH 

0 


M 

X 

0 

cj rn 
b-» in 
q m 


M ' Ll 
•3 0 
CM CJ 

cm cm 

0 *3 
<3 3 


X 

IX 


it 





0 

H 









0 

0 

rH 







-t 

bl» 










■'t 

in 







0 

0 









0 

0 

0 




CJ 

CJ 

CJ 

0 

0 




H 


CJ 

CJ 

CJ 

0 

U1 

0 




'3 

0 

0 

0 

■H 




ri 


0 

0 

0 

in 

rH 

H 




0 

0 

0 

rH 

rH 




0 


0 

0 

0 

H 

rH 

H 




0 

H 

N 

N 

't 




H 


'£• 

M 

r- 

H 

in 

’t 




CM 

M 

M 

H 

rH 




lil 


U1 

r-- 

rn 

0 

0 

H 




CJ 

CJ 

H 

H 

■H 




0 


CJ 

CJ 

rH 

rH 

rH 

rH 




rH 

H 

rn 

LI 

0 

0 

0 

U1 

CJ 

M 

H 

rH 

rn 

IT* 

in 

0 

0 

0 

LI 

0 


0 

0 

in 


't 

•H 

in 

U"4 

0 

’t 

0 

rH 

rH 

in 

y 

"T 

■H 

0 

0 

rn 

rH 

0 

0 

0 

C4J 

0 

M 

0 

0 

M 

H 

rH 

0 

0 

0 

CJ 


r-- 

CJ 

LI 

o n- 

0 

h n- in 

0 

rH 

rH 

rH 

rH 

Tf 

in 

0 

rn 

05 CJ 

05 CJ 

rn x 

N 

CJ 

rn 

rn 

0 

rH 

rH 

CJ CJ 

rn 

rn rn rn 


-t 

-t 


■'t 

’t 

n- 

LI 

LI 

LI X 

X f- 

r- n 

N 

0 

0 

0 

CJ 

CJ 

CJ 

CJ CJ 

CJ 

C J C J CJ CJ 

CJ 

CJ CJ 

C J CJ 

CJ 

CJ 

CJ 

CJ CJ 

CJ CJ 

CJ CJ 

CJ 

rn 

rn 

rn 

CJ 

CJ 

CJ 

CJ CJ 

CJ 

CJ C J C J 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ CJ 

CJ CJ 

CJ CJ 

CJ 

(j 

CM 

CJ 

0 

0 

0 

0 0 

0 

0 0 0 

0 0 

0 

0 

0 0 

0 

8 

0 

0 0 

0 0 

0 0 

•0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 0 0 

o o 

0 0 

0 

0 

o 

0 

0 

0 0 

0 0 

0 0 

0 

0 

0 

0 


CJ 

CJ 

<•15 

rH 

rH 

n- 

rH 

0 


CJ 


CJ 

rH 

rn 

CJ 

CJ 


rH 

rH 

rn 

rH 

rH 

rH 

'£• 

o 


0 

0 

X' 

rH 

rH 

8 

H 

n- 


0 


•0 

•H 

o 

0 

0 

'ii 

rH 

rH 

© 

rH 

rH 

rH 

0 

’t 


0 

0 

o 

0 

0 

© 

0 

rn 


0 


© 

0 

0 

0 

0 

© 

0 

0 

0 

0 

0 

0 

0 

rn 


LI 

CJ 

X 

H 

r- 

in 

r- 

m 

rH 

in 


0 

rn 

CJ 

in 

CJ 


rH 

r- 

CJ 

rn 

rH 

0 

in 

© 

rH 

N 

0 

rn 

'•15 

in 

n- 

in 

u> 

8 

n- 


rn 

X 

© 

r- 

0 

rn 

X 

Ln 

© 

X 

05 

LI 

0 

CJ 

0 

0 

H 

CJ 

0 

0 

o 

0 

CJ 

0 

rn 


rn 

0 

rn 

© 

rH 

CJ 

0 

© 

rn 

o 

0 

0 

rH 

CJ 

0 

rH 

LI 

in 

CJ 

CJ 

LI 

CJ 

IT* CJ X 

CJ 

rn 

rn 

CJ 

in rH 

rH 

in 

LI 

CJ 

CJ 

in 

CJ 

CJ CJ 

r- cj 

LI 

05 

n- 

rH 

rH 

't 

n- 

rH 

u-i 

rH 05 N 

rH 

-t 

© 

-t 

rH rH 

n- 

rH 

rH 

"t 


rH 

n- 

in n 

XI © 

rH 

0 

o 

rn 

rn 

0 

0 

rn 

0 

rn h rn 

rn 

0 

rn 

0 

rn rn 

© 

rn 

rn 

0 

© 

rn 

0 

0 0 

c j rn 

rn 

0 


rn rn 05 

rH 


r- cj in 

0 rn n- 


rH CJ 

in 

© rn 

’t n- 

n- 

n- n 

CJ L") 0 

rn 05 

1 

4 

0 

rn 05 

X X 'D 

0 0 0 

rH 

rH 

rH CJ CJ 

rn rn rn 

rn t rf 

n- 

li in 

b! LI 

in in in 

05 X N 

N 

N 

0 0 ©' rH 

rH rH 

rH rH rH 

rn rn rn 

rn 

rn 

rn rn rn 

rn rn rn 

rn rn rn 

m 

rn rn 

rn rn 

m 

rn m 

m rn rn 

m 

rn 

0 0 0 0 

0 © 

0 0 0 

CJ CJ CJ 

CJ 

CJ 

CJ CJ CJ 

''J CJ CJ 

CJ 

CJ CJ 

CJ 

CJ CJ 

CJ CJ 

CJ 

CJ CJ 

CJ CJ CJ 

CJ 

CJ 

rn rn rn rn 

rn rn 

r n rn rn 

0 0 0 

0 

0 

0 0 0 

0 © 0 

0 

0 0 0 © 0 

0 0 0 

0 0 

000 

8 

00008 

0 0 

0 0 0 

0 0 0 

0 

o 

0 0 0 

0 0© 

o 

0 0 

0 0 0 

000000000 

0 0 0 0 0 

0 0 

0 0© 







X 








X 





X 



G 






•X 


2 





o 



li 






X 


4-4 





fr- 



•X 






X 


fr~ 




X 

^ 4-4 









•X 


_1 




G 

3 Z 



0 



X 





0 




il 

•I 0 



01 



X 

X 

X 

X 


X 




'I 

fr- X Z 



z 

X 


fr- 

X 

X 

3 







in i 0 




a 

01 

z 

fr- 

1— 

4—4 


fr- 




X 

•X fr- 



m 

X 

01 

4-4 

2 

z 

X 


3 




0 

fr- 01 4-4 



01 

01 

X 

0 

4—4 

4—4 



X 




'X 

X 01 G 



X 

01 

X 

X 

0 

0 

2 

X 

z 




01 

01 X X 



X 

UJ 

G 


X 

X 

4-4 






01 

X z 



G 

z 

G 

X 




3 





X 

X 0 



G 


'I 

2 

X 

X 

X 


o 


UJ 


z 

fr- fr- 



<L 

fr- 


4—4 

0 

0 

0 

fr- 

fr- 



»- 


3 




3 

fr- 

3 

X 

fr- 

X 

1' 



4-4 

3 

ill 

X fr- 



G 

X 

3 





X 

X 


fr- 

X 

'X 

fr- 4-4 



X 

fr- 

X 

h— 

fr- 

fr- 

fr- 

fr- 



3 

fr- 

0 

3 X 



o 

3 

2 

X 

X X 

3 

3 

3 


0 

3 

3 

0 X 

\ 

G 

3 

0 

4-4 

01 

01 

in 

X 

0 

*-> 


X 

O 


jiL 

C'- 

2 










I 



in 

'I 

fr- 

•I 

in 









8 

fr- 

X 

2 

fr— 

X 

2 









X 

CO 

3 

•3 

H 

01 X fr- 

I 

2 

G 

X 

2 

X 

2 

3 


X 

G G 

+ 

X 

X 

I 

. fr- X 

z 

X O 

•X 

fr- 

4—4 

fr- 

X 

X 

H 

3 

Z G 


fr- 

01 

t 

X 3 Z 


G 3 


-1 

3 

z 

X 

o 


X 

Z 'X 


3 

01 

X 

01 O (J 

V 

CO 

I 

0 

I 

X 

X 

fr- 

z 

3 


\ 

O 

X 




X 














3 


3 


3 

3 

G 

G 

G 


3 



X 


*—4 

4-4 3 X 


4—4 

4-4 

3 

3 

3 

3 

3 

4-4 

3 

X 


0 

X 

X 

X 'I Z 

3 

Gu X 

X 

'I 

X 

X 

I 

X 

> 

'X 

z z 

X 

•I 

0 

3 

3 O *3 

G 

G 

3 

3 

3 

m 

01 

01 

z 

3 

Cj 

G 

m 

X 




3 











01 

X 

fr- 


01 

X 

X 








m 


X 

X 

•X 


Z 

2! 

z 












X 


fr- 


UJ 











it it 

z 


2 

it it it 









X 


* it 


X 



















G 























G 























X 





















X 

















01 





X 

G 


X 

X 








0 



X 



01 





G 

G 


3 0 

fr- 








X 



X 



LlI 

X 




G 

X 


X X 

_ 4- 

in 




X 



X 



fr— 

Z 


X 

2 




X 



fr- X X 

X 

X 

01 



X 



N 



3 

0 © 

G 

0 





X 

X 3 O 


X 

fr- 



fr- 






X 

z 


G 

G 


X 


X 

0 


0 0 H 

I X fr- 

3 



ij 



X 



X 


II 

X 



X 


0 

X 

0 

fr- 01 

0 G 

01 

0 



X 



01 



X 

rH 



3 


fr- 


X 

X 

fr- 

o 

— G 


in 



X 


m 

2 

X 

2 

I 


X 

fr- 

4-4 


z 


01 

0 


fr- X 1- 

1X0 

X 



X 


0 


in 

O 

3 

X 


2 

H 


4—4 


01 

fr— 

X 

fr- z 


X 

X 


\ 

X 


X 

X 

2 

z 


0 

X 

X 

z 


0 


X 

01 

fr- 

fr- > X 

fr- X 

X 




3 

CJ 

3 

*—4 



fr- 


4-4 

2 

3 


X 

X 

2 


> 

X X z 

& in 


fr- 


A 

G 

X 


X 

rH 

3 

0 


X 




=3 


3 

X 

X X 

X X 

3 

0 


I 



X 

X 


X 


X 

X 

X 


G 

G G 

X 


> I X 

> 01 

I 

X fr- 

3 

•I 

II 

fr— 

2 

X 

(1 

fr- 

II 

z 

3 

0 


X 


X 

fr— 

z 

Z 0 3 

Z 01 


fr- 

4—4 


0 


X 

3 

3 


3 


0 Z 

0 


0 0 

0 

3 

0 

0 4-4 Z 

0 X 

0 

0 

x 


3 

X 

01 

*-> 

3 

X 0 

X 

G 

4—4 

3 

X 

3 

fr- 

3 

0 

3 

3 1- 

3 Z 

fr- 

0 X X 












X 











X 












h- 



01 

3 


rH 





fr- 












2 



2 

3 


+ 





z 




I 



0 




X 

4-4 

X 


fr- 

fr- 


I 

I 


X 


4-4 

2 

CJ 


3 

X 


1- 




1- 

0 

fr- 


0 

0 

X 

Z G 

Z X 

3 

fr- 


0 

n 

-k 


fr- 

0 


> 




-i 

X 

z 


■k 

.. 

■k 

— •% 

4-4 , 


D 


X 

X 

X 

X 

0 05 X 

fr- 

X 


I 

0 


X 


iit 

X 

X 

H 

U 

a 

X I 

3 

0 


\ 







3 





v 

G 

0 




3 

3 


3 



I> 

4—4 

X 


4-4 

X 3 

X 


X 

X 

X 

3 

I 

4—4 

4-4 

> 

3 > X 

3 > 

I> 

3 fr- 


o 

5* 

X 

X 

3 3 

X 

3 N Z 

z 

3 

I 3 X 

X 

0 X 0 z 

X 0 

O 

X 

X 

z 

z 

Z 

0 

*■> 

in 

G 

3 

G X 

4—4 

*-) 

X 

3 X 

3 

3 

Z 3 Z - 

3 Z 

z 

3 

X 

G 












01 









X 






I 





4-4 

3 




X 






in 

fr- 






3 





G 

X 




0 







3 






fr- 






3 




X 






f- 

0 






0 




it 

it it 

G 




X 






0 


X 

M CO 


•I 

o 

o 

_l 


in co i.o co 

u u U Cl 

3 


'X 

_l 

CL 

01 

G 

it * 



CJ 

N 

CJ 

0 

0 



CJ 

CJ 

•0 

rH 

rH 

rH 


0 

rn 

n - 





CJ 



m 





o 


0 

'0 

H 



0 

8 

0 

rH 

rH 

H 


n- 

0 

0 





0 



0 





o 

rn 

0 

0 

rH 



0 

0 

0 

0 

© 

0 


rn 

0 

H 





0 



0 





n- 

© 

CJ 

0 

r-- 

N 


in 

CJ 

05 

rH 

rn 

r- 

rH 

X 

n- 

’t 



■M 


’t 

© 


rH 





rn 

© 

© 

0 

n- 

cj r- 


r- 

0 

rn 

'£> 

05 

in 

0 

r- 

N 

0 



0 


rH 

'i' 


N 





CJ 

rH 

H 

rH 

0 


0 

rH 

CJ 

0 

0 

© 

0 

0 

0 

rH 



0 


rH 

CJ 


0 




rH 

rH 

H 

in 

rn 

0 

•■t 

LI 

rH 

in 

in 

CJ 

CJ 

CJ 

'•£> 

L - ' 

rn 

rH 

0 

X 

X 

N 

CJ 

X 

in 

in 

LI 

0 

rn 

rH 

’t 

'£i 

rH 

0 

-t 

CJ 

rH 

"t 

rH 

rH 

y t 

n- 

-t 

'0 

rH 

0 

0 

n- 

r- 

0 

'•£' 

CJ 

X 

CJ 

0 

rH 

© 

H 

*+■ 

rn 

0 

0 

rn 

rn 

0 

rH 

OJ 

0 

rn 

rn 

0 

© 

o 

0 

rn 

rn 

rH 

•M 

rH 

0 

rn 

rn 

0 

rn 

0 

rn 

0 


r •- © 

0 © 

0 

rn x 

rH 

-t 

0 CJ 

rn rn 

rn 

rn 

X 

rH 

't 

N CJ 

in 

N 

CJ 

LI 

rH 

cj cj cj 

CJ 

rn 

LI 

X 

rH 

rn 

rf 

N 0 rH 

rH i. J 

CJ CJ 

CJ 

CJ CJ 

rn 

rn 

^ n- 


n* 

rt 

■■t 

in 

LI 

LI X 

X 

X 

r- 

r- 

O 

0 0 © 

0 

0 

0 

0 

rH 

rH 

rH 

rH CJ CJ 

0 0 

0 © 

0 

0 0 

© 

© 

0 0 0 © 

0 

0 

0 

© 

0 

0 0 

0 

0 

0 

0 

rH 

rl H rl 

tH 

rH 

rH 

tH 

rH 

rH 

rH 

rH rH rH 

CJ CJ 

CJ CJ 

CJ 

CJ CJ 

CJ 

CJ 

C J Cj 

CJ CJ 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ CJ 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ CJ CJ 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ 

CJ C J CJ 

0 0 

0 0 

0 

0 0 

© 

0 

o o 

0 0 

8 

0 

0 

0 

0 

0 0 

0 

0 

'i' 

0 

0 

0 0 0 

'll 

0 

0 

0 

0 

0 

0 

0 0 0 

0 © 

0 0 

0 

© © 

<0 

© 

0 0 

0 0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

o 

0 

0 0 0 

0 

0 

0 

0 

0 

0 

0 

0 0 0 








X 0 tH 









rl t LI 









H © 0 



CJ 

•H 

CJ 

CJ N 

N 

CJ 

rH CJ 0 



0 

rH 

© 

0 0 

0 

o 

rH CJ rH 



0 

0 

0 

0 0 

0 

0 

H H rl 



CJ 

rH 

X 

rn n- 

rn 

CJ 

Ml t 



0 

X 

LI 

N X 

X 

0 

rH 0 rH 



rH 

0 

rH 

rH 0 

© 

rH 

rH rH rH 



rn 

cj rn 

rH 

h rn li cj rn 

in © 

H in H 

0 rf 0 Q 

0 

in 

0 

li in 

0 

rf r- rH f- rf 

rH rf 

IDHH 

cj cj li n- 

^f 

rH 

rn 

© rn o 

0 rH m rH 0 

rn h 

h rn rn 

H H O i0 

0 

CJ 


c j in in 

in in 

0 rH 

-t 

N 

o rn -t 

bl 0 

rH 

cj in x 

CJ 

X CJ 

rn 

X N 

CJ 

rn 

rn rn 

CJ CJ CJ 

CJ CJ 

rn r n 

rn 

rn 

't’t’t 

n- in 

LI 

li in li 

X 

x r- 

r- 

r- n 

0 0 

0 0 

rH rH rH 

rH rH 

rH rH 

rH 

rH 

•H rH rH 

rH rH 

rH 

H ri rl 

rH 

tH rH 

rH 

rH rH 

CJ 

CJ 

CJ CJ 

CJ CJ CJ 

CJ CJ 

CJ CJ 

CM 

CJ 

CJ CJ CJ 

CJ CJ 

CJ 

CJ CM CM 

CJ 

C J CJ 

CJ 

CJ CJ 

CJ 

CJ 

CM CM 

0 0 0 0 0 0 © 10 

0 

0 0 0 

0 0 

0 

0 0 0 0 0 0 

'0 

0 0 

0 

8 

0 0 

0 0 40 0 0 0 0 0 10 0 0 0 

0 0 0 

0 0 0 0 0 0 >0 0 0 0 0 

0 © 


Page 18 


Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 


June/July, 1976 


166 















X 

0 

0 


X 

0 



















Y- 


X 

0 























X 





X 


K 

4—4 



















z 


0 
















UJ 







—1 


X 





X 

H- 



















-1 


X 


X 






0 








3 

12 






X 


0 



Y- 


0 

2 






X 












0 

0 




0 






3 


X 

3 




0 


O 

IS 




X 

4-4 


0 



X 

0 


0 






0 





h- 







-T 

o 


Y- 

X 

0 


X 




0 


0 

0 

3 



0 

•X 

o 



h- 

0 

'V 


X 


X I/I 

X 

z 

1/1 






X 

0 





4—4 







4-4 



X 

0 

X 


0 




X 

0 

0 

0 

O 



hi 

_> 

Ll 

-1 




0 


rH 


H 0 X 

1— 

4—4 

0 

01 




0 

0 

X 





21 



X 




X 

X 


X 

Y- 


H 

Y— 




> 

X 

X 

X 

0 



X 


U. 

x 

IX 

(X 

3 

X 

X 


0 

>—« 

0 LU 

01 

0 

> 

01 




1— 

0 






4-4 



X 




I- 

X 


h- 

2 

0 

4—4 

Z 


0 



0 


X 

X 

X 


X 0 

z 

hi 

X 

0 X 

0 

Q 


0 

1 

T 

ZI 

X H 



0 

0 




0 

X 

3 





0 



X 




0 

I 


0 

4—4 

z 

7~ 

4—4 


z 


z 

1— 

Y- 

0 

X 

0 

X 

0 0 

UJ 

> 

UJ 

0 0 

0 

0 

X 

0 


X 

4-4 

01 

H 

3 

z 

X 




X X 


0 


Y- 






0 

o 




o 



0 

4-4 

4-4 

0 

0 

X 


0 

0 

z 

J> 

0 

h* 

0 

0 X 

Z 

o 

> 

•X 

X 


0 

X 

h- 


0l"H 

X 

0 


0 

0 



0 0 

h- 

z 

1- 

o 


H 

h- 




>< 


0 

0 



0 

X 

0 

0 

X 

z 


3 

z 

4-4 

0 

0 

> 

0 

0 




0 

UJ 



hi 


2 

x 


X 0 

hi 

Z 


0 

X 



0 1- 

4—4 


X 

Y- Z X 

4—4 

X 

H 

in 


0 


z 

z 

Y- 


Z 





4—4 

X 

0 


0 

X 


0 

X 


X H 

X 

IX 


lL -J 

Ll 

(X 


hi 

~i 

2 

hi 

X 0 

Ul 



X 



u 

X 01 

Z X 

h- 


4—4 


2 


Z 

0 

*x* 



cc 


z 


4—4 

X 

1— 

0 

0 

0 

o 

0 

X 

hi 

X 

X 


X 

X 

hh Z 

'X o 

u. 

0 -« 

o 

X 

IS 

z 

0 

►—4 

j- 

Y- X 

Z 

Z 

0 


zi 


*5 

4—4 

4— 1 h- 

X 

X 

Z X 

X 

4-4 

X 

0 

01 

0 

0 


z 

X 

0 


0 

3 

X 

> 

z 


0 

X 

X 

X 

3 

0 

X 

X 

o 

0 

X 

x 

4-4 

UJ u_ 

Ul 

I 

hi 

4-4 

O 

0 

0 Ul 

4—4 

4—4 

> 

0 



0 

0 0 

0 X 


4—4 

4-4 4—4 

4—4 

0 

4-4 

z 

01 

2 

ill 


z 

4—4 

7~ 



0 

0 

0 

4—4 

H 


X 

E 


0 

X 

4-4 

I 

X 

z z 






o 

z 

0 



ZI 

hi 



0 

0 

0 



0 0 

0 

0 


0 




Ul 

0 


0 


0 


0 

0 


4-4 

z 

z 

0 

X 

0 

0 


0 




0 


X 0 

iS 

1- 

Cl 

0 UJ 

0 




X 

ZI 


UJ 0 

0 

0 

z 


1— 

A 

0 

X X 

0 

X 

H* 

X 

Y~ 

X 

X 

X 

X 

0 

h- 


o 

X 

X 

a 






0 

0 

> 

0 

0 

0 

y- 

X 


h- 

3 X 

•I 1 A 

ZI 

X > 

x 

0 

Y- 

3 

X 

X 

H- 

z 

X 

> 


0 


0 

> 

0 

X Y— 

0 

1/1 

3 Z 

01 

0 

r 

o 

0 

> 

01 



z 

o 

4—4 



h- 

1— 

1“ 

0 

z 

o 

X 


X 

0 

21 

H- 

0 

h- 0 

0 

x 

5 

O 0 

0 

0 

hi 

hi 

X 

0 

X 

— 0 

0 

o 

/*% 

Y- 

0 

z> 

X 

0 O 

0 0 

H— 

0 

0 0 0 

4-4 

0 

0 

0 

0 

0 


Y- 

3 

0 

3 


0 

0 

0 

0 

z 

4—4 


0 

0 

0 

0 

3 

0 

0 

0 Z 

_J 

1- 

*-> 

_l z 

0 

X 

in 

z 

o 

X 

01 

0 Y- 

0 

z 

X 


0 

4-4 

01 

in 0 

0 0 

in 

1- 

0 ►-> 

1- 

I 

*■> 

0 

X 

z 

X 


3 

*-> 

0 

Y- 

Cvj 

0 

0 

01 

0 

4—4 

X 

> 

0 

Y- 

0 

j— 

•“> 

0 

1- 

X 4—4 















0 

1/1 

H 

01 















X 




+ 







X 























V 

01 

Z 

0 















z 




X 






1 

O 










01 


z > 












0 

0 

0 















4—4 




~1 







Z 









X 

_j 

z 


2 

K 



0 

h- 

X 

> 

1- 

X 

z 

o 



0 



J— 



z 



z~ 




0 



0 

h- 

l - 

0 

X 

h- 

0 

0 

X 


X 

0 

0 




•I 

H 

x 

LL 0 

X 


X 

Z 



X 

2 

H 

o 

X 

0 

0 

z 


H 

L 

X 


0 

O I 


0 



X 



0 

jr 



4-4 

Z 

0 

X 

h- 

z 

z 

z 

X 


h- 

j— 

X 

z 



ZI 

!?• 

o 

x z 

X 


X 

X 



> 

X 

Z 


0 

0 

X 

4—4 



I> 



2 

, 


0 







Z 




X 

0 


Z 

0 

4—4 


2 


Z 

> 

Q 




r 

o 

z 

UJ X 

Ul 

X 

UJ 

*—1 

o 

X 

z 

4—4 

X 

0 

4-4 

X 

u 

••J 

0 

B 

C 

Z 0 

0 

X 

0 X 

X 

0 

X 

0 

0 

z 

0 


4-4 

4-4 

0 

O 

X 

4—4 

z 

Z 

X 

o 

Y- 

X 

Z 


X 

o 

Z 

X 

rl 

I 















X 


0 
















0 










3 

o 









ill 

-J 


0 0 

0 


0 

0 



0 0 0 

0 

0 


0 

0 

01 

I 


0 X 

V 
















0 

0 

0 

0 

0 

0 

X 

0 

0 

0 

0 





-J 

_J 

o 

0 0 

0 

0 

0 

0 

X 

0 

0 0 X 

0 

0 

1- 1 

I 


1/1 

01 

:> > 

0 X 

ai 

> 

X N 

> 

X 


X 

X 

X 

X 

H- 

0 


X 

X 

4—4 

0 

0 

0 

0 

0 

Y- X 


0 

I 

0 

0 


> 

4-4 

X 

I 'I 

z 

X X 

I 

X 

X 

I 

o 

X I I 0 

X 

X 

0 


1/1 

0 

0 

O 0 

X 0 

1— 

0 

Z Z 

0 

jr 

N 

o 

u 

z 

o 

Ui 

0 

o 

o 

Q 

X 

I 

X 

I 

X 

X 

0 

0 

I 

Cl 

I 

X 

o 

o 

X 

N Z 

_l 

Cj 

*"> 

0 u 

0 

0 

Ul 

0 

0 

0 in 0 x 

0 

o 

X > 

z 

4-4 

X 

X 

z z 

0 0 

01 

z 

o •-> 

z 

O 

►-> 

0 

0 


X 

X 

3 

*■> 

0 

0 

0 

0 

0 

0 

0 

o 

X z 

1— 

0 

X 

0 

0 


z 

0 

x 















0 

o 


0 















z 










X 

0 












lal 











z 

X 

0 

0 

> 


z 







Y- 



z 


4—4 

0 









X 

0 

z 



H 








0 











X 

X 

I 

X 

0 


X 







y 



o 


«/1 

01 









0 

I- 

X 



X 








in 















z 


x 







z 



0 



z 











X 



X 








z 











* * 

* 

* 

* 

* X 


z 







X 



X 

■j 

fr * 

* ►-* 









* * 

* 

* 0 



0 






H m 

Tf- 

H M 

H 


H 

H 




rl 






H 



rn 



M 



M 



rn 



rH 

rH 

CM 

rH 

rH 

(A 


rH 


rH 

(A 





H 0 

0 

H 0 

H 


H 

rl 



•H rH 

H 

'S' 





tH 



0 



0 



0 



o 



rl 

rH 

0 

rH 

rH 

0 


rH 


rH 

0 

■S' 




0 0 

0 

0 0 

0 


0 

0 



0 0 

0 

0 





0 



0 



0 



0 



0 



0 

0 

0 

0 

0 

0 


0 


0 

0 

0 




H N 

n 

rn h 

n 


M 

ID 



ID ID 

H 

CM 





ID 



M 



0 



N 



’t 



’t 

ID 


Ul 

rH 

0 


rH 


rH 

N 

tA 


rH 


Ul CU 

N 

'■D CM 

U) 



in 



UI> ITi 

*■0 






'0 



’t 



ID 



CM 



N 



r- 

Ul 

0 

W 




ID 



CM 

N 


0 


o n 

rl 

0 CM 

0 


0 

o 



0 0 

0 

0 





0 



CM 



CM 



CM 



0 



0 

0 

0 

0 

0 

rH 


0 


0 

M 

rH 


0 


cu ID 

CM 

CM ID 

CM 

tH 

CM 

CM 

Ul 

■H 

CM CM M 

CM 

Ul 

tH 

ID 

’t 

ID 

CM CM 

CM 

Ul 

H CM 


0 

CM 


n 

(A 

rH 

rH 

CM 

Ul 

ID 

rH 

CM 

ID 

CM 

CM 

ID 

H 

CM 

iA 

CM 

ID 

CM 

LU 

U) 

O M' 

ID H 

CM 

Ul H 

In 

H 

’t 

Ul 

rH 

H 

rt ID ID 

ID 

rl 

rH 

0 

'S' 

rH 

ID H 

CM 

N 

r- 0 

N 

N 

rH 

H 

M 

0 

0 

H 

M 

H 

H 

’t 

-t 

rH 

’t 

’t 

rH 

rH 

ID 

Ul 

Ul 

rH 

n 

r- 

K 

rl 

0 M 

cn 

0 M 

o 

O 

0 

0 

0 

0 

0 o i-n 

0 

m 

rn 

M 

rl 

rH 

0 0 

0 

rl 

CM M 

rH 

CM 

M 

0 

o 

M 

M 

M 

f-n 

0 

0 

0 

0 

(A 

0 

0 

(A 

fA 

0 

(A 

0 

n 

M 

rH 

rn 

fA O' 


0 

fA 

CD 

H ’t 


CM 

M 


rH 

CM 

fA <0 H 

CM 

Ul 

0 

rl rl 

rH 

rH 

rH 

rH 

rH 

CM fA 

•* N 

0 

rl 

CM fA LU 

N 

0 

M 

’t 

ID 

0 

rH 

CM 

CM 

CM 

CM 

ID 

'•£> 

N 

CM 

Ul 

0 


LU 

rl 

CM CM 

CM 

CM 

CM 

Ul 

LU 

rl 

’t 

N 

o 

cm n' 

ID 

ID 

Ul 

'■£> ^ 


N 

N 

rv 

0 

0 

0 0 rH 

rH 

rH 

CM 

CM CM 

CM 

CM 

CM 

CM 

CM 

CM CM 

CM CM 


iA 

M M (A 

fA 


’t 

't 

’t 

in 

IT' 

Ul 

ID 

Ul 

m 

m 

w 

ID 

LD 

LU 

N 

r- 

r- 

0 

0 0 

0 

0 

•S' 

0 

0 

rl 

rl 

rl 

CM 

CM CM 

rH 

rH 

rH 

rH rl 

rl 

rH 

rH 

rH 

CM 

CM 

CM CM CM 

CM 

CM 

CM 

CM CM 

CM 

CM 

CM 

CM 

CM 

CM CM 

CM CM 

CM 

CM 

CM CM CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

(A 


fA 

fA 

tA 

fA 

tA 

fA 

fA 

n 

fA 

tA m; 


iA 

fA 

rn m 

m 

iA 

M 

(A 

fA 

fA 

M fA fA 

fA 

(A 

fA 

(A iA 

fA 

fA 

n 

fA 

M 

(A fA 

m rn 

fA 

M 

M fA M 

fA 

n 

M 

n 

iA 

M 

cn 

1 A 

iA 

M 

fA 

M 


fA 

(A 

M 

M 


fA 

fA 

fA fA 

(A 

(A 

fA 

fA 

iA 

fA 

fA 

n 

fA 

fA fA, 

0 

0 

0 

o 0 

o 

0 

0 

0 

'S' 

0 0 0 0 

0 

0 

0 

0 0 

0 

0 

'S' 

0 

0 

0 0 

0 0 

0 

0 

0 0 0 

0 

o 

0 

o 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

O 

0 

0 

0 

0 

0 0 

0 

0 

0 

o o 

0 

0 

0 

0 

0 

0 

0 0 0 

0 

0 

O 

0 0 

0 

0 

0 

0 

0 

0 0 

0 0 

0 

0 

0 0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o 

O 

0 0 

0 

0 

O 

0 

0 

0 

0 

o 

0 

0 0 







h- 
































h* 









01 


z 
































3 





Y- 




UJ 


3 






0 




















X 






x 



H 


z 






0 





2 

X 




















0 

X 





z 



Z 


3 




X 


0 





LU 

V 

in 



















0 

X 


X 



4-4 



3 


0 ^ 


in 


X 







XXX 

X 




■•A 

01 










SI 




X 

Y- 


0 






0 


0 X 


01 


01 


2 

X 




3 

X X 

X 




h- 

X 










0 





0 


0 X 



X 



0 


0 


hi 


X 


Z 

X 




1- 

0 in 

i- 




-1 

X 










X 




H 

X 


X X 



X 





X 


X 


X 0 


—i 

Y- 




X 

0 x 

01 




0 0 

h* 










h- 


X 

X 

X 

X 


H 

h- 


I 



X 


X o 

X 

X 0 


H h- 


0 

0 


X 


XXX 

4—4 




X 

in 










01 


0 

z 

X 

X 


X Z 

4-4 


1— 


X 

X 


I I-. 

UJXOO 

X 



0 

X 


\ 



X X 

0 




0 > 

4—4 












'I 

4-4 

H* 

I 

X 

Z 4-4 

z 


0 


0 

X 


0 ^ 

1- 0 

hi X 

X H X 


0 

X 

X 

0 


0 


X 




Z h- 

0 








X 


H 


01 

0 

1/1 

0 

\ 

X 0 

4-4 

X 

z 


0 

0 



O UJ 


H 

0 x 



X 

\ 



X 

0 m 

X 




X Y- 

X 






X 


h- 


X 


01 




0 

* ■ . 0 X 

0 

z 

X 


X 



+ X 

X 

X 1- 


Z 1— 


H 

I 0 

X 


0 

Z X 





I 

X 






H 


X 


01 

X 

X 

3 

X 

H 


0 


4-4 




H 


o 

X X 

*- Z 

X 



Z 

0 


4—4 


2 

4-4 U 

0 




0 X 







X 


0 


X 

0 

z 

X 

3 

i/I 

X 

X 

X 

0 

X 


X 

z 


X X 

X 0 

hi 

O 

X 1- 


X 


X 



XXI- 

0 




0 

X 






0 




X 

0 


z 

X 

X 

0 

X X z 

> 


0 


o 

X 


0 

I X 

Z Z 

X 

4-4 X 


2 

h* 

4—4 

z 


I 

3 i/I 

X 




2 

Y- X 








Y- 

X 


X 

Y- 


4-4 

4—4 

X 

HXH 

o 

Y- 

X 


X 

z 


0 3 

o 

X UJ 


X 


X 

3 


X 


0 

0 •-« 





O K 

3 O 






K 


3 

Z 



2) 

H 


X 


Z 0 

z 

X 




X 

0 

X X 

H* 

3 X 

h- 

X > X 

X 

X 

1- 

3 

X 


0 

X 




*-• > 

X Y- 






□ 


x 

4—4 


0 

X 

3 

0 


h- 

X 


X 

X 

X 

0 

X 


z 

H 01 

h- 0 

01 

r ^ 

0 

0 

H 

m i- 

0 


H X 





Y- h- 

Y~ 01 






X 

X 

h- 

1- 


01 

1- 

X 

X 

h 

01 

Z h h 

1“ 

Pi 

o 

z 

X 


II 

X 

LU hi 

LU Z 

X 

3 O 

0 

2 

3 

X 

X 

in 


3 X 

X 




0 ^ 

3 X 





X 

z 

2 

3 

D 


1/1 

3 

z 

0 

X 

X 

0 X X 

X 

z 

0 

4-4 

o 

z 


0 X 

0 1- 

X *-« 

h- 

*“• (J 

-i 

4-4 

0 

K 

X 

0 

ui 

X 

01 




3 

0 X 





z 

4-4 

4-4 

0 

0 


z 

0 

4—4 

0 

0 

h- 

0 0 in 

in 

4—4 

0 

Y- 

0 

4-4 

X 

x »-« 











2 

H- 0 





X 0 






4-4 


H 


X 

v 











3 









CM 





CM 

4—4 

3 0 





z 






Y- 


~l 



X 

in 



X 







o 









+ 





+ 

1- 

0 X 





in x 






=' 


0 


0 

h“ 

z 



3 







X 








rH H 

H 


Y— 



H 

3 






z z 

O 





o 


X 


Z 

01 

z 

X 

2 

X 



Z Y- X 

0 

1- 

X 


z 






X 

0 01 

Q 


0 



0 

0 

> 




~7 

*“* Z 

1- 3 





X 

h- 


H 

X 

-V 

4-4 

Y- 

4-4 

4-4 

Z 


O 01 1- 

X 

z 

0 

h 

X 


0 




X 

Z X 

2 


H 

(A 


z 

X 

h 




01 

0 

> 01 






> 

Y- 

> 

2 

X 


3 

H 

•v 


M 

0 0 Z 

> 

X 

z 

X 

X 




X CM 

I 

H 

_l h- 

0 

X 0 

rH 


0 


I- Z 

I 

0 

X 

X 

0 0 

Y- X 

X 

0 

I 


Y- 

K 

3 

K 

Z 

1/1 

I 

0 

0 

I 

X 

rH 

4-4 2 X 

z 

0 

4-4 

X 

X 

o 

X 

X 











H 

O 





z 






3 


X 


0 












01 








_l 



0 




3 

0 « 

III 

I 

- z 

0 





X 


h* 


0 



0 

0 




0 0 

0 

0 


z 

0 



0 


X 

4-4 

N -J 

X 

X 

0 

4—4 


X 

0 

Z H 

01 

oi in 

in 

3 H 

0 X 

X 

X 

X 

1- 

2 


Y- 3 

h- 

Y- 

4-4 

4-4 

0 

0 

4-4 

> 

4-4 

0 0 

z 

0 

X 

4-4 

0 

X 

4-4 

0 I 

0 X 

o z 

X 

Z X 


z 

X X 

N 



X 3 

3 3 3 

S' 

0 3 

X 0 

o 

0 

0 

X 

4-4 

z 

X 0 

3 

X 1- 

X 

X 

X 

■r 

X 

'S' 

X 

N X I 

I 

•X 

2 


I 

z 

> 

X 0 

z o 

x 

o 

0 


0 

0 

X 


X 

0 

X 

X 

X 

X 

0 0 

0 X 

X 

X 

X 

X 


4—4 

X 

0 

X 3 

0 

0 

0 

0 

0 

2 

0 

*-> O 01 

in 

0 

*-> 

X 

0 

4-4 

z 

0 X 











1- 

1- X 





0 








h- 


X 












z 










rH 





X 

> X 

Y- 




0 > 

rl 





> 

4-4 

> 

0 

z 

0 



X 








4-4 

h- 









Q 





0 

H X 

0 




X X 

0 






K 

1- 

h- 

4—4 

2 



0 








0 

z 









2 







1— 





H 






> 


> 


z 



z 









X 









0 





■iC ■* 

■£ * 

* 0 





* 0 





f: * 

* h- 

* i 

(• h- 

♦ * 

•f: *-4 











* * 

* 0 









iA LU M 


M 


fA 



M 







r- 

0 

CM 

*t 

rH 



0 CM H 

rH 

M 

tA 

rH 









0 0 0 


0 


0 



0 







-t 

H 

0 

•S' 

rl 



0 0 rl 

rH 

0 

0 

rH 









0 0 0 


0 


0 



0 







M 

0 

0 

0 

0 



0 0 0 

0 

0 

0 

0 





CM 




0 CM 0 


CM Ul' 


0 



rl 





0 

0 

0 

fA 

CM 

ID 

CM 


ID 

CM tA rH 

ID 

0 

ID 

fA 


0 



0 



CM 

rt LU CM 


U - ' rl 


CM 



N 





0 

0 

0 

0 

0 

-t 

r- 


rl 

iA 0 LU 

ID 

-t 

O 

LU 


5 



0 



0 

0 fA 0 


0 0 


0 



0 





0 

0 

CM 

0 

rH 

0 

o 


O 

rl 0 0 

0 

rl 

rH 

0 


0 



LU ' U 

0 

iA 

LU 

CM ID fA 


Ul X 

0 

n 

Ul ID ID 

Ul 

Ul H 

rl 

rl 

rH 

rl 

M rH 

tA rH 

rl 

rl 

ID 

ID 

rl 

'■U 

LU 

CM ID CM 

CM 

ID 

tA 

CM 

’t 

LU 

rH 

tA 

r -_ r - 

iA 

rj- 

r-- 

0 rH 0 

0 

rH r- 

rH 

0 

rj- CM o 

LU 

rl LU 

0 

CM 

"t 

rH 

iA rH 

CM rl 

LU 

’t 

rl 

rl 

’t 

r- 

r- 

rl rH ^ 

’t 

rl 

0 

ID 

rl 

Q 

rH 

ID 

rl fA 

iA 

0 

r a 

fA M (A 

0 

M M 

M 

rn 

n n tA 

n 

M fA 

fA 

rl 

tA tA 

tA tA 

M fA 

0 

0 

tA 

fA 

0 

rH 

rn 

tA m 0 

0 

tA 

M 

O 

O 

0 

0 

tA 


0 rl 

m ’j- 

ID 

r- 

CM ID 

0 rH ’t 

•U 

r- cm 

CM 

CM CM 

CM CM f A A 

Ul ' U 

LU 

LU 

LU LU rl 

CM 

M 

A 

Ul 

LU LU 

LU 

LU 

0 

H 

rl 

rl 

rH 

fA 


’t 


-t 

r- 

CM 

ID 

0 

fA 

LU 

•-U 

H •* 

r- 

CM 

Ul 

0 

0 

0 

0 

n 


LU 

N 

CM CM 

CM CM 

CM 

CM 

M M 

•M- A- rj- rf 

A- Ul 

Ul 

ID ID 

ID Ul Ul ID 

ID ID 

n 

m 

U‘ ID LU 

LU 

LU 

LU LU 

LU LU 

LU 

LU 

N 

r- 

r- 

N 

N 

1- 

r- 

r- 

N 

N 

N 

0 

0 

rl 

rl 

rl 

rH CM CM 

CM 

fA 

f*1 

A 


A 

A 

A 

’t 


A 

0 0 

0 0 

0 

o 

0 0 

0 0 0 

0 

0 0 0 

0 0 

0 0 0 0 

0 0 

0 

0 

0 0 0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o 

0 

0 

0 

rl 

rH 

rl 

rl 

rH 

rH 

rH rH 

rH 

rH 

rl 

rl 

rl 

rH 

rH 

rH 

rl 

rl 

rH 

M fA 

fA rl 

M 

(A 

m rn 

rl fA fA 

M 

M \'A 

tA 

m M 

tA tA tA tA 

fA tA 

i A tA 

fA tA tA 

rl 

tA 

M 

fA 

fA tA 

tA 

M 

M 

(A 

M 

rn 

M 

n 

M 

(A 

rn 

tA 

tA 

M 

n 

tA 

tA 

tA 

fA 

M fA 

(A 

tA 

tA 

fA 

fA 

(A 

tA 

(A 

M 

n 

fA 

0 0 

0 0 

0 

0 

0 0 0 0 0 0 

0 0 

0 

Q 0 

0 0 0 0 

0 0 

0 

0 

0 0 0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 0 

0 0 

0 

0 

0 0 

0 0 0 

0 

0 0 

0 

0 0 

0 0 0 0 

0 0 

0 

0 

0 0 SI 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

O 

0 

0 

0 

0 

O 

0 

June/July 

, 

1976 


Dr. 

Dobb's Journal of 

Computer 

Calisthenics 

& 

Orthodontia, 

Box 

310, 

Menlo 

Park 

CA 

94025 





Page 


19 



167 



X 
III 

H CL 

Z LU 

- CL h- 

O 111 CL O CL 

X t— X X X 

CJ h- X h- 

CL X oi <r 01 

LU CL h I h 

x <r cd o o _ 

XIX X CJ X X 
D U CL h- CL <# *-* 

X D CO »- 

—J LU O Cl Dh 

K J CO h CL W 

UJHQDOIUZIU 

oixi-xh-oi>-«i- 


o ¥ 

CL 


h 
Z 
h- ZD 
D O 
O U 
CD 

h D (L 
D X X 
-JO X 
X X h- CJ 
-•DO 
Y Ct 2 h 
Z 

X X X X 
LU 

X t— X X 
E W Z O 
DLUDLU 
>->»-»-> d 


z 

D 

O 

a 

lu z 
> z 

- o 

H _l 
X O 
CD CJ 
LU 

Z h- 

z 

X LU 

- Z 
LU 

Cl CL 
Z O 
D LU 
*-> C> 


CL 
CL X 
LU Li. 

H Li. 

O O 
CL X CO 
Cl X 

Cl X O X 
11 h \ 
(J o 
h- CL 

zi-iuq: 

UJXhO 

ZlllOlL 

lu z x 

CL CL h- 
OhXW 
UJ UJ I LU 
O (DU h 


I 

© 

t X O © -• Z X Z X 

Z X X X X rH »- o ox 

X ►-« -v X ^ > h- h- H x > M 

HLLUQCOOlhlUOQWUClCDIZZH 


JI>I>h Ju. X N CL X X X > •-• 







»- 

"1 


X 

r> 


CD 





z 

o 


X 

o 


LU 

H 




D 

o 


y- 

o 


X 

D 



in 

o 







X 



01 

o 

z 


1- 

z 

X 

X 

z 



X 


z 


o 

r- 

X 


*—« 



X 

X 

D 


z 

o 

o 

X O 




Cl 

X 

-I 



-J 

X 

X h- 

X 



Cl 

X 

o 

X 

X 

o 

X 

(J 

X 

X 

X 

X 

o 

o 

X 

H 

o 

01 

1— 

z 

X 

X 




H 




X z 


z 

I 

y- 

y- 

K 


X 

y- 

X 

-• o 

X 


o 

z 

z 

z 

X 

X 

z 

g 

o 

o 

X 


X 

UJ 

X 

o 

I 

hi 

X 

z o 

X 

*—« 

X 

Z 

z 

z 

X 

o 

z 

X 

X 



_1 

UJ 

UJ 

111 



X 


D X 

h- 

X 

£ 

X 

X 

CL 

y- 

H - 

X 

o 

H X 

01 

o 

o 

o 

g 

g 

01 

X 

o 

I 

LU X 

X 

o 

x 

z 

z 

z 

x 

X 

X 

o 

X O 

K 

_J 

X 

M 

*"■* 



z 

d 

X 


x 

X 






I 


y— 

O 

X 

o 





X 

o 


01 

* 

z 

X 





X 

X 


X 

X 

o 

z 

X 

I 

o 

X 

y- 

z 

X 

h- 

> 



> 

X 

X 

X 

t-t 

N 

X 

-1 

N O 

X 

N 

o 

z 

z 

z 

Cl 

z 

g 

£ 

X Z 

o 

•-> 

z 

►-* 


>— « 

o 

*-> 

d 

o 


I 

o 

X 

z 


X 

o 





h- 













t-l 

o 






-S* 





g 









o 






1- 





X 







X 

CM 



X 









H 


X 







X 

X 

X X 


X 


o 





X 


g 





o 

> 

X 

Cl 

o o 


X 


h- 




X 



X 





h- 

X 

X 

Cl 

X 


X X 

z 





Cl 

L— 


X 






2 

o 

X 

o 


X CD X 

UJ 

y- 




Cl 

X 

y- 

X 





y- 

o 



h- H 


ICO 

z 

D 




X 

X 

> 

X 





z 


H 

X 

X 


Z X Cl 


X 





X 

t- 

21 





D 

X 

z 

z 

X 

Cl 

01 X 

X 

h- 




X 

X 




\ 



o 

M *-* 

X 

►—1 

X Cl 

z 

y- x 

X 

D 



X 

3 


o 

H- 

z 

3 



o 


z 

X 

•-« Cl 

X 

O Z h- 

z 

o 



o 

X 


h- 


u: 

o 




X X 

X X 


X 

z 

X D 





X 

01 



LL 

D 

X 



X 

z> o 

X o 

1- 

X 

z 

h- Z X 

1~ 

X 



X 

X 


X 

y- 

H- 

X 



X 

Z X 

o »-« 

X 

z y- 

o 

D X Z 

X 

\ 



X 

UJ 


\ 

o 

X 

X 



I 

GL 

X 3 

X 

D X 

o 

o z *-* 

X 

o 

\ 



z 


o 

o 

X 

X 



o 

Z X 

Cl H 

z 

*-> 1 f\ 





X 

I 

3 


-J. 




> 








D* 

X 



z 

© 

o 

X 

X 




o 








X 

Cl 




CO 

X 

z 

y- 






z 






o 

X X z 

x 

X 

X 

+ 

X 

X 

X 

X 

CL 

h 



X 


h- 


h- 

y 


Z h H 

X 

X 

X 

\ 

X 

o 


X 

y- 

X 

X 

I 

z 

o 

X 


X 

h- 

X 

. D X 

z 

X 

z 

z 

X 


X 

X 

D Z 

z 

d 

z 


X 


X 

o 

z 

I O I 

z 

o 

\ 

\ 

> 

X 

X 

o 

o o 

\ 

CO 

o 

X 

M 3 

c 

c 

z 

X X 







o 








o 






X 

X X 

Cl 

X 






X 

X 








X 


X 

~ X X 

X 

X 1— 



> 

t-H 

t-l 

X 

X 

X 



Cl 

> 


X X 

X 

X 

z 

XXX 

X 

X X 

3 

X 

X 

X 

X 

X 

X 

z 

3 

X 

z 

g 

D O 

o o 

X 

o o 


X o o 

X 

O X 

Cl 

Cl 

o 

X 

X 

o 

o 


Cl 

Cl 

X 

z 

L0 ►-) 

Cl Cl 

o 

*“> Cl 

►- 






z 








X 






X 

X 



X 


X 

X 





X 


X 

Cl 





X 

o 



Cj 


7" 

X 





z 


X 

z 






z 



X 



o 





X 



X 





* * 

z 



z 

* 

* * 

z 





o 

■i 

y * * 

X 






H 

H 


H 



M 






















*•0 


H 

H 


rH 


© 

© 


© 

Q 


g 



© 






© 






© 


s 

© 

o 

© 


© 


© 

© 


© 

© 


© 



© 






© 






© 


© 

© 

in 



N 


© 

^0 


in 

CM 


in 



^0 


in 



© 

•0 





rf 

X 


CM 


in 

’t 


’t 


5 

■0 


’t 

rH 







H 



H 

L0 





CM 

X 


U) 

*0 

Q 

o 


© 


© 

© 


© 

rH 


© 



© 


© 



rH 

© 





© 

© 


M 

© 

CM 

CM 

r%- 

CM 

r- 

’H 

in 

m 

CM CM CM 

in 

CM 

in 

n 


X 

•■0 

© 

H 

X 

CM 

‘•0 

M 

't 

Tf 

X 

CM 

in 

in 


J 

r- 

n 

N 

CM 

© 

rH 

X 

h r 

- © 

rl 

r- 

© 

in 

© 

X 

r^- 

rH 

N 

N 

rH 

r- 

’t 


© 

N 

© 

© 

rH 

© 

o 

© 

tH 

© 

H 

© 

M 

CM 

n cm m 

© 

n 

© 

© 

n 

H 


(A 

rH 

M 


rH 

© 

© 

© 

M 

m 

© 




© m 

10 

fC CM (A 

10 H CM m 10 

rH CM in 

10 

N CM 

n 

in io 

N 

rH rf in 

io 

r- © 

CM 

in 

10 

»-H 

Tf 

rf 

in in 

m in x io io i '- n fc r- 

© © © 

© © rH 

rH 

rH rH 

rH 

CM CM CM 

CM 

CM M 

n 

M 

n 


rj* 

© © 

©©©©©©©©© 

rH rH rH 

rl «H rH 

rH 

rH 

rH 

rH 

rH rH rH 

rH 

rH rH 

rH 

rH 

rH 

rH rH 

rH 

*r 

■t 

A A A 

*t rt 

’t *t 

A 

A- A- 

’t 

A 



*t 

A 

't ’t 

’t 


rt 

■’t’ 

rf 

© © 

© © © ©©©©©© 

© © © 

© © © 

© 

© © 

Q 

© © © 

<9 

© © 

i 

© 

'E' 

© © 

A 

© © 

©©©©©©©©© 

© © © 

© © © 

© 

© © 

© 

© © © 

© 

© © 

© 

© 

© 

© © 

© 









> 



h- 

z 














h- 



X 



“1 














z 



X 



o 














X 

01 


z 



o 












3 


z 

X 


►—< 







01 








o 

rH 

►H 

X 


X 



in x 


h- 


X 




X 


X 


CL 



h* 





• o in z 


LL rH 






o 




CL 

+ 

# 

01 


o 



111 CM rH 

o 

Cl z 


01 




X 




o 



LL rH 


y— 

CJ 


CM X 

X 

Cl rH 


01 






h 


X X 

01 

o 

Cl © 





A 

X 

X X 


X 




H 


X 


1 

X 

z 

Cl X 


*■ 

o 


V H 

N 



X 




X 


01 


1 I 

z 


X X 



y- 


X z 


X X 


Cj 








1 

LU ►-« 

X 



y— 



X rH LU 

X 

o > 


Cl 




X 


!*■ 


X Cl 

Z X 

H 

# CJ 


X 

y- 

rH 



X o 


X 






X 



H 




X 

X 


X X 


z 







X 

X 


z z 

H X 

X 

Cl X 


j- 

D 

01 

y- o cl 

X 

Cl 


y- 




X 

o 

X 

X 

CL CL 

D O 

z 

X 


z 

01 

D 

01 X CJ 

z 

X l- 


CL 

01 



z: 

o 

o 

Cl 

o o 

o 

X 

o o 


o 

X 

X 

XXX 

o 

O X 


X 

01 



D 

X 



X X 

X * 

*-> 

x y- 


CJ 

X 

X 

H X Cl 

Cl 

X 01 


h- 

X 





1 

z 













in 

X 






X 


Cl 












Cl 





X 

I 


z 











X 

d 




rH 

X 

l- 


X 

CJ 

y- 


z> 



y— 


Z Cl 



X 


h- 

£ 

X 

X 

X 

Cl 

Z CM 

o 

Z X 

X 

u 

X 


X 


X X 


►h 



01 

y- 

X 

X 

CL 


z «. 

X 

X . 


X 



X 


X > 


X 



X 

o 

X 

z 

X X 

L 

R 

H 

o o 

Cl 

rn LU 

<J 

Cl 

CJ 

o 

H 

w 

c 


X z 



X 


z 

X 


o 

y- 


o 











h- 

X 





o 

X 




Cl 


X 





Cl Cl 



h- 


X 


X 


X > 

CD > CD h 

X rH 


X > 

> 

X 

> 

X 

X X 


X X 


LU 

01 


_J 


z 

X 

CL O 

D O ill X 

y- > 

o 

I o 

o 

£ 

o 

z 

CJ X CJ 

N 

11 


z 



X 

CJ 

*■> 

Cj 

CD Z 

01 Z X CL 

X z 

*-> 

X z 

z 

o 

z 


Cl *-> Cl 

X 

X 01 



X 


o 



X 



X 











»- 






X 

x in 


X X 







CJ 




X 

o 





I 

I l- 


Cl X 







o 




CD 







> 


X 







X 









* 

* 

* * o 

* 

* * a 







Cl 



♦ 

* 

* 

* 







© 






© CM 

r- 








’t 






^ CM 

CM 








© 






© rH 

rH 





A 

CM 10 

rH 

© © 

A 

N 

© 

CM 

© 

in in 

r- 


CM 

CM 

in 

© 

© © 

rH 

’t M 

© 

’t 

’t 

© 

© 

rH © 

rH 


© 

<9 

© 

© 

© © 

© 

M rH 

© 



© 

© 

rH H 

rH 


o 

© 

© 

’t 

CM 10 

rH 

io h in 

CM 

© 

10 

CM 

© 

in io 

A 


M © 

(A 

10 

io 

© M 

i n 

r- © © 

rH 

© 

r- 

© 

’t 

© CM 

rH 


© CM 

© 

M 

rH 

rH CM 

© 

© rH rH 

CM 

CM 

© 

rH 

rH 

rH rH 

rH 


© © 

© 

CA 

H 

in in 

CM 

in rH in in in 

rH 

rH 

in 

in 

m 

in n 

io in 

rH 

io cm in in 

in 

CM C A 

"t 

rH rH 

’t 

rH rH rH rH rH 


10 

rH 

rl © 

rH rH 

© rH 

N 

CM M rH rH 

rH 

M \f) 

© 

M M 

© 

M M rH rH \A 

© 

© 

m 


M 

rH rH 

rH CM 

rH 

CA CA © © 

CA 

CA © 


A- Tt N CM 

in 

© n 

’t 

© CM CA 

CA 

CA 


•0 

rH 


N 

CM 10 

CM 

CO N 

N 

N 

N 

© CM 

111 10 

N 

cm in 

a a *r in 

in 

10 10 

io 

N 

N 

N 

n r- 

N 


© 

© © 

rH rH 

(M 

CM CM 

CM 

CM 

CM M M 

CA CA 

CA 


rH rH rH rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM CM 

CM CM 

CM 

CM CM 

CM 

CM 

CM OJ CM 

CM CM 

CM 

CM 

CM 

A ’t 

’t 

’t 


A 

A 

"t 


A 

T 

A 

’t 


-t 

"t 

't’t 

-T 

’t 



't 

-t ’t 

’t 

rf- 


rj- 


© © © © 

© 

© © 

© 

© © © 

© © 

© 

© 

© 

*E> 

<9 

© © 

© 

© © 

© 

i 

Q 

© © 

© © 

i 

© 

A 

© © © © 

© 

© © 

© 

© 

© 

© 

© © 

© 

© 

© 

© 

© 

© © 

© 

© © 

© 

© 

© 

© © 

© © 

© 

© © 













01 

CD 




h- 























X 




H 



01 








X 












X 




z 



X 















CJ 






X 


rH 



01 








Cl X X 








X 




X 


d 


X 


y- 

01 







X 

Cl Cl 











X 

X 


d 



H 


X 







d 

O Cl Z Cl 



X 

X 




o 



Ci 

X 


X 

y- 

y- 

rn 

r~ 

CL 







d 

y- x 3 x 



h- 

w 

1- 



►- 


X 

Ci 

o 

X 


H 

X 

z 

rn 

Cl 







X 

o 



X 

H 

HH 





a 

X 

X 

X 

3 

z 



X 

d 








X Z Cl X 



Cl 

z 

r~ 



X 




X 

1- 

X 

HH 

y- 

X 


X 


CJ 





X 

Cl o o 




D 

t—< 



d 


z 

h- 


•J 

z 

X 

o 


1- 








X 

Cl w X X 



01 


X 



d 


t—« 

rH 

o 

X 



z 

X 

X 

H 


X 





X 

IhX 



X 

X 



o 

X 



V 

y- 

X 

l- 

3 


CD 


z 






Ll 

X H-. 3 



> 

Cl Cl 


*0 



X 

HH 


X X 

o 

X 


X 

X 


X 





z> 

X Z X X 



o 

Cl X 


ca 

X 


X 

X 

01 

X 


X 


I 




X 





X 

CJ ►-« z 



z 

X 

> 



u 




\ 

CJ 

X 





LU 


o 





CL y- hi 

X 




z 


X 

X 


X 

Cl 

X 


QC 

h- 

X 

►“ 

X 

X 


X h- 





d 

D 01 > 1- 

5 



X 



> 

D 



X 

Cl 

y- o 

01 


01 

z 

g 


O X 



X 


X 

O X O X 

o 



I o 


X 

o 


X 

o 

d 

X 

y- 

X 

D 

X 

D 

z 


O X 



z 


o 

01 Cl Z 01 

X 


ui 


h* 


01 

01 


X 

X 

X 

© 01 

»- 

•-> 

l- 


rn 


X CL 





X 




> 

o 




















H 






g 

y- ci 



















D 


X 




z 


X 



















o 


-» 

X > z 

CJ 



X 

h- 






Cl 





1- 


z 



X 



X 


X 

y- o x 

o 



Cl 

z 



d 

X 


X 



X 

CJ 

o 

X 

o 



X 





Z Z X 

X 


z 

d X 






> 





z 


Cl 






y- 



XXX 

Cl 


3 

X 

z 


X 

X 

CJ 


z 


X 

z 

X X 

X 

X d 

X 

X 

X 

X X 



D 


I 

CD Cl X Cl 



o 


X 



















X 





Cl 

X X 


X 



CD 

Cl 

a 

x 











z 



I X X X 

X 


V 

Cl o 


01 

> 

> 

I 

X 

X 

<r 

> 

> X 

N 

> X 


X 

XXX 





rn 

CJ X X I 

z 




z 


D 

o o 

o 

I 

CJ 

Cl o 

o z 

z 

o z 

N 

z 

z z 5 

X 




X 

X X CJ 01 

*■> 


1- 

r~ 

*-» 


X 

z 

z 

X 

X 

X 

X z 

Z (J 

*“> 

Z CJ 

*■> 


rn 

*-> X 

X 


X 


X 




X 

o 



















H 






X 

X X 


> 






X 








z 



X 


z 




X 

X 

Cl 


o 






X 






CJ 


o 



d 


rn 






* 


z 






z 






z 


d 





h- 



* 

* 

* 

♦ 

X 






X 






X 


X 


* 

♦ 

* 

d 


CA 







M 

rH 



io 




CM 



rH rH 

CM 

© 







© 

rH 



© 




© 



rH rH 

© 

© 







© 

© 



© 




Q 



© © 

© 

rH 






CM 

r- 

m 



in 




© 



M 111 

n 

rH 






© 

in 

« 



CM 




CM 



10 10 

© 







© 

M 

© 



CA 




© 



© © 

© 

M 

CA 

in 

CM 

’t 

rH 

10 

CM 

CM 

’t 

in 

in 

in 

’t 

in 

CM 

in 

© 

CM CM 

in 

© 

r- 

CM 

K 

CA 

rH 

rH 

CA 

in 

© 

rH 

H 

rH 

rH 

Ar 

io 

rH 

rH 

in *t 

rH 

CA 

rH 

CM 

rH 

CM 

CA 

© 

CA 

© 

rH 

rH 

(A 

rH 

© 

© 

CA 

© 

CA 

© © 

CA 


V 

N 

r- 

N 

N 

N 

© 

rH 

CM 

CA 

’t 

10 

-t 

’t 

10 

rH 

Ar 

in 

10 

rH 

CM 

CA 

’t 

N 

© 

rH 


N 

N 

N 

r- 

rv 

CM 

CM 

CM 

CM 

CM 

CM 

CA 

CA 

CA 

M 

CA 

M 

(A 

CA 

M 

-t 


* 

■t 

in 

in 

in 

in 

11 

10 

10 

CO 

io 

10 

•0 

•0 

10 

M 

CA 

CA 

CA 

M 

M 

CA 

CA 

CA 

CA 

CA 



n 

M 

CA 

CA 

CA 

CA 

M 

CA 

n 

CA 

CA 

CA 

CA 

M 

CA 

M 

M 

CA 

CA 

CA 

CA 

M 

CA 

M 

m 


CA 

CA 

M 

CA 

CA 

m 

CA 

CA 

CA 

CA 

CA 

CA 

M 

M 

CA 

CA 

CA 

CA 

iA 

M 

M 


C'l 

m 

m 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

Q 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

Q 

Q 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 


Page 20 Dr. Dobb's Journal of Computer Calisthenics & 


Ul 

rH Tj- H 

CA 









rH 






A 


rj- 



tH 

© 

rH © H 

© 









rH 




© 


© 


© 



H 

© 

© © © 

© 









© 




© 


© 


© 



© 

10 

rH CM CA 

f-- 









in 




io 


CA 


CM 



CM 

CA 

10 rH 10 

in 









10 




\A 


A 


CM 



r-_ 

CA 

© © © 

CA 









© 




© 


© 


© 



© 

CM 

M CM IT* CM 

CA 






in 

CM CA 

CA 

CM 

CA 

CM N 

rl n 

CM 

© CM 

CM 


M M rH 

rH 


rH 

iA 

UI 111 rH ’T 

© 






© 

© H 

in 

in 

UI 

H io 

n r -- 

'3 

r-- n 

rH 

A 

Q © © 

rH 


A 

CA 

MOM© 

M 






CA 

rH rH 

CA 

© 

CA 

© rH 

1 

2 

M 

rH CM 

n 

© 

©MM 

M 


© 

0J 

in 10 rH A- 

Ts. 

CM CM 

CM CM CM CM 

CA A 

in 

io 

rH 

CM CA 

A UD 

io 

rH CM 

CA 

•0 

N © M 


UD 

in UD UD 

N 

C- N © © 

© 

rH 

rH 

rH 

rH 

rH 

rH 

rH rH 

rH 

rH 

CM 

CM CM 

CM CM 

CM 

n ca 

CA 


M ’t rf 

rf 

rf 

rf rf »f 

n 

CA M © © 

© 

© © 

© © © © 

© © 

© 

© 

© 

© © 

© © 

© 

© © 

© 

© 

© © © 

© 

© 

© © © 

CA 

m M A A 

A 

A 

't 

't 

A A A 

A A 

A 

’t 

A 

"t A 

A A 

A 

’t 

A 

A 

’t A A 

rf 

rf 

"f rf rf 

© 

© © © © 

o 

© 

© 

© 

© © © 

© © 

Q 

© 

© 

© © 

© © 

© 

© © 

o 

A 

© © © 

© © 

© © © 

© 

© © © © 

© 

© 

© 

© 

© 

© 

© 

© © 

© 

© 

© 

© © 

© © 

© 

© © 

© 

© 

© © © 

© 

© 

© © © 


Orthodontia, Box 310, Menlo Park CA 94025 June/July, 1976 


168 





H rH 


rH (A trIMd 

rH 

in 

rH 


rH rH rH 


rf rH 

rH 

rH 

in 

in rH rH 

(A CD 


rH d 


rH © © rH © rH 

rH 

© 

rH 


rH rH rH 


© rH 

rH 

rH 

© 

Odd 

© © 


© © 


©©©©©© 

© 

© 

© 


© © © 


© © 

© 

© 

© 

© © © 

© © 

© 

If) tA 

© 

HNMMrl M 

tA 

CM 

N 

© 

n in r-- 

© 

CM M 

r- 

in 

m 

01 rH © 

cd in 

© 

• D CD 

© 

10 CM N CD CM CD 

CD 

rf 

CD 

© 

CD CD cd 

© 

H CD 

CD 

rf 

CD 

in cd m 

rH ® 

© 

© © 

© 

© tA rH © 01 © 

© 

rH 

© 

O 

© © © 

© 

© © 

© 

© 

rH 

rH © © 

© rH 


’tWINHOWNIO r- <D H tA 01 10 OJ OJ IT) 01 rH OJ rH M 01 10 rH N ^ X N M OJ CM CM lf» © N rf ID N tA if) CM CM tA CM M lO CM »D CM M M M CM 01 N CM tA 

N H t N CM ^ 111 Q H Q H 111 If) rl CM IP H lO rl t O O IO N O IO N H IO t IO N Q IO N rl t in H IT' bO in t H N N OJ t CM Q U1 N y) H Q 

HMrlrlfMOOMrlOQMQMMISMOOOMM OrlCMHrlM-HMOOOHOI'HHMrlMMO OMOQOMdQOOMOOOIMM 


rf LI N 

© 

rH 

CM lil © 

rH CM f in 

•D 

rH 

rf 

N CM in © rH 

f in © © © © m f in 

'D N H 

CM n ’•D 

HtiniONOCMMt 

N CM CM CM CM in 

^D rH CM 

MXNOrHCMinOMrf 

N OJ CM 

CM CM CM (A iA tA iA rf 

ttt tnm 

in in cd cd n k 

N N 

©©©©©©© 

©OH 

rH 

rH rH CM CM CM CM CM (A M tA iA iA f f f d" 

fininmmmi0i£>xxNNNN©© 

©©©©©©©©©©©©©© 

©©©©©©©© 

rH 

rH rH rH rH rH rH 

rH rH rH 

rH 

rH rH 

rH rH rH 

rH rH rH 

rH rH rH 

rH rH rH rH rH rH 

rH rH rH 

dddddddddd 

rH CM CM 

in uo in 

in 

in in in in 

ui in in in 

in in 

in 

in in in in in 

in in 

in 

in 

uo in in in in 

ui in in 

in 

in in 

in in in 

in in in 

in 

in 

in 

in in in in in in 

in in in 

in u*> in 

in in in in 

in m 

m 

in in in 

© © © © 

© © © © 

©©©©©© 

© © © © © © © © © © © © © © © 

© © © 

o 

© © 

© © © 

©©©©©©©©©©©©©©©©©©©©©©©© 

© 

© © © 

© © © 

© © 

© © © 

© © © © 

© © © 

©©©©©©©©© 

© © © © © 

© © © 

© © © 

© © © 

©©©©©©©©©©©©©©© 

© © © 

©©©©©© 

© 

© © © 



UJ 










CL 






I 

o 

H X 




CL 



i 

i— 




rH 


z 










O 






X X 




\ 



© 






PH 







i- 



CL O 






UJ X 




o 

h- 

X 

z 




UJ 1 UJ 


h- 







z 


CL 

C O <L 





UJ X 

Z Ul 





z 

X 

X 



I 

9 9 


—i 


a 




CL 

D 


O 

Ci z 





z 



© 


CL X D 

i 

_l 



►— 

z x z 


S 


Z ui 


CD 


UJCLO 


C -X - UJ 

CL 

© 



- o 

O X 


z 


X X »-• 

o 

O OJ 




© 

x a x 


IX 


1-4 UJ 


Z 


b- 

UJ o 


X 

CL _J 

Cl 

z 



_j 

XhD 


1-4 


X X 

o 


CM 



z 

I Ci I 




ix a. \- 


>-4 


»— i 

1— 



CL H m U Cl 

»—1 



X o z 


X 


h- U CM 


X © 




XXX 

o <r o 


UJ 


1- Ct UJ Z 


CL 


CL Z 

m CL 


CL 

UJ Ul U. 

X 

CL 



Z 1—4 

X X ►-• 


l— 


X Z X 

X X 

o z 

© 

Ul 


Cl _l X 



CD 


in ci h d 


1— 


UJ k-H 

Z X 


UJ 

h- U O 

CL 

F 

Cl 


o 

Cl H* 


•/I 


Cl D Cl CM © 

X X 

•—« 

ZJO 

X 


Cl X 

x o cl 


z 


DhO 


Ul 


Ul J- CL CL _J 

*-• I 


H 

•-• O > H K 

H O 

Ul z 


X X h- X o z 




DOG X Z 

x o 

* X 

- X 

Ul 


X rH X 

o z o 


X 


O <L Z U 




Ul O X X UJ 

_J u 


1-4 

Z X Z 

Z Cl 


D 


X X -4 

- X O 


Cl 


I (J I O 

o 

h 

X D A 

X 


a 

li_ »— Li_ 


I 


z ~ 


►- 


UJCCUUD 

UJ 


Z 

Ul UJ H UJ UJ X 

CL O 


U X 

o 


z 


Z O X 

_i 

U1 Ul 

h a 

X 


I © o 

IX 


CJ 


IX _J IX 


Ul 


CL CL 

O 1- 


M 

_l 1- CL Z CL Ci 

O lx 

CL X UJ 

Z 1- 


o 


X X h- *-• l- 

i- 

z 

Ul X X 

X 


O Z X 

X h- rH 




X UJ UJ X 


CL 


Ci 'X CL lx CL 

z 


J UJ Z Cl CL D CL rH 

U. 


Ci UJ X 

O Z Cl 


o 


XXZXXUlZh 

- z 


o 


l— *-• 

zinz 


o 


►-•l-OI 


M 


DIOhOLUJ 


UJDUZDODO 


U. 

G h O O h U Z 


X 


K I X l- O 

X z 

X - 

XXX 

z 


X X z 

UJ Ul 


1- 


-• o 


X 


X O Ll lx 

►-• z 


O 

ZXOUUKO 

I 


X 

OXI- 

l- Z X 


Ul 


HOZUllLlL 

Z D 


X X >-• — 

*-4 


Z H X 

H- 1— 

© 



LC Z h 




CL 

UJ 



H UJ 

2 




X 

a x 




Z X ox 

z # 

X 



X o 



X 


O - I/I o 


z 


uiDI-OH 

0. CL Cl 

UJ 

UlCLCLClCLUJCLrH 

IX 

X 

UJ 

X H X 

CD X X 


z 


H O X G 1- 

X X 

o 

O X X X 

I 


Cl X 

1— 1— 

ii 

z 


Cl J ix CL 


H 


«I 'I Ul CL Ul 

Z O O 

> 

CL O Cl X X 

> Cl CL 

X 

21 

_J 

X Ul z 

O X 


1-4 


JXOXU1GOO 

O Ul 

h- I z z 

l— 


X o 

UJ UJ 


5 


&: uj ►-« x 




X O UJ CL UJ 

D Z O X 

HZCiOIXClh- 

UJ 

3 

►H 

I liJ D 1— Z X 




X X Z O X z 

Z O 

X 

0 0 3 

© 


o o o 

Ul rH Ul 

CD *-> 


UJ Ci U. N 


X 


U J h UJh 

*-> rH 

-J 

Ul 

LH.IJUU1XU1 

Ul 


X 

(JhO 

I *-4 (J 


Ul 


GN« Jl-X 

►H _l 

X X 

x o *-> *-> 

z 


J X l— 

+ 






CL 














X 






X 



x 



Ct 



X 














X 




o 





D 



z 



1- 














H 









U. LD rH 


o 

x 

H h- 


u 


J— 

CL 

rH 

rH 

H H CL 

Cl h- 

CL 

i- 

X 

z 

Z I 


o 


rH O 

d 

ui •- 

_J Ul 

X 


X 

z ~ z 

© O 


X Z Z Q 


QC 


Z X 

1— 

CL 

Z 

Z ZhCDZ Z 

'X 

z 

z 

Z Cl 

l- Ul 


X 


Z © Z © 

z 

© rH 

X O Ul 

_J 


Z X 

UJ - UJ 


z 

z 

IX-.- 


u. 


-MI 

Ul 

O UJ 

CL CL Z - 

UJ Cl 

UJ 

r 

UJ 

- M O 

O H 


X 


X - - M Z 

l— 

z 

(3 X 

M 


X 

hlhlLU 

o 

Z -< C. CD 


£ 


IIH2D 

_i m o k 

*-4 I h Cl OK *-< 

I/I 

Ul 

1- 

X rH O 

X I Ul 


£ 


T 

C 

H 

fi 

1 

C 

O Ul 

X © 

X O X _l 

X 


l— _J _J 




o 



i 














I 




I z 





a a 




Cl 


o 





Cl 

Cl O O 

Ci © Ci 

-J 


o 




(J 


Cl 


(J ►—4 


X 


Cl 

_j -< _i 

i—* 

Cl 

UJ 

_J > -« 




X > ►-• Cl 

CL 

Cl 

_l 

JXJJ> 

—J I —1 

-1 


-J 

> H 

X X 




J W X > H 

X X 

X 

> X o 

1-4 


JG> 

I x z 

> 

Z 

o 

O I o > 


H 


Z O Cl N Z 

N Z 

z 

I 

IZIIOIOI 

X 

N 

I 

O X N 

o z z 


1- 


X > Z O X N 

z z 

Z H 

O Z N Z 



X Cl o 

Ul _l ui z *-> 

z 

_J z z 


Z 


z o *-> U 

*-) rn 


Ul 

JwUlJZUIXJ 

a 

*■> 

_1 

z o *■> 

»->►-« ►> 


z 


_l Z - Z O 

►-• »-> 

►H Ul 

z o -> -> 

X 


JXZ 




•X 



5 














3 




© 


X 






X 

1— 


a 


rH 



CL 

I 








o 


1- rH 


X z 

o 

X 






o 

CL 


o 


(L 



h- 

Ul 








o 


z z 


CD ►-• 

© 

I 







o 




O 



Ul 

1— 










h h* 



z 







* * * 

o 

* 

* 

* 

O 



_l 

Ul 







* 

* 

* 

Ul Ul 

* 

* * * 

o 

* * 

* 



HHH in 

OJ rH 

CM 

f t d rH 

■H rH rH 

rH ID rf H 

uo in rf 

rH 

in 

rf 

in in 

rH 

H H H © 

© rH 

© 

© © rH rH 

rH rH rH 

H © © rH 

© © © 

rH 

© 

© 

© © 

rH 

© © © © 

© © 

© 

© © © © 

© © © 

© © © © 

© © © 

© 

© 

© 

© © 

© 

N M in © N 

© in © 

in © 

f in uo in 

in rH f'w 

in (A r- n 

in in x rH 

Ul © 

in n 

rf 

CM © 

N 

X NtQQ 

cm in © 

rH CM 

rH r- f U'< 

u:« x id 

in CD l D ' D 

rH CD tA tA 

rf © 

rH © 

r- 

rf © 


© © © © © 

© © © 

© © 

01 CM © © 

© © © 

© rH M © 

OHM tA 

© © 

© © 

tA 

rH rH 

© 

OJ rH CM X M 

CM CM X W 

(A CD X CM CM 

CM rf (A OJ CM M CM OJ © CM M OJ L~) CM CM X X CM CM tA tA 

CM X iA <0 <0 CM 

rf M 

© rH CM CM 

CM in N 

rf rf rf © © 

tA in CM © 

rf N N rH N 

rH © © f b‘i 

11 in d t in in d d ui f ■- n d m t o 

in rH f r- N rH H © 

r- r- rH CM 

in © in 

© © © © M 

M © rH © 

© rH M M CM 

fd©M©©0©©rH0fd 

©MMOdMMMOM 

© © © 

rH tA M © tA 

rH CM M M 

© CM rH 


'i)dtNTJttttNCMMinininin'i)NHtinOdtfvOIM<i)rlOliny)rltNOIMinOMtNNNNOItin'OOMtNNNNN®HtNNNNOIM 
rf in 111 in CD ID CD CD CD CD N NNNNNNNOOOrHHHrHOIOI CM M M M M t t t « in m VO CD 'D CD 'D CD *D N N N N O Q Q Q O S Q Q rl H rl H H H Ol CM 
CM CM CM CM CM CM CM OJ CM CM CM CM CM 01 CM CM OJ CM (A M M M M M M (A M tA (A M tA iA M tA M tA f'1 iA M (A M M (A M M fA M M M © © © © Q © © © © © © © © © © © © 

'tti-ttttttt’tt'tttt’ttti't’tttttttttttttttttttttt’tti-tttininDinininininininininininininin 
©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©O©©©©©©©©©©©©©©®©© 
Q O Q Q Q © © © Q Q Q O © Q © © © CS) © © Q © © © © © *3 © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © CD © © © 

June/July, 1976 Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park CA 94025 Page 21 


169 























2 




UJ 


























t-i 



1- 

z 


























y- 



Z 0 

f—4 



h- 























— \ 



Ul z 

Y- 









0 

UJ 




I 









h- 



o 



Z 0 

0 



0 



X 

Cl 



0 




o 









0 


z 

z 


z 

Z 0 

Cl 



0 



h- 

0 LL 

LL 

o 





1- 




Z 


z 



Z 


0 



UJ 

0 z 

z 



0 



0 

Ci UJ 

UJ 

y- 

o 




z 

I 



u 





z 



UJ 

UJ 

H 

0 







Z 

Z l- a 

y- 

u. 

1- 




z 

O 



1- 


0 





z 

0 

0 


-» ^ 

UJ 


z 

z 



UJ 

Z 0 

z 

0 I 






z 



2 


K 






2 


z- 


0 


Cl 

z 



0 

0 * iZ 

•—* 

uj y- 

Z 



CL 

x 

z 



4-4 





II 


0 

<E 

z z 

0 

~ 0 

2 


Cj 

I 




Z 0 z 

0 

0 

UJ 

CL 


UJ 

4-4 

UJ 



n 


I 





2 

X 

0 X 

0 


z 

z z 

0 



o 

HH 0. 

LL 

y- z 

1- 

C 




1/1 



Z 


I- 



1- 


►—» 

0 

0 0 


Z 0 

X 

0 





z 

Z UJ 


Z UJ 

z 

c 


z 

K 






n 



z 


z 


z 

z 

z — 

10 

u 

h- 

h- 



*-* 

y- Ll Z 

Ul 

_J 

4-4 

z 


4—4 

0 

UJ 


LL 

UJ 


z 



0 


1— 

Z 

z 

u 

i y- 







LL 

in z- ►- 

z 

u. 

0 



o 

x 

0 

UJ 

Ci 

z 


z 

ro 


0 

CM 

10 

0 

1- 0 

y- 

0 z 

0 

z 

UJ 

bj 



h* 

CD 0 

*—4 

— 0 

Cl 

0 

X 

Cl 

1- 

z 

z 

Cl 

M 


0 



0 



z 

z z 

0 

0 

H 

1—1 





in 

*— i 

J 

z 


z 

u 



4—4 

4-4 

Z 

0 



in 

z 


in 



UJ 

z 

y- 



uj 

UJ 




h- 


Cl *-h 

UJ 

*-* 

CL 

UJ 

0 

h- 

H 




UJ 

0 

o 

z 

0 


UJ 

Z UJ 

z 

z z 

z 

z 

z 

z 

z 


h* 

1- X 

1— 

Z CL 

T 

CL 

Z 

Z 


z 

3 

Z 

1— 



z 

z 

z 

z 


> 

z > 

z 

0 z 



0 

0 

0 


UJ 

UJ Ul 

UJ 

0 H- 

1—1 

h 

UJ 

►-* 

o 

0 

o 

O 

UJ 


4—4 


z 

I 

►-« 


z 

0 z 

I 

0 -~- 

z 

0 


z 

0 


0 

cm in z 

in 

*■> in 

0 

l/l 

in 

_1 

1- 

o 

z 

UJ 

in 


0 

2 

u 

0 

£ 

H 

10 

0 10 

0 

0 0 

I—, 


HH 


0 



+ 












0 






+ 












u. 









iZ 



z 






z 












ZJ 









z 



z 






0 











rH 

CD 1- Y- 

Z 

z 


h- 

CL 

CL 

rH 

rH 

z 

z 

z 




K 



CO 

rH 

z z 



o 

rr 



1- Ck 

0 

*-• z m 

Y- 

h- £D 


Z 

z 

1- 

K 

z 

£ 

z 

K 

y 

0 


z 





H Z 

0 

y 

0 




0 

7 

0 

- Cl_1 

z 

0 


Z 

UJ 

Z 

z 

4-4 


z 

2 

0 



I 




lj 

Z UJ 


M 

z 

0 



z - 

r 

_J 

x *-* z 

Z 

CD U 


4-4 

Ij'l 

z 

0 

z 

0 

UJ 

Z 

0 

z 

M 


0 

0 

X 

1- 

Z h- 

CD 

Z TH 

0 

CD 

I 

CD 

0 












o 




















0 

0 0 

0 


0 

iZ 

_l 

0 




0 

Ci 

UJ 







0 

0 0 








0 

0 

»- _1 _J 

-J 

> 

I 

_J 

_J 

-J 


z 

y 

-J 

0 

1- 0 

> 

»—i 


z 

z 

t—I 

0 

0 0 


j. 



X 

z 

z - 

0 

x 

X I z 

X 

0 o 

CJ 

I 

z 

I 

N 

IS 

0 

I 

I 

UJ z 

0 

0 

0 

0 

f 1 

X 

I 

11 

> 

0 Z 

N 

0 


z 



o 

-j in 0 

in 

*■> z 

X 

0 

0 

-I 

•“> 

*-> 

H- 

0 

01 

Z 0 

y 

in 

•“> 

0 

0 

0 

10 

0 10 

z 

Z 0 

*-> 

*"> 



UJ 











K- 



z 















a 

0 

rH 









0 

y 


z 

Z 









h* 






r 

z 

z 









CD 

SI 


z 

0 









0 





1 


M 

M 










H 



0 









2 







* u_ 

Ll 








* 

* it 

CQ 


* * * 

z 









0 





* 

*■ 


Cl 

0 

0 

X 


Z 

Y- 

z 

LL 


0 

_J 

X 


Y- 

2 

o 


Ll 

~l 

UJ 












z 

10 





z 







0 

v 

Cl 




z 






UJ 

UJ 

z 

z 

z 


z 

4-4 

0 




z 

z 


z 

=' 

w 


z 

0 

z 

h- 



uj in 

4-4 

y- 

0 

o 

u 

1- 

1- 


Ul 

0 



uj >n 

0 

0 

CD 

z 

z 

0 

z 

h- 

N 

z 



Z UJ 


z 



0 

z 

“1 

z 


1- 



0 Z 

rl 


z 

z 

ITl 

y- 

o 

UJ 

z 




10 Cl 


z 

z 



0 

0 

z 

4—4 

0 



Cl 

1- 


o 

0 

z 

0 


UJ 





z z 

0 




z 


UJ 

z 

UJ 

UJ 

z 


z 

z 

z 

z 

z 

u 

z 

z 

0 

z 

z 

o 


UJ z 

h- 

0 

z 

0 

0 

■y. 


UJ 

o 

M 

0 


0 0 

0 

0 



0 

0 

0 

Cl 

£ 

0 

0 


0 h* 

0 

0 

01 

CD 













z 











*0 

1 

1- 











+ 



10 

z 

U) 



1- 

H 

Cl 

oi 0 

H 

z 

UJ 

z 

z 

0 

tH 



o 

in 

z 

z z 

0 

X 

z 


0 

z 

■V 



2 

0 

z 

0 0 

z 

0 



0 

0 

Cl 

Cl 


0 

z 

zz 

0 Y- 

0 

0 

y- 

h- 








z 




c 

u 

0 

0 




0 


0 

0 Cl 

0 



01 

-J 

0 

1—1 

z 


0 

z 

0 

0 0 

0 

0 1- 

z 


z 

z 

I> 

0 

N 

z 

z 


Z X 

z 

Z LU 


V 

0' 

0 

21 

Cl 

z 

0 


h* 

0 0 

0 

z 

CD 

Cl 








in 





LL 




H 




4-4 

z 



(J 

X 




10 




0 

X 



10 

0 




0 





0 








z 





* 0 



<■ * 

it 


Z Z 

z uj <r 

LU h- _J 
hUffl 
Z X 
w it it 

O X o 

LL I Ll 

Q 

X K 

z> h- ui 

CO UJ UJ 
h (3 h 



_) > ~ 
I O Cl 


0 Z 0 

CD 

Z 

0 

Ul 


in 

rl 

H 

CM 

rl 

in 



tH 

CD 

rl 

in 

CD 

rH 

H 




CM 



H 

rH 

rH 

rH 




in 

in 


0 

■H 

•H 

0 

H 

0 



rl 

0 

H 

0 

0 

tH 

rH 




0 



rH 

rH 

rH 

rH 




0 

0 


0 

0 

0 

0 

0 

0 



0 

0 

0 

0 

0 

0 

0 




0 



0 

0 

0 

0 




0 

0 


CM 

*T 

in 

M 

■H 

^D 



in 

ro 

rl 

H 

0 

ro 

rH 



ro 

0 



M 

in 

rH 

N 

0 


111 

r- 

CD 


0 

N 

yi 

0 

l D 

M 



10 

CD 

CD 

CM 

0 

CD 

CD 



0 

CM 



r- 

•'t 

CD 

CD 

0 


T-^ 

0 

CO 


CM 

0 

0 

0 

o 

M 



0 

rl 

0 

M 

0 

0 

0 



0 

0 



0 

0 

0 

0 

0 


0 

0 

M 


in 

tH 

CM 

in 

CM 

CM 

0 

M 

CM 

in 

CM 

CM 

M 

CM 

CM 

rH 

rH 

CD 

OJ 

in 

in 

rH 

CM 

CM 

CM 

CD 

CD 

CD 

CM 

CM 


rl 

’t 

’t 

■H 


M 

rl 

bl 

in 

rH 

in 

H 

0 

in 

’t 

rH 

N 

CM 

M 

H 

rH 

•'t 

rf 

111 

rf 

,rr, 

N 

r- 

H 

T1 

*}■ 

m 

0 

0 

ro 

o 

M 

rl 

ro 

0 

ro 

0 

M 

M 

0 

0 

M 

rH 

n 

M 

0 

0 

0 

0 

0 

0 

0 

rH 

n 

(A 

M 

o 


N 

n 

CM 

in 

0 

CO 

CD 

rH 

CM 

CO 

CD 

rH 

* 

N 

CM 

CM 

CM 

CM 

in 

0 

rH 

H 

rH 

rH 

CM 


N 

0 

H 

rf 

r- 

CM 

in 

N 

0 

CM 

in 

0 

'•D 

CD 

N 

r- 

<9 

0 

0 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

CO 

CO 

CO 

CO 

CO 

T 



’t 


’t 



in 

in 

10 

in 

•D 

CD 

-D 

r-. 

r-_ 

r-_ 

0 

CO 

CO 

CO 

co 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o 

0 

0 

0 

o 

0 

0 

0 

0 

rH 

in 

in 

in 

in 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

'D 

CD 

'D 

CD 

'D 

•D 

'•D 

CD 

CD 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o 

0 

Q 

Q 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

01 

s 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

o 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



'D 

rH 

0 

0 




CO 

'■D 

0 

rH 

CO 

•D 



0 

rH 

'T 

’t 




0 

0 

■'t 

H 

0 

0 



0 

0 

CO 

CO 




0 

0 

CO 

0 

0 

•S 



N 

rl 

0 

'•D 

0 



'D 

0 

0 

r- 

'•D 

'•D 



CD 

CD 

CM 

N 

N 



*H 

CM 

CM 

bl 

H 

CO 



0 

0 

CM 

0 

0 



0 

rH 

CM 

0 

0 

H 


rt 

CO 

CM 

bn 

in 

CD 

in 

0 

in 

CO 

in 

CM 

Ul 

CM 

rH 

0 

0 

in 

rH 

H 

CM 

CM 

rH 

H 

0 

rH 

IT¬ 

rH 

CM 

rH 

0 

CO 

0 

CO 

CO 

0 

0 

CO 

CO 

CO 

CO 

'S 

CO 

CO 

CO 


rH 

CM IT- 

UT- 

in 

Ul 

-S 

CO 

CD 

0 

rH 

CM 

U“I 

0 

0 0 

0 CO 

CD 



in 

If- 

in ui 

0 

0 0 

0 0 

0 

H 

rH 

rH 

CM 

CM 

CM 

cm 

10 

10 CO 

CO CO 

CO 



rf 


rf rf- 

rH 

rH rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

H 

rH 

rH 

H 

T 

T 

T 

T 

rH 

rH 

rH 

rH 

rH 

rH rH 

CD 

CD CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD CD 

CD CD 

CD 

CD 

CD 

CD 

CD 

CD CD 

0 

0 0 

0 

0 

0 

0 

0 

•s 

0 

0 

0 

0 

0 

0 0 

0 0 

•S 

0 

0 

0 

0 

•3 0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 0 

0 

0 

0 

0 

0 

0 0 


■H 

•3 

IT* 

IT¬ 

'S 

CM 

in 

© 


in 

-t 


'■D 

© 

© 


0 

CD 


Ll 

O 

01 

z 

£ 

0 

-I 

O 

0 


X 

£ 


Ul 

* * 







h- 

Z 





CM 

1- 













2 





D 






z 


si 







0 




O 





o 





V 

“1 


0 


I 

z 








4—4 





0 






0 


z 


h- 

ill 

z 



o 




h- 










0 

0 

X 

z 


0 

0 

z 



l— 




Z 





z 

Z 




z 


0 



2 

•X 

l— 

z 

z 

z 




U 


z 



£ 

Ci 




4—4 

_l 

z 



uj 


z 

0 

o 

I 0 



0 

0 

Z 

UJ 

z 


i 

c, 


z 


z 

X 

z 



_J 

0 


0 

z 

H 0 



z z 

_J 

UJ 

1— 


z 

0 

z 




1— 

Z) 

III 

z 




0 

z 


0 Z 

z 


0 0 


Y- 

o 

o 

\ 




0 


Ul 

Y- 

Ul 

0 


0 

4-4 

z 


y- 

z z 

0 


0 0 

y— 

Z 

z 


0 

H 

J— 


1- 

Ul 


0 


4-4 


z 

z 


z 

•I 

Z Z 0 

0 


z z 

i/i 

3 

LL 

z 


Z 

z 



-3 

z 

z 

0 

Y- 


4-4 

h* 

z 

z 


0 0 

X 



rH 

0 

£ 

0 

z 

UJ 

UJ 


z 

z 

4—4 


2 

4—4 

z 

z 

Ul 

X' 


z 

4-H Z 



z y- 


(J 

X 

z 

4—4 

X 

X 


UJ 

-J 


o 

1—4 

Ul 

0 

h- 


CO 

0 


0 z 

0 

I 

4-4 2 



o 



UJ 

UJ 


1— 

z 

z 

1- 

z 

0 

UJ 

in 


4—4 



2 

z 

o 

z 


z 


y- 

z 

z 

z 

z 

z 


o 


h 

z 





h* 

z 

4- Z 0 

4—4 

z 

z z 


•r 

h- 

Ul 

E 

0 

0 

o 

D 

y— 

z 

y- 

U1 


o 



1— 



Z > Ul 

z 

z 

z z 


X 

z 

UJ 

D 

z 

z 

o 

0 

u 

X 

z 


z 

K 

z 


z 

z 

0 

y- z 0 

1— 

z 

Zj D 

rH 

o 

0 

1- 


4-4 

4-4 

_l 

0 

I/I 

UJ 

I/I 

1 

UJ 


0 

CM 

Ul 

z 


Ul Ul z 

Ul 

Ul 

>-> 0 

+ 













1- 

»— 


+ 








z 












ill 

0 

z 


z 








3 












z 

z 

z 


D 








CO 

CM 



CM 



X 



y- 


z 

z 

1— 

H 

CD 

1- 

1— 

z 

z 

h- 

z 

I z 

4-4 

1 

z 


0 



0 

CO 


•I 


z 

<E 

Ul 

0 

4—4 

z 

10 

y- 

CO z 

z 

z 

1 — z 

■* 


•V 

co 

0 



z 



I 


£ 

I 


0 


X 

0 

o 

- z 

z 

z 

z z 

I 

CO 

z 

rH 

-J 

CD 

X 

_l 

z 

z 

2 

CD 

0 

0 

z 

_J 

I 

4—4 

z 

CO 

0 J— 


in 

0 H- 













0 


z 























I 

4—4 



0 

0 


0 0 

0 

0 

0 

4-4 

4-4 

z> 

4-4 


Z 

X 

z 

> 

z 


z 

K UJ 

0 

-J 

-1 

4—4 

0 

0 


>01 

0 

0 

0 

X 

> 

0 

z 

N 

z 

z 

2 

0 

X 

z 

z 

UJ Y- 

z 


z 

X 

I 

•I 

0 

0 I 0 

I 

•I 

N I 

-I 

z 

z 

o 


4-4 

4-4 

*-> 

zz 

o 


4—4 

z z 

z 

J— 

0 

0 

Ul 

0 

»-> 

Z Ul X 

0 

0 

•-) 0 













0 


X 










rH 


X 






CM 




0 

y- 

z 

l— 





I 




(J 


0 






0 




_J 

z 

z 

0 





1 1 




-3 


z 






0 







0 





z 




_J 


_J 






_J 




4 * 

* 

* 

-J 





0 
















l- 


























z 




















z 






z 




















2 






K- 




















4—4 






Ul 




















0 






z 








w 












z 






z 

z 

a 






0 


z 





z 




X 

0 





X 

4—4 

z 

z 





0 

z 


z 








(J 






X 

0 

1- 

0 





z 

h- 


H 


z 



0 




z 

H 





0 


z 

z 





I 

in 


z 


ll 



0 




z 

z 






o 

4-4 




z 


o 




z 

X 



z 


z 

z 

z 

z 




X 

y- 

1- 

0 

z 


H 

z 

l— 

z 

h 

Ul 

0 

0 

Ul 




z 

0 

n 

Ul 

K- 

z 



0 

0 


z 

0 


D 

z 

0 

z 

z 

1-1 

z 

0 

Ul 



Y— 

z 

z 


1/1 

0 

rH 

z 


z 

1- 


o 

Ul 

z 

z 

z 

z 

Ul 

z 


z 

UJ 



z 

z 



z 


0 


z 

z 


z 

z 

z 

0 

h- 

0 

1- 


z 

z 

z 





z 

I 

z 

z 

0 

0 

z 

z 

I 

0 

z 

Ul 

z 


•I 

0 

Ul 

3 

z 

z 

0 

z 

z 





0 

4—4 

•-4 

z 

»- 


0 

0 

z 

4-4 

2 

4-4 

y— 

0 

0 


0 

0 


0 


X 

y- 

2 


UJ 




4—4 


I 





z 

0 

0 

z 


z 


z 


z 

0 

'X 

0 

z 


z 

H 

1— 

z 

1- 

z 

0 

jL 

0 

1- 

z 

X 


z 


z 

z 

z 





in 

z 

—l 


0 

X 

Ul 

z 

z 

0 

»- 

i 1 

X 

U1 

Q 

o 

h 

1— 

H 

0 

z 

z 

z 


z 

l— 

Ul 

1- 

Y- 


z 

z 

z 

D 

0 


z 

X 

0 

z 

o 

z 

z 

0 

z 

z 

0 


z 


0 

z 

UJ 

0 

z 


4—4 

z 

Y- 


0 

iL 

y 

LU 

0 

1- 

0 

4—4 

Ul 

0 

Ul 

z 

0 

0 

I 


z 

Ul 


0 

z 

\ 






0 













12 

V 






2 






z 





CO 









X 



in 



0 






CO 





+ 








z 

l— 






y— 




z 

I 


z 




X 


z 

z 


J— 

in 

1- 

2 

Ul 

z 

z 

l— 

z 

h- 

y- 


z 


J- 

0 


2 


y 


1- 


1- 

0 


Ul 

X 

-0 

4-4 


z 

h- 

CO 

Y- 

z 

0 


■s 


0 

z 

0 

z 



co 

z 


z 

0 


4-4 

0 

z 

h- 

z 

z 

z 


0 


LU 

I 

z 

rH 

CO 

0 

z 

1- 

I 

z 

rH 

0 

X 

z 

z 

z 

0 

0 

0 

D 

Ul 

z 

z 

X 

0 

0 

\ 






3 













0 








X 





o 

0 






0 




0 


z 


0 

0 


0 



> 

4-4 


X 

z 

0 

X 

> 

4—4 

N 


0 

z 

z 

N 

0 

z 


4—4 

0 

0 

4—4 

0 

z 


z 

0 Z 

N 

z 


I 

0 

o 

z 

z 

z 

X 

0 

z 

z 

z 

z 

z 

X 

I 

X 

X 

X 

z 

z 


Z 0 

h 

*-l 

z 

0 

0 

z 

0 

•“> 

4-4 

Ul 

0 

0 


0 


0 

0 

0 

Ul 

0 

0 

-—4 

0 






z 













X 












X 

I 







rH 





z 

z 






Ul 






z 

y- 







1- 





z 

1- 






z 







z 







z 






o 






►“ 





* 

* 

* 0 







0 




4 

it it 

CD 






CO 


I 

0 

CO 


CD 

0 


-s 

© 


UJ 'D 

n r -- 

H CO 


Q H 

in in 


ID 'D 

© o 
© © 


UJ 

h 

x 

o 

o 


z 


0 

o 


UJ 

z 


* 


0 

z 

u. 

* 


rH 




UT- 



in 



CM 



UT> 

rH 

rH 

CM 

Ul 

rH 

rH 

CD 

in rH 

rH 




© 



o 



© 



© 

rH 

H 

Q 

© 

rH 

rH 

8 

© H 

© 




•s 



© 



© 



© 

Q 

© 

© 

© 

© 

•s 

© 

•s © 

ro 

CD 


in 

CM 



N 



•s 



CM 


uo 

ro 

CD 

r- 

Ul 

CO 

CO Cw 

N 

r- 


rH 

CM 



© 



CM 



© 

\- 

U"' 

■s 

ro 

CD 

\n 

CD 

-S CD 

Q 

ro 


© 

CM 



CM 



© 



CM 

© 

•s 

© 

ro 

•s 

© 

rH 

ro © 

rH 

CD 

CD 

CD 

CM 


ro 

ro 

© 

r-- 

CM 

’t 

rH 

un 

rH 

CM 

un 

CM 

© cm ro 

CM 

in 

CM CM 

’t 

© 

N 

r- 

rH 

© 


© 

r-- 

CD 

K 

© 

rH 

rH 

’t 

H- 

rH 

ro 

rH Ul 

in 

rH 

rH in 

-s 

-s 

rH 

ro 

CO 

© 

© 

ro 

rH 

CM 

ro 

© 

ro 

ro 

© 

© 

ro 

ro 

h © ro 


CO 

ro © 


CM 

CM 

CM 

in 

r- 

© 

CM 

in 

CD 

N 

CM 

CO 

’t 

C- 

© 

rH 

rH 

rH 

H 

rH 

H 


r- 

CM 

Ul 

© 

rH 

’t 

UT- 

® 

ro 

*D 

G 

8 

«s 

© 

© 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

CM 

ro 

CO 

ro 

ro 

ro 

ro 

ro 

ro 

ro 

’t 

"t 

If' 

in 

UT* 

Ul 

'u 

'D 

‘u 

CM 

CM 

CM 

<M 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 


CM 

CM 

CM 

CM 

CM 

in 

in 

in 

in 

in 

in 

in 

in 

Ul 

in 

in 

in 

in 

in 

Ul 

Ul 

UT' 

in 

U*) 

UT- 

Ul 

in 

Ul 

in 

Ul 

Ul 

in 

Ul 

in 

uo 

Ul 

Ul 

-5 

© 

© 

8 

•s 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

8 

© 

© 

© 

© 

8 

© 

© 

8 

8 

© 

-s 

-3 

•3 

•3 

-3 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

-s 

o 

© 

© 

© 

© 

-3 


Page 22 Dr. Dobb's Journal of Computer Calisthenics & 


’t 

CM 

rH 





in 

in 

rH 




in 


rH 

H 


'•D 

© 

CO 

N 

H 

rH 

in 

CM 

-3 

rf 






8 

© 

rH 




© 


rH 

rH 


8 

■* 

© 

’t 

H 

rH 

•3 

-3 

© 

CM 






© 

© 

© 




© 


© 

© 


•3 

ro 

-3 

ro 

© 

© 

© 

-3 

© 

rH 





rH 


© 

N 



in 

'D 


rH 

•3 


Ul 

© 

•D 

© 

ro 

rH 

•3 

CM 

© 

N 

UT- 




-3 

CO 

Ul 

*D 



rH 

-3 


•D 

in 


•3 

CM 

rH 

•3 

u- 

ID 

'D 

•3 

rf 

rH 

rH 




© 

ro 

CM 

© 



© 

ro 


8 

Q 


rH 

CM 

© 

CM 

© 

© 

ro 

H 

rH 

rH 

rH 


ro 

'•D 


CM 

ro 

CM 

ro 

•D 

'Ll 

CM 

ro 

CM 

CM 

N 

CM 

in 

ro 

rH 

CM 

CM 

rH 

Ul 

ro 

CM 

N 

in 


N 

N 

rH 

© 

in 

Ul 

N 

r- 

-3 

rC 

A- 

N 

'•D 

© 

rH 

© 


in 


-t 

rH 

© 

© 

rH 

rH 

-3 

H 

ro 

ro 

CO 

© 

© 

rH 

co 

CO 

© 

© 

© 

CM 

CO 

ro 

ro 

-3 

© 

Q 

© 

ro 

ro 

rH 

rH 

CM 


rH 

cm ro 

in 

© ro 

CO 

ro ro 

<D 

N 

© 

CM 

in 

CO 

rH 

’f 

in 

© 

ro 'D LQ i-D 

*D 

rH 

■* 

N 

CM 

in 

© 

ID 

N N 

r- 

N N 

N 

© © 

•3 

•3 -3 

•3 

© 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

CO 

ro ro ro ro 

ro 

^r 

rf- 

’t 

in 

in 

•D ' D 

LQ 

L£\ -D 

CM 

CM CM 

CM 

co ro 

ro 

ro co 

CO 

CO 

ro 

ro 

ro 

ro 

ro 

CO 

CO 

ro 

co ro ro ro 

CO 

ro 

ro 

ro 

CO 

ro 

co ro 

CO 

co ro 

Ul 

in in 

in 

Ul Ul 

in 

in in 

Ul 

in 

Ul 

in 

in 

in 

in 

in 

in 

U~I 

in in it- in 

in 

in 

in 

in 

UT- 

Ul 

in in 

in 

in Ur¬ 

© 

© © 

8 

-3 © 

© 

© -3 

© 

•3 

•3 

8 

-3 

© 

8 

© 

-3 

-3 

© © © Q 

© 

8 

8 

8 

8 

8 

-3 © 

8 

'S 8 

© 

-3 © 

© 

© © 

© 

© © 

© 

© 

© 

© 

•3 

© 

© 

© 

© 

© 

© © © © 

© 

© 

© 

© 

© 

•3 

© Q 

Q 

© © 

Orthodontia, 

Box 310, 

Menlo 

Park 

CA 

94025 




June/July, 

1976 


170 




V 








10 








in 









h- 



i— 

















X 

G 

IX 







in 









UJ 



> 

m 





Z H 



UJ 



A 





X 









> G 

'X 




UJ 



UJ 

•n 








11 



G 

X 





~i Z 



in 



z 





z 


0 







h- X 

Z 

h- 



G 



CL 

UJ 

in 


01 





X 



G 

—i 


G 



O G 






X 


h- 



4—4 

X 

X 







H 

►—« 

g 







7~ 

X 







la¬ 



UJ 

cj 





CJ O 



z 



X 





1— 

G 

G 







X 

CD 

0 



o 



H 

»-» 

*—• 


O 



in 


in 


X 

H 

( 1 


O 



CJ 



o 

X 


X 


X X 



0 

0 

X 







0 Z 


in 



h- 



IX 

1— 

CD 

* 

H 



in 





X 

o 


h- 



z 



*—1 

G 

CL 

o 


X 0 


X 

0 

o 








1- *-• 

o 

UJ 






'X 

II 






UJ 


o 


O 

UJ 






Z UJ 

0 


H 

G 

X 

in 


“►* 


G X 


X 


G 





h 

H 

CL 



H 



CL 

-J 

►—i 

G 

Q 



IX 


K 

o 

h- 

X 

3 


A 



G iJ 

X 


X 

X 

I 

'_r - 


H 01 

X 

G 


in 

G 


X 

X 




H- 0 





G 




X 

>—t 

4-4 




1— G 



1— 


UJ 

O 


1 



G X 

UJ 


Z 


0 



X 

G 

X 

h- 

X 

o 

> 


G 

X 


0 

0 O 

X 

_J 


CL 

G 



_l 

H 

CJ 

_J 

1- 



_J G 


m 

UJ 

1- 

X 

G 


V 


UJ 

0 X 

N 


•—* 

X 


1- 


G h- 

G 


0 

X 

z 

i- 

0 

G X 



X X 

UJ 

•I 


Si 

cl m 



'I 

O 

in 

x 

O UJ 


D X 


CD 


z 


X 


h- 


u 

o in 


UJ 

h" 

UJ 

z 

> 

i— 

X O 

X 

X 

X 

1- 


H 

h- 

X 

X 


K 

1— 

LU 

*—« 

IX 

u 

X UJ 



z 

1- 

X 

> 

z 



on 


X 

. 

“1 

'D 

X 


Z 

X 

X 


G 


m 

H 

0 

1- 

> H Z 


z 

h- 

1- 

> 




0 


i~i 

0 K 

z 

1- 

UJ 


O CL 



4—4 





o 


UJ 1- 


1- 

00 

o 


Ul 


D 


X 

1- H 

H-l 

G 

LD 

Z 

4—4 


h- 


X 

(-4 

0 

X 

H 

0 

X 

H 


0 

Z 

0 0 

5 

IX 

CD 

CL 




ID 


H 

CL 

U. 

h- 


CL Z 



rH 

o 

H 

> 

UJ 

O 

o 

in 

z z 

H 


G 


H 

X 


X X 

0 

H 

0 

G 

1- 

h- 

G 

Z 

K 



X 

z 

x z 

O 

X _J 

CM 

CM 


CM 

«_> 

o 

H 



UJ 


in 



O 

o 


u 

h* 


UJ UJ 

z 

UJ 


0 

X 

0 

X 

0 ►-« 

X 

0 





G 

X 

X 

X 

X 

X h- 


CL 

- 

X 

.r 



CL 


X 

x 


IX 

G 

o z 


H 


z 

X 


G 



i— 

z z 

G 

X 

H 

X 

z 

X 

M 

X 

M 

0 

z 

1- 

Z 

K 

X 


X 

4-4 

4—4 

X 0 



Z 


4-4 

in 

in 

O 

in 

CL 


CL 

UJ 


1- UJ 


CL 

CM 

> 

X 

G 


UJ 

X 

G 

UJ UJ 


0 

3 


4-4 



X 


X 

4—4 

0 

4—4 

D 


X 

z 



G 0 

4—4 

o 



UJ H 

UJ 

UJ 


UJ 

h- 

1— 

O 

CD 

O 

CL 

X 

UJ 

rl 

3 

H 

»—i 

X 

o 

f l 

X 

X X 

X 

h— 

X 

X 

h* 

h* 

X 

1- 0 

X 



G 


X 

X 

X 


h— 

X 


cj 

IX 

h- 

in 

Z CL 

2 

£ 

g 

2! 

CD 

in 

CL 

£ 

CL 

G O 

o 

"> 


j 

CD 

K 


X 

X 

H 

o o 

o 

in 

H- 

5 

01 

in 

T~ 

in x 

> 

> 

1- 

0 

h- 

h- 

0 

o 

1- 

01 

2 

X 1- 

in 

UJ 

UJ 

UJ 

O 'X 

4—4 

*—1 

0 


5 

x 

IX 

3 

UJ 

G Z 

o 

z 


o 

D 

Z 

•X 

X 

X 

G 

z z 

o 

UJ 

0 

CD 

X X 

0 X X 

X 

1- 

X 

X X 

0 

X 

z 

X X 

0 

\ > 

x 

N 

<D 

h- 

G CL 


1- 

«i 

K 

in 

K 

UJ 

Z 

N 

X »-* 

G 

o 

CD 

o 

in 

G 

in 

in 

01 

O 

4-4 4—4 

G 

X 

0 

4-4 

G 

i- 

0 

H X 

in 

h- 

in 

X 


0 

4-4 

4-4 

0 

h- 

G 

0 h- 




h- 



















01 













1 







1- 

rH 

G 










X 



















1 z 






V 














0 

+ 

0 










X 













H 





rH 

y 







I- 






G 

H 



y— 

h- 


X 

rl 

1- 

>- 

h- 







I 

Z-- 

Q 



I 

G 








X 

X 

0 



CD 

X 0 

CD 


10 


X 

\ 

0 



CD 



2 

Z 

Z 

N 

01 

' X 


X 

0 

G 

y- 

0 



z 




G 

2 



M 

■s 






CD 

o 


I 





o 

Z G 



i 




1— 



1 



X 

X 


m 

> h- X 



H- 


G 

0 




0 


M 

CD 

0 

I 

X 

rl 

G 

X 

X 

I 

G 

X 

’t 

rH 


3 X 

G 

a 

a 

G 

4-1 O 

X 

CD 

** 

G 

G 

X 

G 

X 

G 

* 

G 


r 

4—4 

X 


i— 



X 

G 

X 


in 


I 

X 





0 



















H- 0 













y 





















x 

















0 




I 



G 






0 

G 





0 


G 



G 

0 







1 

4—4 

(C 

4-4 

> 

> 

G 

G 

G 

G 

4-4 

4—4 

0 


z> 

4—4 

G 

X 

X 

0 o 

> 

4—4 

0 

01 

j- 

4-4 

G 

X 

X 

N 

X 

h- 

0 

G 

> 

4—4 


^ N 

X 

4-4 

G 

4—4 

X 

G 

I 

X 

> 

4-4 

N 

in 

CD 


X 

G 

X 

N 0 

o 

X 

X 

X 

X 

0 

X 


0 

0 

> 

<E 

z 


X K 

o 

0 

z 

G 

0 

Zfi- 

X 

2 

z 

Z 

o 

X 


X 

0 

X 

N 

X Z 

0 

X 

X 

> 

1— 

X 

0 

z 

0 

X 

z 

G 

G 

> 

G 

G 

0 

X Z 

z 

G 

G 

G 

G 

in 

0 

0 

*-> 

zc 

z 

G 

4—4 

►-) 


z 

in 

»-> 

X 

2 

z 

0 

•“4 

4—4 

*-> 

X 

X 

z 

G 

z 

0 

►-> 

0 

X 

G 

01 

z 

01 

0 

X 

r-4 

z 

0 

X 


G 

Li. 


u: > 

o h 


0* rH 

CJ (J 
CD CD 
* G G 


CD CD 

•r x 

I- h- 


oi 

m 


h 

D Z 

O V- 

=• 

* * * o 


bl 

•3 


0 




0 













CM 





CD 



'•D 




M 


X 



rH 



N 

CM 


0 

M 


H 

0 






rH 

rn 

rH 




0 













0 





0 



0 




0 


0 



rH 



0 

0 


rH 

0 


rH 

*H 






rH 

0 

H 




0 













0 





0 



0 




0 


0 



0 



0 

0 


0 

0 


0 

0 






0 

0 

T t 




0 


in 








0 

CM 


O 


0 



0 



M 



0 

CM 


’t 



in 


M 

-t 

r}- Q 


N 

N- 

N 

rH 

’t 




M 


0 

rH 

H 




0 


H 








10 

H 


CM 


0 



M 


0 

X 




i n 


r-- 



in 


CM 

m 

CM CM 


M 

m 

M 

r- 

CM 




0 


0 

N 

rH 




0 


0 








0 

0 


0 


0 



M 


0 

rn 



0 

0 


cn 



0 


rH 

o 

rH O 


CM 

0 

rH 

0 

CM 




H 


0 

0 

0 

0 

0 

LI 

rH 

CM 

CD 

0 


in 

rH 

rH 

rH 

rH 

CD 


r- 

CM 

N 

'■D 

rH 

M 

n 

0 

X 

CM 

bl 

r- 

X 

in 

’t 

CM 

rH 

rH 

CM 

X 

X 

CM 

X CM 

M 

rH 

CM 

X 

CM 

m 

M 

rn 

X 

X 

0 

M 

rH 

in 

’T 

"t 

rH 

-t 

rH 

1- 

rH CM 

rl 

in 

in 

M 

U"' 

CM 

r- 

N 

M 

rl 

CM 

M 

0 

0 

N 

CM 

CM 

CM 

CM 

N 

rH 

0 CM 

0 

CM 

rH 

in 

r- 

r- 

rH 

N 0 

IT' 

"t 

’t 

N 

X 

rH 

n 

-t 

r- 

r- 

0 

0 

rf 

0 

0 

0 

CM 

0 

0 



rH 

rH 

0 

0 

0 

0 

M 

M 

0 

Cn rH 

0 

0 

0 


rH 

M 

M 


rH 

0 

M 

0 0 

cn 

rn 


o 

rH 

M 


f v i n 

cn 

0 

0 

0 

o 

n 


0 

rH 

<A 

M 

n 

0 


0 ’t 

bl 

0 

rl 

’t 

bl bl 

bl bl 

0 

rH 

in't 

bl 

X 

N 

0 

rH 

CM 

rf 

X 

N 

CM 

rn 

bl X 

N 

CM 

CM 

CM CM 

CM 

rn 

bl 

0 

rH 

•SJ 

n- 

r- 0 

rH 


in 

X 

X X 

X 

rH 

CM 

M-NrH 

n- 

in 0 

rn Li o 

rn 

n- 

in 

X 

0 rH 

n- 

rH rH 

rH 

CM 

CM 

CM 

CM CM 

CM CM 

(A 

in 

rl rl 

fn 

rn rn 

't 

’t 

rf 

n- 

rt 

n- 

m 

b~ 

b'« m 

bl 

X 

X 

X X 

X 

X 

CD 

N 

N 

N 

r- 

N 0 

0 

0 

0 

0 

0 0 

0 

rH 

H 

rH H CM 

CM 

cm r n 

rn rn 

"t 

n- 

n- 

V 

in in 

in 

M M 

M 

M 

f A 

n 

M M 

rl rl 

M 

rl 

rn i n 

in 

rn 

rn 

rn 

rn 

rn 

rn 

rn 

m 

rn 

rn 

rn rn 

rn 

rn 

rn 

m rn 

rn 

rn 

rn 

m 

M 

rn 

rn 

rn 0 

0 

0 

o 

0 

0 0 

0 

0 

0 

0 0 0 

0 

o o 

©00 

0 

0 

0 

0 

0 o 

o 

X X 

X 

X 

X 

X 

X X 

X X 

X 

X 

X X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X X 

X 

X 

X 

X X 

X 

X 

X 

X 

X 

X 

X 

X N 

N 

N 

N 

N 

N N 

N 

N 

r-- 

N N N 

N 

N N 

N N N 

N 

N 

N 

N 

N N 

n 

0 0 

0 

0 

0 

0 

0 0 

0 0 

0 

0 

0 o 

0 

0 

0 

o 

0 

0 

o 

0 

0 

o 

0 

o 0 

o 

0 

o 

0 o 

0 

0 

0 

0 

0 

o 

0 

o 0 

0 

0 

0 

0 

0 0 

0 

0 

o 

0 0 0 

0 

0 0 

0 0 0 

0 

0 

0 

0 

0 0 

o 

0 0 

0 

0 

0 

o 

0 0 

0 0 

0 

0 

0 0 

0 

o 

o 

0 

o 

0 

o 

0 

0 

0 

0 

0 0 

o 

0 

o 

o o 

0 

0 

0 

o 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 0 0 

0 

0 0 

0 0 0 

0 

0 

0 

0 

0 0 

0 














1— 




K 



X 














z 


X 


z 



o 











i 



0 


01 


3 



X 







CJ 




o 

01 


0 



01 

Q 



X 


z 









H 

01 


0 

0 

0 

in 

0 



UJ X 


(E 





z 




<r 

UJ 



CL 


UJ 


0 CD 

I/I 0 


G 


CL 



4-4 



I 

z 

CL 


CL 

UJ 

CL 

0£ 

CL 

CL 

X 



LU 


UJ 


I 




CJ 


G 


2 

N 

0 

G 

X 

UJ 

G 

UJ x 




h- 


O 

I 



►— 

o 

G 


i 


U. 

G 

X 

N 

X 

G Ul 


H 


2 


CL 

H 



«r 

z 

CE 


0 

1- 


X 

0 



CD CD 


0 


4-4 


CC 

n 



SI 





0 

01 



G 

0 

X Z 


z 


0 


Ul 

z 




u. 

H 


H 

z 

01 

h- 

K 

4-4 

X 

y 0 




Cl 


01 

UJ 


CL 

CL 

4-4 

z 


z 


UJ 

2 

Z 

h- 

UJ 



u. 





G 

I 

X 

0 


UJ 


UJ 

U. 

CL 

LU 

UJ 

z 

N 

G 


4-4 


UJ 


CD 


O 

I 

lL 

z 

z 


z 

4—4 

G 

Z 

z 

0 


z 




h- 


2 


H 

o 


CL 

UJ 


LU 


G 

UJ 

LU 


X 

X . 


u 


«r 

Cl 

4—4 


CE 


1— 


CL 


CL 

Cl 

'X 

CL 

CL 

X X 

Z Ul 


2 


G 

r. 

CL 

UJ 

y 

h 

01 

1— 

CJ 


0 

0 


u 

0 

0 Ul 

Z G 


0 


0. 

0 

h- 

G 


UJ 

UJ 

UJ 

z 


UJ 

0 

1/1 

2 

UJ 

0 

G 

0 


G 


~i 

G 

01 


Ll 

0 

1- 

CL 

4—4 


G 

G 

h- 

4—4 

G 

G 

0 

0 Z 







*3 

4—4 








z 





4—4 





rn 

1 










UJ 





1 





+ 


G 

1“ 








z 





in 

CD 



y~ 

CD 

UJ 

I 

111 







CL 

UJ 



G 


UJ 01 




2 

z 

2 


01 







<E 

CL 



X 


Z LU 

z 



Cl 

o 

4—4 

01 








UJ 

0 



z 


4-4 CL 

4-4 


I 

4-4 

01 

H- 

01 

CD 

G 

z 


I 

G 

0 

in 

z 

G 

0 

4-4 

0 

y g 






3 

UJ 

(E 








4-4 





0 G 

01 



G 


o 

LL 

G 

x 












0 x 

G 

N 

X 

G 

Cl 

CL 

G 

Ll 

•I 

Cl 

N 

X 

X 

CL 

N 

h- 1 

X 

CL 

N 

X 

y x 

z 

2 

z 

I 

y 


G 


G 

y 

Z 

z 

Z 

CJ 

z 

UJ 

z 

0 

2 


UJ UJ 

X 

CL 

4—4 

01 

y. 

CL 

(E 

o 

G 

CJ 

CL 

►-4 

4—4 

G 

y> 

CL G 

4—4 

G 

•-> 

4—4 

X I G 

z 





'I 


CL 








X 





01 CD 

z 





UJ 

H 

UJ 

CL 







Z 

G 




y x 

0 





01 

CE 

N 

(E 







4—4 

CC 




\° y 

0 








UJ 








z 









t * 

* 

4 i 

C 01 







* * * 





* * * 

* 


I 

O 


X 

g 

G 

X I 
h- x 

QOU 
Z Z I- 

x uj in 
z -I *H 
z o 

OuU 
O Z Cl 

x 

u Z □ 

X z 

o o o 

JOh 


Z 

UJ 

I z 
CJ Ul 
IX CL 

x o 
uj z 
m ►-« 


CL 
G 
G I 
i/I X I 
m i 

uj l 

ix CD Z i 
O UJ Ul i 
G CL Z ' 
CE UJ 

_j x : 

3 CJ ■ 

O O Z ' 

J y- H ; 


in 

UJ 


CL 

<r 

UJ 

-i 


□ 

CC 




0 

0 


y 


0 




G 



0 




X 


I 



X 

0 







I 







G 


0 

X 

G 

X 

X 

z 


> 







01 




G 


y 

G 

2 

N 

G 

4-4 

01 

X 




0 

o 


\ 




X 


X 

G 



X 

z 

in 

X 




y 


X 

X 



X 



z 

X 

0 

y 



X 

X 





z 

G 

X 

X 


X 

z 





0 

0 

X 

X 

0 

X 



X 

4—4 

G 

> 

G 


X 

4-4 

/■s 

X 

y 

y 

z 

X 

y 

G 


G 



G 

z 

X 

X 

G 


X 

z 

I 

4-4 

2 

z 


X 

4-4 

G 

X 


X 


G 



y 

X 

IsL 



G 


LU 

UJ 

X 

N 

3 

X 

4-4 

o 

G 

X 

X 

X 

X 

X 


o 

X 

> 

V 

z 



4—4 





y 

G X 


4—4 

g 

I 

z 

X 

s 

X 


X 

ui 

LU 


X 

y 

y 

X 


X 

X 

y 


X 

3 

X 

y 

X 

G 

in 

0 

X 

X 

X 

X 

0 

0 

0 X 


X 

0 X 

01 


0 

01 

X 

X 

01 

y 

o 

0 

o 

X 

X 

X 

X 

G 

z 

z 

X 

z 

in 

X 

y 


0 

01 

X 

ID 

z 

UJ 

0 

G 

2 

z 

X 

G 

4-4 

0 

z 

0 

X 0 

X 

o 

y 

4—4 

X 

X 

4—4 

G 

G 

0 

*-« 

4—1 

X 

X 

z 

0 

4—4 

G 

z 

X 

X 

y 

01 

G 

G 


m 

i/i 

x 


G 

x 


X 

X 

«T 


X 



X 




01 



X 


X 



y 



0 

0 


0 

o 

I 

4-4 


X 

z 









y 



G 

G 

X 



> 




.. 



X 

X 

JL 

0 

01 


G 

G 

G 

G 

X 


G 

CD 

0 

X 


G 

X 



X 

0 



H 

a 

X 

I 

X 

X 

0 

\ 


G 


V 












G 


0 


G 

CD 




X 






G 

N 

X 

-5- 

X 

<1 

> 


X 

CL. 

N 

X 

y 

1 

G 

0 

T 

4—4 

J 

T 

0 

X 

4-4 

m 

4-4 

X 



o 

X 

z 

G 

•1 

z 

G 

o 

N 

2 

0 

z 

z 

X 


X 


0 

X 

X 

0 

7 

X o 

X 

0 

X 

L 

CD 

3 

z 

0 

0 

G 

y 

*-« 

G 

z 

X 


G 

y 

•-* 

X 

z 

0 

y 

X 

G 

0 

X 

X 

G u. 

G 

X 

G 

y 

G 

G 


i 

m 


_j z 

I 


0 cm o 
•t CM y 
0 y © 



rH 

'■D 







CD 




CD 



rH 

rH 


'D 

CD 









CD 



0 

CM 


y 

rn 



CD 


0 


CD 

CM 


CD 

y rn 


rH 

0 







0 




0 



rH 

rH 


0 

0 









0 



y 

g 


y 

0 



0 


0 


0 

o 


y 

0 CM 


0 

0 







0 




0 



0 

0 


0 

0 









0 



rn 

0 


0 

0 



0 


0 


0 

0 


y 

y y 


in 

0 







rn 




bl 



rn 

y 


rn 

in 









y 



rn 

0 


CM 

N 



rn 


0 


in 

r- 


y 

y rn 


bl 

in 







CD 




r- 



bl 

y 


CD 

r- 









0 



0 

CM 


0 

CM 



r- 


y 


y 

rn 


y 

0 CM 


0 

rH 







rH 




rH 



0 

0 


rH 

rH 









CM 



y 

0 


CM 

rn 



CM 


y 


rn 

y 


y 

y y 

0 rn 

CM 

rn 

CM 

CO 

0 

rn 

rn 

in 

CM 

rH 

rn 

in 

CM 

y 

rH 

CM 

CM 

N 

bl* 

y 

CM 

r- 

rn 

CM 

r- 

0 

rn 

bl 

CM 

y 

y 

\n 

CM 

rn 

y 

bl 

rn 

Q 

y 

y 

y 

in 

y 

rn 

in 

in 

y in 

0 y 

y 

0 

rn 

r- 

0 

y 

CM 

rH 

0 

rH 

CM 

H 

0 

H 

rH 

bn 

r-- 

rH 

rH 

0 

rn 

in 

CM 

rn 

y 

y 

CM 

0 

0 

'0 

y 

y 

CM 

in 

y 

y 

in 

CM 

o 

y 

y 

y 

y 

0 

y 

y 

o 0 

rn 0 

0 

rn 

0 

CM 

rn 

0 

0 

0 

rn 

rn 

0 

0 

rn 

o 

rn 

0 

0 

rH 

rn 

rn 

0 

rH 

0 

0 

y 

rn 

0 

0 

rn 

0 

rn 

rn 

rn 

rn 

0 

rn 

rn 

CA 

q 

rn 

0 

rn 

0 

rn 

0 

y 

y y 


rn y 

in 

0 

rn 

rn 

rn 

rn 

m rn 

y 

\r> 

LD 

r- 

0 

y y 

IT* 

bl 

bl 

bl 

LD 

r-- 

CM 

tA 

y y y 

y 

y 

y 

r-- 

CM 

rn 

'•D 

y 

CM 

rn 

y bi 

•D 

r- 

0 

y 

y 

bl ' D 

LD 

•D 

'•D 

y 

y 

bl 

0 

rn 

y 

bl 

0 

y 

y 

in 

0 

rn 

y 

0 y 

in bi 

in 

CD 

CD 

'•£' 

LD 

CD 

CD 

'■D 

CD 

'D 

'D 

LD 

r- 

r- n 

r- 

f'- 

N 

K 

r- 

r- 

0 

0 

0 0 0 

0 

0 

0 

o 

y 

y 

y 

CM 

CM 

CM 

CM C M 

CM 

CM 

rn 

rn 

rn 

rn rn 

rn 

I'A 

rn 

y 

y 

y 

U-4 

bl 

in 

in 

CD 

LD 

LD LD 

N 

f-_ 

r- 

0 0 

y 

y 

y 

y 

y 

y 

y 

y 

y 

y 

y 

y 

y 

y 

y 

y y 

y 

y 

y 

y 

y 

y 

CM 

CM 

CM CM CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM CM 

CM 

CM 

CM 

CM 

CM 

CM CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

rn 

(A 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

CD 

•D 

CD 

CD 

LD 

LD 

•D 

LD LD 

LD 

LD 

LD 

•D 

■D 

■D 

'•D 

•D 

LD LD LD 

•D 

'•D 

•D 

'D 

■D 

LD 

LD 

'D 

'•D 

'D 

LD 'D 

LD 

'■D 

'D 

LD 

LD 

LD L£l 

LD 

LD 

'D 

•D 

LD 

LD 

'D 

■D 

LD 

LD 

LD 

LD 

LD 

•D 

LD 

CD 

LD 

LD 

LD 

'0 

'0 

0' 

0 

0 

0 

0 

0 

0 

0 

0' 

0 

0 

0' 

0 

0 0 

0 

0 

0 

0' 

0' 

04 

0 

0 

0 0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

Q 

0 

Q 

<9 

(9 

0 0 

(9 

0' 

■0 

'0 

'0 

'0 

40 

■0 

'0 

0 

0 

<0 

© 

0 

0 

0 

0 

o 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

o 

0 

0 

0 

0 0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Q 

o 

Q 


June/July, 


1976 






Dr. 

Dobb's 

Journal 

of 

Computer 

Calisthenics 

& 

Orthodontia, 

Box 

310 

, Menlo 

Park 

CA 

94025 





Page 

23 



171 



x x3gujzazujz»- 
wjoij.jhiDEQ.a:hz«i(i:inzaai-ttinct 
M n u o H u; 3 o t n o z O O H U1 o O UJ u H I 
Quouyjii:ai(-(LflihjhaHzwiflzju 

' O' o \ 'jL \ CL \ h- '• CD ' MV G \ Z ' Z 3 


3333333333333333333333 

OClUijQQODljijijuOijCiijOUiLaijij 


Ul 

Q 

z 

X 


o 

a 

CL 

111 

h- 

O 

£ 

it 

•r 

i 

o 


o 
Z V 


X 
O v 


(J 

K \ 






\ 


o 






C'- 


2 






X 


UJ 






3 


z 














X 


2 








o 






3 


X 

X 





X 


X 

Ci 





►-« 



o 





h- 


1“ 

X 





X 


X 






X 


X 

X 





X 


10 








2 

CD 





X 


M 

t—4 




\ 

o 

X 






h- 


© 

1 





3 

3 

CO 



X 

Z O X 1- 

10 

X 

3 

+ 

o 

H 

' X 

' K ' Z O' Z 

X 

2 

X 3 

\ 

z 

z 

H O 

X X X *-< X 3 G O 

3 


O X 


X 

X 


C03CQ3£D3G03lj03C03CQ3C03£D3CD3C03C03 

aaijijQLjijijiiauuijaijuLiaDuijuijij 


X 

Ifl 


UJ 

z 


Ul 

* * * 


3 10 

H z 

z 

* * r. 


CO 3 

a a 

CL 

10 

X 

UJ 


CO 

ci 


o 

CJ 


10 

z 


I 

_J 


x 

***»-• 


© 

LO 

't 

N 


in 


in 

-fr 


in 


in 


in 

CM 

© 

rl 

rl 


© 


rl 

© 


rl 


© 


rl 

rl 

rl 

rl 

rl 


rl 


rl 

rl 


rl 


rl 


rl 

m 

N 


CM 


© 


’t 

rl 


CO 


't 



CM 

rl 

rl 

© 


CM 


CM 

© 


CM 


© 


CM 

rl 

r| 

rl 

rl 


rl 


rl 

rl 


rl 


rl 


rl 

rl CM 

Ul 

CM H 

ri in 

rl 

rl 

© 

N 

LO N 

CM 

rl 

CM 

N 

rl 

in 

rl © 

O 

© rl 

© CM 

© 

© 

© 

rl 

© H 

© 

rl 

© 

rl 

© 

© 

rl © 

rl 

© rl 

© rl 

© 

rl 

© 

rl 

© rl 

Q 

rl 

© 

rl 

© 

rl 

't in 

't 

co m 

LO CM 


’t 

* 

CM 

CM 

n 

't 

rl 

in 

© 

CO 

© CM 

© 

© rl 

*0 CM 

© 

CM 

N 

© 

CO rl 

© 

© 

’t 

rl 

CM 

CM 

rl rl 

rl 

CM rl 

M rl 

M 

rl 

CM 

rl 

© rl 

CO 

rl 

CM 

rl 

CO 

rl 

in rl 


N rl 

in N 

m 

in 

rl 

m 

N rl 

in 

N 

CO 

in 

rl 

CO 

n -M- 

’t 

in 

in in 

LO 

■o 

N 

N 

N © 

© 

© 

rl 

rl 

CM 

CM 

CM CM 

CM 

CM CM 

CM CM 

CM 

CM 

CM 

CM 

cm n 

CO 

CO 

CO 

CO 

CO 

CO 

N N 

N 

N N 

N N 

N 

N 

N 

N 

N N 

N 

N 

N 

N 

N 

N 

© © 

© 

© © 

© © 

© 

© 

© 

© 

© © 

© 

© 

© 

© 

© 

© 

© © 

© 

© © 

© © 

© 

© 

© 

© 

© © 

© 

© 

© 

© 

© 

© 


O' 

CM 


ro 

CM 





CO 


CO 


CM 


in 


rl 




rl 




in 


LO 


© 



© 


© 


© 


© 




© 


© 


© 


© 


© 


© 


O' 



© 


© 


© 


© 


© 


© 


© 


© 


© 


© 


© 


ro 


rl 

N 

^r 

't 

rl 

CM 

in 

’t 

’t 

rl 

LO 

CM 

CO 



ro 

© 

© 

LO 

N 

CM 

rl 

rl 

© 


© 

CM 

© 

CO 

rl 

in 

© 

U - ) 

rl 

CO 

rl 

rl 

© 

© 

CM 

’t 

CM 

CM 

© 

LO 

CM 

O' 

CM 

3 


rl 

CM 

rl 

CO 

rl 

CM 

rl 

CO 

rl 

CM 

rl 

r| 

rl 

CM 

rl 

CO 

rl 

rl 

rl 

CO 

rl 

© 

rl 

© 


N 

© 

CM 

CO 

in 

LO 

© 

rl 

CO 

't 

LO 

r- 

rl 

CM 

’t 

in 

rs. 

© 

CM 

CO 

in 

10 

© 

rl 

ro 

CO 

"t 

't 


*t 

't 

n 

Ul 

Ul 

in 

in 

in 

'0 

© 

LO 

LO 

LO 

N 

N 

N 

1- 

N 

© 

© 

© 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

co 

CO 

© 

© 

© 

N 

N 

r- 

l- 

N 

N 

N 

N 

N 

r- 

r- 

N 

N 

N 

N 

N 

N 

N 

N 

N 

N 

r- 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

rl 

rl 

rl 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 


in t q t q in 

CM H O' CM O' O 

H H © rl © rl 

© O' CM CM O' O' 

CM H CM CM H H 

rl rl rl rl rl rl 

‘•o in r■- H rl rl 

rl CM H Q O tH 

H rl rl rl rl rl 

rltin'iQQrllOMS 
H CM rl O t CM rl © N O' 
HHCMrlQHHHQCI 


In 

\Tf 

© 

CM 

in 

© 


'-V -A' '-A' '-A' ’-A’ ’-A’ 

Irlrlrlrlrlrlrlrl 

)©©©©©©©© 


UJ 

z 


D 

O 

X 


3 

LL 


D 

O 


UJ 

Ul 


o 

-I I- 
I u 
10 CL 


> 

CL 

I 

Z 


CL 

UJ 

:> 

Z 

o 

o 


in 

CL 


UJ 

o 

CL 

Cl : 

in i 

i 

CL 

O 

X 

> 

LL 

h- 

Z 

UJ 


CL 

O 

O 

<r 

UJ 

: o 


x 

a in 


z 

3 

o 

o 


z 

UJ o 

-J © 
■X 

Z UJ 
CL > 
O X 

z in 







O 

X 


-3 






X 


X 




X 

H 

M 

H 

o 

o 

X 


IO 


© »3 


X 





10 

© 

3 

3 

X 

3 


X 


h- 

U 

h* 

1- 

10 

X z 



3 


X 

3 

H 

•3 

X 

X 10 

>> 

Z 

X 

X 

3 

*—1 

H 

M 

IO 

K 

N 

T 

X 

X 

3 

X 

© 

3 

X 

o 

3 


Z 

M 

X 

Z 


> 

X 

3 

3 

X x 


O 

3 

X 

X 

10 

X 

CJ 

X 

X 

X 


3 

X 

Z 

I Z 

X 

o 


3 

> 


z 

10 


z 

M 

3 



> 

K X 

X 


H 

X 


© 

X 

X 

X 

X 


3 

K 

X 



<3 

X 

X 


X 

Ul 

X 


X 

X 

X 

X 

X 

X 

X 

X X 

H- 

o 

*-« 

o 

> 

z 

o 

G 

o 

o 

z 

<J 

H 

X 

> 

IO O 

IO 

o 

I 

3 

X 


z 

3 

►— 

X 

o 

X 

X 

I 

c 

X O 

X 

3 

10 

I- 

10 

CM 

*-* 

X 

10 

3 

ill 

X 

10 

1“ 

10 

Z 3 

X 




ro 



X 



X 


2 

© 




X 






1 


© 



X 






I X 

© 

CJ 



B 

c 

I 

O' 

z 

CJ 

© 

X 




© 


i 















X X 

w 

*-« 

CJ 

CJ 

> X 

X 

H 

> 

X 


~> 

CJ 

(J 

CJ 

> 

z o 

3 

> 

3 

3 

o z 

z 

o 

o 

CJ 

N 

Q 

3 

3 

3 

■3 

-• a 

X 

z 

X 

X 

Z X 

*-* 

X 

z 

o 

^7 

z 

X 

X X 

Z 


z 

LU 


I 

z 


z 

CO 


z 
D : 

o 

CJ J 

UJ ' 
Z l 


. a. k 
: o uj 
- Cl cl 


Q 

I 

LO 


o 

z 

X 

z 

z 

o 

o 


x 

D 

© 

- o 

Z CO 

o 

CL h- 
2 

O Cl 
X G 
G 

* X 


Z I 
Cl . 

H tO 


X 

X 


• in 
i in 
cj CM 

i 

■ O A 

I- 


D H 
10 10 
UJ UJ 
CL H 


X 

in 

in o 

CM h- 

A h- 
z 
x © 
-• a 
o 

X 

O UJ 
CL Z 
ry h 
UJ 3 


3 

0X0 
X G CJ CL 

uj g uj 

N X UJ h- U» 

Z Z UJ o 

h Ul h O h Z UJ 

OZJtCOM 
Z *-• UJ (L J h 

U1 J l— N X 

OX Z UJ rl 

I M h UJ IL z x 

3 Z Z H ~ 

X CL UJ UJ 3 3 

X X X UJ XXX 

hUJXUZhhZO 
Ul J3UJ0UJ330 
10 O U O O 10 O J 


X 

3 

o 

3 

3 

o 


O 10 
o in 

III 












1 X 

Cl 

N 

\ 


N 

\ 

\ 












ui ci 

H 



10 

7" 

© 

X 


> 

h- 


IO 

X 


X 1- 

L 

CM 

3 X 

►-< X! 

1- 


X 10 

10 

■3 0 1- 

3 U. 

3 

O 3 

X CJ 


X 

1- 


H O 

1- 

LL 

© 

Cl o 

D 

K 

J X 

z 

Z X 10 

UJ 3 


© - 

X ^ 


3 

z 


z z 

O 

3 

X UJ 

UJ £ 

O 

3 

O 3 

n 

X X 

7 Iti 

CJ 

G CJ I 

3 X 

c 

ft 

CJ 

u. 

CJ 

Cl 3 

© 

tL 

V- z 

v UJ 

\ 

O 

N O 

' 

►* s 3 

' Z 


3 




o 


Ci 3 



Ci h- 








> 

3 > X 

> 

X X 

N 

3 

X 

3 3 


Cl 

Z D 








o 

X O CJ 

u_ O 

Z LL 

Z 

I 

CJ N I X 

CJ 

Z 

X O 

3 3 



3 3 

3 

3 3 3 

3 3 

z 

O Z Cl 

Z 

- o 

o 

3 

UCtUlO 

•-> 

*-> 

Z X 

Cl Cl 

Cl 

Cl 

Cl Ci 

Cl 

Ci Ci Cl 

Cl Cl 


z 

h* 
X 
* X 


rl CM 

X X 

3 3 

X X 


o > O' 

O CO CO 

I— 

* * * * o 


ro 

© 

© 

N 

in 

© 

CM rl 
O' rl 
© fO 


N 

© 

© 


fO 

© 

© 


© 

10 

© 


N 

© 

© 

N O' 
© N 
© © 


Page 24 


. N 

N 

rl 

ro 

© 

N 

in 

CM 

© 

N 

N 

N 

N 

LO 

ro 

i © 

© 

O' 

O' 

© 

LO 

rl 

rl 

N 

© 

© 

© 

© 

O' 

© 

i © 

rl 

CM 

© 

ro 

rl 

© 

ro 

rl 

© 

© 

© 

rl 

ro 

ro 

1 rl 

CM 

ro 

O' 

in 

N 

© 

rl 

O' 

Ul 

LO 

N 

O 

rl 

ro 

. N 

N 

rs. 

N 

N 

r- 

© 

© 

© 

© 

© 

© 

rl 

rl 

rl 

i © 

© 

© 

© 

© 

© 

rl 

rl 

r| 

rl 

rl 

rl 

rl 

rl 

rl 

. N 

N 

N 

N 

N 

N 

N 

N 

N 

N 


N 

N 

N 

N 

' S 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

i © 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

Dr 

, 

Dobb 

i's 

Journal 

of 

Computer 




N 

rl 


LO 

CM 


© 

rl 

rl ro 

U 1 

fs. 



© 

rl 


© 

© 


O' 

rl 

H © 

o 

© 



© 

© 


© 

© 


ro 

© 

© © 

© 

© 



cm \n 

in 


in 

© 


© 

rl 

rl LO 

LO 

ro 



© O' 

in 


CM 

CM 


CM 

LO 

LO rl 

ro 

U‘» 



© rl 

© 


ro 

© 


CM 

© 

© © 

ro 

rl 

rl rl 


LO CM 

CM O' 

in 

in ui in 

CM rl 

O' N 

O' 

CM 

in © cm in 

CM 

ro 

© rl 


rl ro 

in © 

rl 

rl rl o- 

lo r - 

rl LO 

<9 

in 

rl rl O' rl 

ro 

© 

ro ro 


© ro 

© rl 

rl 

IO rl © 

ro rl 

© CM 

ro 

© 

© ro © ro 

ro 

ro 

LO N © 

© 

© © CM 

in © 

rl 

cm in lo 

N CM 

ro 0 - 

in 

© 

ro o- in © 

ro 

LO 

rl rl CM CM CM CM CM 

cm ro 

ro 

r o ro r o 

ro o- 

o- o- 

O' 

in 

in in u 1 ) l£ 

LO 

LO 

rl rl rl 

rl 

rl rl rl 

r| rl 

rl 

rl rl rl 

rl rl 

rl rl 

rl 

rl 

rl rl rl rl 

rl 

rl 

NNN 

N 

N N N 

N N 

N 

N N N 

N N 

N N 

N 

N 

N N l- N 

N 

N 

© © © 

© © © © 

© © 

© 

© © © 

© © 

© © 

© 

© 

© © © © 

© 

© 

© © © 

© 

© © © 

© © 

© 

© © © 

© © 

© © 

© 

© 

© © © © 

© 

© 


o- 

CM 

rl 


O' 

CM 


ro 

CM 


M 

CM 


in 

© 


N 

CM 


*t CM B) N M 1 O '0 © H 10 in CM 

© O CM © H t H H Q © © © 

H©H©HnH©H©H© 

in o- is. lo to © h r . © in 'o ro 

© in H © © cm tH ro cm ©ho- 

rlMrlQrllMHOHrlH© 


N N IS. N 


I rl rl in N M 

- N N N N © 

I rl rl rl rl CM 

N r- N N N 

© © © © © 

© © © © © 


Menlo Park CA 94025 


in rl M Tv. rl in N M 
© rl rl rl CM CM CM rO 
CM AJ CM CM CM <\1 CM CM 

N r- N N N N N N 
© © © © © © © G' 
©©©©©©©© 

June/July, 1976 


172 



Ui 

2 

I— 

2 

o 

Lt 

2 

O 


Ui 

(J 

a: 

CL 

w 

V Ui 

o 
u. cc 

Ui • LL 

0 ui 

a; u; uj 

a. <r h o 

i/i i o «r 

a: u 2 a. 

CL 0: Ui 

IOJlL 


Ui 

G 

o 


I t— 
CD H 


CL 
G 2 
UJ 

'D CD 


W 

O 

o 

CJ 

ID 

CD 


CC I Q UJ 
CC I 'S' G 

I O H o 

CJ 2 © 2 
2 © 

I H 3 
II rH LU 


LL. 

£ 

x 

CJ 


CD i 
I UI 


in 

CD 


ll Cl 

o g 
m ui *r 

Cl Cl Cl 
•I H h- UJ 
I _l _l _J 
CJ CD 

u_ u. *r 


h 

Ui ll LU 

m *x in 

Ui i 

Cl O CO 

G 

DHJ-J-Cl 
icaonuii 
G Cl LU U'l I 

D Ct D CJ 

•r x «r u. u. 


Ui 

G CD 
o 'I 


_i 

w 

CD 


m 

UJ 

o 


IX 

X 
X 

CJ 

IX h- 
DUih 

g m m 
x u. IX 


x in 
g h 



4-1 

CJ 

X 

o 

4-4 

h- 

1- 

4-4 

2 


4-4 

t—« 

X' 

2 

-1 

H- 


X 



_i 

4-, 

w 

h- 


I 

X 

4-1 

H-4 

K 


X 


l- 

H 




CJ 

_J h- 

1- h- 

H 

h- 

X h- 

h- 

G 





X 


X \- 


m 



X 


Q 

2 CD 


X 


3 




X 

3 

in 

-J 



~l 





X CJ 




D 




O 

D 





X 2* 

O 2> 

O 

D 

O X o 

D 

X 

in 



X 

o 

X 

D 


X 

X 

1— 

h- 

X 

o 

X 

X 

X 

X 


X 

3 

E 


x 



X 


X 

h- 

X 

X 


G 

G 

1— 

X 

X 


X 


2 

X 




X 

X 

G X 

G 

X 

G 

X 

> 


X 


—J 



X X 


u 

> 

U’l 

2 

2 

3 

H H 

> 

X 

> 

3 

2 

X 

X 

1— 

H 

H 

1— 

jj. 


o 

X 

2 

CD 


CD G 

X 

X 


K 


z 


5 

h- X 


_J 


CD 

K h- 

2> h- 


h- 

i— rn d 



h- 

> 


X 

G 

K 

> H 


> 

X 

u 

Q 

2 

X 

2 X 

X 

2 

X 

2 

2 

o 

o 

X 

D 

LU 

X 

X 


X 

X 

2 

t-i 


X G 

O 

X 

D 

D 


4—4 


X 

D \ 


X 


4—4 

X 2' 

X 2 

X 

“i 

X . X 

-1 

D 

X 

X 


X 

L_i 

X 

X D 


z 

in 

H 

CJ 

•"> 

CD 

O CD 

in 

o 

in 

X 

*-> 

G 

X 

m 

O 

X 

X 

X 


X 

H 

*■> 

X 


H- X 

_l 

K 

*-> 

O 


_J 


X 

a o 


X 


X 

X O 

X O 

X 

O 

X © X 

O 

G 

X 

CD 

X 


H 

X 

a 

X O 


u 

CJ 























X 


X 








X 





G 


X 

X 


X X 






















X 











a 


X 








-J 





CJ 


X 

o 


+ _i 


X 




G 





H 






CJ 


> 



rH 

'* 



H 

rH 






I 

»—* 


J- 



G 

H 




Cj 

CJ 

X 



CD 

> h- 

G CJ 

G 

K 

_J G 

CJ 

X 




X 



1- 


O 

X 

X 

K- 

in 

’t 

rH X 

X 

h- 

X 


3 

X 


1- 

O 

iA 


X 

© 

CJ 


X 

X (A 

_J 

2 

© 

X 

O 



in 

X 

H 

CJ 



X 

H O 

X H 

X 

O 

© G X 

rl 

h- 

X 

X 

G 

X 


2 

o 


g 


5 

z 

+ 


J— © 


G 



G 



G 

CJ 







H 


4 



N 

3 

O 


Q 

+ 


1- M 

> 




G O 

. 1- 


CJ 

^ 2 - 

h- 

o 

X 






X 


3 

CJ 

CM 

o 

* 

X 

O X 

X 


G 

X 

2 

X 

g 

2 

X 

X 

CJ 

X 


X 

X 

-1 

I * 

i g 

X 

rH 

X 

X 


rl 

** 

X 

O H 

i- r - 


X 

2 X 

X O 

X 

X 

CJ K X 

o 

X 

X 

X 

rl 

c 

B 

I 

X 

X 

I X 


CO 















_l 














_l 










-J 



—1 

-J 








X _J 

h- 

\ 

5" 

H 


N 

4—4 

X *-• 

3- 

X 


X 

N 

(—( 

X 

X 

_J 

4—4 

X 


4—4 

■> 

4—4 

U 

►—4 

X 

- G 

> 

4—4 

CJ 

-J K 

4-1 

N 

4-4 

X w 


4-1 

N 

4-1 

X J 

Z* Cl 

4—4 

-J 

H JH 

X 

I 

4—4 

■> 

4—1 

4-1 

G 

> 

X G 

X 

4—4 

O 

X 

CJ 

2 

> 

2 2 

o 

G 

o 

2 

2 

> 

X 

1— 

X 

> 

2 

Q 

> 

Q 

X 

z 

X 

2 

X X 

Q 

X 

2 

X 

X X 

2 

> 

2 X 

N X 

2 

> 

h- X 

I> 2 

> 

X 

> X > 

21 

CJ 

2 

o > 

X 

£ 

o 

D X 

X 


2 

o 

•-> 

•“> 

2 

*-> X 

2 


2 

X 

*"> 

2 

X 

X 

CJ 

2 

X 

2 

2 

2 

o 

*-> 

G 

*-> 

-J 3 

2 

CJ 

►■> 

o 

X 

o 


2 

*•> CJ 

•-> 

CJ X 

2 

X U 

2 *"> 

2 

CJ 

2 CJ 2 



X 

2 

2 

-J 

G 

2 

X O 


o 

ui 
* X 


G 

G 

X 


I 

UI 


CJ 

rl 

I— 

o 


X 

p 

> 


•3 
UJ 
G 
* CD 





Q 

Q 


Q 


rH 



© 



■H 

© 







© 

rH © 

H 




rH 

G 


© 


© 

rH 


rH © 

© 


© 

rH 

© 



rH 



© 




H 



rH 


H 



H 



rH 

rH 







rH 

rf rH 

-t 




rH 

rH 


rH 


rH 

rH 


rH rH 

H 


rH 

•tf 

rH 



•* 



rH 




O 

G 


G 


© 



© 



© 

© 







© 

M © 

m 




© 

© 


© 


© 

© 


© © 

© 


© 

rn 

© 



(A 



© 



X 

H 

in 

■* 

in © 


rH 



rH 



rH 

’t 




© 


© 


in x 

in 



© 

N 

’t 

CM 

(A 

CM 

in in 

© N 

(A 

H -M- 

in u-7 

© 

-t 

X UI CM 

in 

N 

© 

U 1 



N 



5 

’t 

in 

G 

M 


N 



© 

’t 


r- 

CM 

M 



G 


© 

CM 

rH CM 

10 



o 

rH 

CM 

rH 

IT' 

Q 

m rH 

© © 

N 

N CJ 

© <A 

H 

CJ 

© H © 

tA 

\A 

© 

L-i 



tA 



Q 


OJ 

G 

M rH 


© 



n 

rH 


© 

CM 

© 



G 


rH 

m 

m m 

CM 



Oi 

© 

CJ 

© 

(A 

© 

M © 

© © 

© 

© CM 

© r n 

© 

CM 

© CM © 

tA 

G 

© 

(A 



CM 

rH 

r- 

X 


CM 

X 

n x 

N 

CM 

r- 

© 

CM 

X 

CM 

CM 

in 

X 

rH 

N 

X 

rH 

X 

CM 

rH X 

rH 

rH 

X 

X 

CM 

in 

rH X 

CM 

X 

M X 

CJ X © X 

CM IT' 

x rn 

X 

in 

x in x 

(A 

X 

N X 

«H 

■H 

X 

L - i bn 

rH 

rH 

r- 

n 

G 

N 

© 

© 

N 

Oi 

-t 

© 

N 

li") 

X 

rH 

K 

’t 

M 

CM 

r- 

N 

CM 

t © 

-t 

M 

r- 

N 

CM 

rH 

rH K 

© 

N 

© r -- 

rH N 

© f- 

X rH 

r-- © 

N 

rH 

H H N 

G 


rH © 


rH 

r- 

rf rH 


rH 


m 

(A 

O 


rH 

© 

rH 

C'i 


© 

CM 

© 


© 

CM 

rH 

© 

rH 

M 

cn 

© M 

© © 

rH 

n 

(A 

<A 

iA (A 

M 

© 

rn m 

tA m n © 

© rn 

© M 

© 

(A 

© M © 

(A 

tA 

rH © 

© 

© 

H 

tA (A 


X N 

N 

N N 

© 

CM 

in 

© 

cm in 

r- 

© 

tA 

't 

in 

© 

CM 

(A 

X 

rH 

(A 

't 

in 

N 

© 

CM 

UI © 

tA 

X 

N 

O 

CM 

in 

© rH 

tA 

X 

© tA 

in © CM 

tA 

in © 

tA 


Q 

CM 

ui r- 

CM 


r-- 

N 

n r- 

rH CM 

A- 

N 

© 

rH 

CM 

tA (A 

m 

M M 

’t 

•t 


in 

in in 

in 

X 

X 

X 

X 

N 

r- 

N 

r- 

© 

© 

© 

© 

© 

H 

rH 

rH CM 

CM 

CM 

CM 

(A 

tA 

tA f 

"t 


\n in 

in x x 

X 

X N 

N 

N 

© 

© 

© © 

rH 

rH 

rH 

rH 

H rH 

CJ CM 

CM 

CM 

M 


tA 

•>i CM 

CM 

CM CJ 

CM 

CM 

CM 

CM 

CM CM 

CM 

CJ 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

tA 

tA 

tA 

tA 

tA 

tA 

tA 

M tA 

tA 

tA 

tA 

tA 

tA 

tA 

tA (A 

iA 

tA 

tA n 

tA M tA 

tA 

tA tA 


tA 

© 

© 

© © 

© 

© 

© 

© 

© © 

© © 

© 

© 

© 

© 

© 

© © 

© 

© © 

© 

© 

© 

© 

© © 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

G 

G 

G 

© 

G G 

© 

© 

G 

G 

Q 

G 

© © 

G 

G 

© © 

© © © 

© 

G © 

© 

G 

rH 

rH 

H rH 

rH 

rH 

rH 

rH 

rH rH 

rH rH 

rH 

rH 

rH 

rH 

rH 

rH rH 

rH 

rH rH 

rH 

rH 

rl 

H 

rH rH 

H 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH 

H 

H 

rH 

rH 

rH 

rH 

rH 

H H 

rH 

rH 

H 

rH 

rH 

rH 

rH rH 

rH 

rH 

rH rH 

rH rH rH 

rH 

rH rH 

H 

rH 

rH 

rH 

rH rH 

rH 

rH 

rH 

rH 

rH rH 

rH rH 

rH 

rH 

rH 

rH 

rH 

© © 

© 

© © 

© 

© 

© 

© 

© © 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© 

© © 

© 

© 

© 

© 

© 

© 

© © 

© 

© 

© © 

© © © © 

© © 

© © 

© 

© 

© © 

© 

© 

© 

© 

© © 

© © 

Q 

© 

© 

© 

© 


X 

H 


X 

3 








I/I 



















O G 





X 



X 





Ui X 







UJ 






X 




H— 









a z 





X 


o 






2 X > 













LU 




Ui 









X 





»- 

l- 

X 

X 





l- X G 







4—1 



UJ 



l— 

X 






X 



X 



X G 

-J. 




2 

2 

X 

h* 





X O X 







G 



a 

in 


~r 

G 




Z 





G 



X 

O 




2) 

2 

N 

X 





1- X 










X 

Ui 




X 


CO 2 

X 

CD 

d 


X 

G 

X 


I X 



Ui 


O 

O 


X X G 





Ui O X 



~4- 




o 



X 

UJ 


n 

X 

X 


X 

G 

X 

X 


2 

X 

\ 


CJ X X 

> 

Ui 

X 

CJ 

O 

l— 

G G 





y- x 



Cl 

Ui 



LL 

UJ 


I/I 

X 


(J 


X 


1- G 

CD 

H 

*\ h- 


X 


u 

X 

y~ 

4—4 

X 

X 

2 



O h- 

G G G 





y- Gh 



■r 

D Ui 


UI 

UJ 

D 


UJ 

G 

(D 


h- 

a 

Ui 

4—4 CD 



X o o 


4—4 

h- 


\ 

y— 


X 

X 

4—4 

X 

X 

2 > 

X X X 





Ct cl CD *-• X 



2 

G CD 


G 

N 

G 



G 

LU 

X 

UJ 


CD 

CD 

II 

X 

X 2 



2 

X 

o 

2 X 

X 

X 

G 

G 

2 

z 

l— 

X 





x x x y- g 




•r ll 


•r 


•r 



X 

X 

X 

Ui 

2 

X 

X 

A 

o 

1- X 


o 

X 

o 


X O 

2 

o 

G 


4-i rH 

4—4 

X 

X X 





I 2 G Z 

a 


CD 

> cc 


G 




h- 



X 


LU 

G 

X -< 


X 

4-1 u. 


h- 

2 

X 

X 

2 X 

2 


X 

h- 

G 

G 

4-1 O 

CD CD 1- 




X 

CJ X 2 G h- 

■>> 



G 


Ll 

Cl 



D 

H 

LU 

(J 


2 

X 

4—4 

X 


X *-« 



X 


4—1 

X 

4—1 

X 


X 

Ui 


h- 

X X 2 




2 

1— G 2 

CD 


O 

h 



O 

Ui 


X 

D 

G 





h* 

4—4 

1“ 

h- 


X 

X 

K 


XXI- 

H 

X 

X X 

G 2 

X 

X 

Ui X X 




4—1 

x 2 x x x 



h- 

UI o 


H 

LL 



h- 

X 


h- 


J— 

l— 

g in 


Ui 

Ui G 


H 

p 

LD 

G 

o ui 

2 

X 

> 

Ui 

X 2 

> 

O X 

Ui O h- 




H 

>Q.UiOUH 

O 



Ui o 


UJ 

0: 

£ 


D 

2 

O 

UJ 


Ui 

Ui 

X X 

■jL 

X 

'XXX 


X 

2 

X 

o 

2 0X0 

G X 

2; 

o 

X 

o \ 

X l— 2 


X 


2 

X Z 2 O X 2 

l— 



l- H 


l/l 

UJ 

i/i 


O 


H 

X 

CM 

CD 

Ui 

CD h- 

o 

h- 

O H CO 

X 

G 

4-4 

h- 

X 

4-1 H K 

CJ 

O 

Ui 

4-1 

G 2 

in 

G CJ 

2 Ui O 


h- 


O 

UlHhGXO 














+ 







D 















X 


X 










LO 





X 







X 













Ui O 


G 

















2 







4-1 













2 G 




V 




> 

»- 



l- 

Cl 

G Cl 

2 



X 



h- 

rH 


H h- 





CM 

X 

n 



G 

X 

X 

A X 

G G X 


G 


h- 

rH 

I 

G 

•G 

CC 

G 


•r 

I 

X 1- 



CM 




G n 

2 

X 

2 G 

o 

X 



2 

CJ X 

21 



Ui 

I 

i 

2 G 

X X O I X 

I 

1- 

Ih O X > 



ui 

I 



X 

y 


z» 

G 






X 

X 

X 

X M X 

H 



tA 

X 

i 2 

X 



2 

O 

o 

X X 

. X 

G 

X 

G 


i X (J i h 

CD O 

G 

X 2 

•f 

<L 

2 

2 

X o 

I 


d 

I 

G 

X 

CD v 

4—4 

K 

4-i h X 


2 

I G rH 

*-• 

O X o 

*"* 

X 

G 


G 2 X 

z 

n O 

XXX 

© 

'• 

tA 'MX 

O 

x y- m x y~ 

U’l 



G 







G 

G 

<D 



x 






2 








I 

G 



G 






■> 

> 

G 

LL 

> 

<L 


X 

4—1 

G 

G 

I 

4-1 

4—1 

CC 

X 

4—4 

o 

4-4 

4H n 

4—1 

> 

X 

X rn 


X > ri 

N 

X 

i/I 

G 

XXX 

X 

N G h- 

►-* *-* X 




1— 

:> □ a > h 

o o 

<r 

u Cl 

o 

LL 

N 

K 

X X 

X 

(J 

"> 

X 

G 

X 

2 X 

2 

X 

N X 2 

G 

O 

2 2 X 

N 2 O X 

2 

X 2 

X O G O 

l— 

2 X X X X 2 

X 

3 

Ui X Ui X 

2 

O Z G 2 O 2 

2 

2 

o 

G *-> 

2 

o 


U1 

G CJ 

(J 

X 

2 

G 

G 

o 

•-> O 


CJ 

►->0 2 

2 

2 


n (J 

*■> 

4-. 2 CJ 


O X O X G G 

Ui 

hCJXGG^G 

G 

G G G G 

X 

2 « X ^ 2 O 


A 

X 

X 


rn 

x 


UJ 

2 


X 

* -• 


•:-.j 

2 

X 


X 

CD 


CJ 

_l 

CD 


2 H rH 

O DO 

CJ CJ 

* * * in in 


© rH 
© 
© rH 





CM 



CM 

rH 

CM CM 

X 



rH 



© 

G 


G © 



© 

© 


tA 

rH 

rH 

© 

G © © CM A A 




© 



© 

© 



Q 

rl 

© © 

© 



rH 



rH 

rH 


rH rH 



rH 

rl 


G 

rH 

H 

rH 

A rH rH © © CM 




rH 



© 

© 



© 

© 

© © 

© 



© 



© 

© 


© © 



© 

© 


G 

© 

© 

© 

tA © © © rH H 




Q 



in 

© 



© 

A 

UI CM 

X 


CM 

A 



rH © 

X 

A 

X Ui rH 


in 

in © 

CM 


CM 

A 

A 

in 

X CM A N rH -H 



Ui 

in a 



CM 

CM 



(M 

A 

N © 

tA 


© 

N 



r- a 

CM 

CM 

CM rH f '- 


rH 

A rH 

© 


in 

A 

A 

r-- 

N Q rH tA G © 



© 

CM © 



tA 

© 



© 

© 

© rH 

CM 


© 

© 



rH © 

rH 

© 

rH © rH 


© 

rH rH 

rH 


CM 

© 

G 

© 

© CM CM rH HH 



© 

CM © 

A 

IT* 

in 

in cm 

in 

N 

CM 

CM 

rH in 

U"> 

tA 

X 

rH 

CM 

r- 

CM X 

CM 

X 

CM X CM 

N 

tA tA X 

CM A rH X 

CM 

N 

in in 

rH CM Ui 

CM 

CM 

inrHrHTHMinCM-t© 

© 

in 

N tA N 

CM © M 

© -H 

rH 

A X 

N 

X 

rH 

X 

A rH 

rH 

UI 

rH 

’I’ 

M 

X 

N N 

CM 

f- 

H N O 

X 

't CJ N 

rH rH N N 

© 

X CM rH 

CM t- \- 

X 

© 

rHrH©'t©rH©©'t 

A 

rH 

© n © (M IV CM 

rH 

rH 

tA 

© tA 

rH 

CM 

tA 

© 

© tA 

M 

M 

© 

© 

O 

CM 

tA tA 

tA 

tA 

tA M M 

rH 

© © M 

M © rH (A 

tA 

CM 

tA tA 

m © © 

© 

tA 

tA MOOMOrHrHO 

G 

CM 

rH tA G in H M 


CM tA 

Tf 

N © 


A 

Ui 

© 

<A X 

rH 

A 

in 

N 

CM 

M 

A N 

rH 

't 

X rH tA 

X 

X 

X X 

N 

© 

rH 

tA 

X N © 

CM 

Ui 

X 

N CM tA X 

r- 

CM 

Ui © rH 

A N 

CM 

iA N 

tA 

A N 

© 

iA 

A A 

A A in N G ( A A 

A A 

Tf 

A Ui 

in 

in 

Ui 

x 

X X 

r- 

N 

N 

r- 

© 

© 

© © 

rH 

rH 

rH CM CM 

CM 

CM 

CM CM 

cm tA n 

tA 

tA m a 

A 

A 

A 

A 

in ui in 

ui 

X 

X N N 

n r - 

© 

© © 

rH 

rH rH CM CM CM CJ 

CJ CM CJ CM iA (A (A 

G G 

© 

© © 

© 

© 

© 

© 

© © 

© 

© 

© 

© 

rH 

rH 

rH rH 

rH 

rH 

rH rH rH 

rH 

rH 

rH rH 

rH 

rH 

rH 

rH 

rH rH rH 

rH 

rH 

rH 

rH 

rH rH rH 

rH 

rH 

rH rH rH 

rH rH CM 

CM CM CM CM CM 

CM 

CM CM CJ 

0J CM CM CJ CJ CM CM 

G © 

© 

© © 

© 

© 

© 

© 

© © 

© 

© 

© 

© 

© 

© 

© © 

© 

© 

© © © 

© 

© 

© © 

© 

© 

© 

© 

© © © 

© 

© 

© 

© 

© © © 

© 

© 

© © © 

© © © 

© © 

© 

© © 

© 

© 

G G 

©©©©©©© 

rH rH 

rH 

rH rH 

rH 

rH 


rH 

rH rH 

rH 

rH 

rH 

rH 

rH 

rH 

rH rH 

rH 

H 

rH rH rH 

H 

rH 

rH rH 

rH 

rH 

rH 

rH 

rH rH rH 

rH 

rH 

rH 

rH 

rH rl H 

rH 

rH 

rH rH rH 

rH rH 

rH 

rH H 

rH 

rH rH 

rH 

rH 

rH rH 

rH rH rH rH rH rH rH 

© © 

© 

© G 

© 

© 

© 

© 

© © 

© 

© 

© 

© 

© 

© 

© © 

© 

© 

© © © 

© 

© 

© © 

© 

© 

© 

© © © © © 

© 

© 

© 

© © © 

© 

© 

© © © 

© © 

© 

© © 

© 

© © 

© 

© 

© © 

©©©©©©© 

June/July, 

1976 




Dr. 

Dobb's 

Journal of 

Computer 

Calisthenics & 

Orthodontia, Box 

310, Menlo 

Park 

CA 94025 


Page 25 


173 



Pointers to other good stuff 


WE WANTED TO INCLUDE MUCH MORE IN THIS ISSUE THAN WE COULD AFFORD. PART OF IT WILL JUST 
HAVE TO WAIT FOR FUTURE ISSUES. THE REST OF IT (ALONG WITH STILL OTHER USEFUL TIDBITS) HAS BEEN 
PUBLISHED ELSEWHERE: 


Southwest Texas Products Corp., 219 W. Rhapsody, San Antonio TX 78216, has put out the first issue of their Newsletter, a 49-page, 

loose-leaf job. We would like to applaud their work and their approach to hobbyist software. This issue of the SWTPC Newsletter contains 
extensive information on 6800 software, including some “bug" notices and corrections, a list of available 6800 games, some hardware notes and 

schematics, and complete listings of: 

A Black Jack game-playing program (9 pages, full-size, hex-coding only) 

A Memory-Dump program (2 user-documentation pages, 2 pages of unannotated source code) 

A 1.3K Editor (3 user-documentation pages, 6 pages of unannotated source code) 

A 3.15K Micro BASIC (5 user-documentation pages, 15 pages of unannotated source code) 

The Editor was written by Robert Uiterwyk, 4402 Meadowwood Way, Tampa FL 33624. Micro BASIC was done by Uiterwyk and Bill 

Turner. We have spoken with Mr. Uiterwyk several times (we originally planned to publish Micro BASIC in this issue), and think “his head’s 

in the right place." He and his associates are actively pursuing the production of free and very inexpensive systems software for hobbyists. 

We would like to praise their efforts and urge them onward. 

The July issue of People's Computer Company, Box 310, Menlo Park CA 94025, contains its usual load of exciting items, notably 

including: 

Lichen Wang's Star Trek, written for Palo Alto Tiny BASIC [DDJ, Vol. 1, No. 5] (We wanted to publish it in this issue of the 
Journal but didn't have room.) 

An update of the comprehensive list of computer stores in the May issue of PCC. 

An update of the list of computer clubs that was given in the preceding issue of PCC. 
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48 LINES OF 64 CHARACTERS ON A TV 
Kit Price is $499.95 


by Video Terminal Technology staff 

6108 Elmbridge Dr., San Jose CA 95129 

I've seen this running on a small Sony teevee, and was very im¬ 
pressed. The characters were clear and sharp. They bypass the 
RF and amp, and go directly to the tube to avoid character 
smear and obtain higher bandwidth. Screen update was fast. 

The company is small, run by good people, and I believe they 
will be quite responsive to their customers. —Jim Warren 


Video Terminal Technology announces a new video com¬ 
puter terminal with all the features of a professional terminal 
at a hobbyist price. The VT-4000 video terminal displays 48 
lines of 64 characters in a 5x7 font. This provides the capa¬ 
bility to display 3076 (3K) characters simultaneously—8 times 
the standard tv typewriter's 16 lines of 32 characters. 

The VT-4000 gives the operator complete control over 
his or her display. The keyboard interface card decodes all 32 
of the standard ASCII control functions. These control func¬ 
tions are user designated and can be strapped to match any 
software operating system. The selected controls can move the 
cursor up, down, right, left, and home. Direct cursor address¬ 
ing uses two control characters to position the cursor anywhere 
on the CRT screen. Other control functions can be used to 
selectively clear the displayed page, clear the entire memory, 
or clear the character positions from the present cursor posi¬ 
tion to the end of the line. Two more control characters al¬ 
low the operator to display individual characters either white 


DIHENS I ON IN< 236) 

TYPE "FILNAME?" 

RE AO< 11.100>INAM 
let FORMAT< S10 > 

CALL OPEN<8.IMAM.2.IERR) 
TYPE "NO OF BLOCKS?" 

READC 11 >NB 
00 10 1*1.NB 
I I - I - 1 

CALL RDBLKC8. I I. IN. 1. IERR) 
WRITEC 10. 101 JIN 
101 FORMATC IX.417 ) 

10 CONTINUE 

CALL CLOSEC 8. IERR > 


TYPE SNOOPY 


XXXX 
X XX 

X *** X 

X ***** X 

XXXX ******* XXX 

XX X ****** xxxxxxxxx 

< X **** X 

XX XX X 


xxxxx 

XXX XX 

XXXX XX 


X ' ' 

< " 

< XXX// 

< XX 

< X X 

xxx 
X XX 

x xxx 

X 

X 

XX 

XX 

xxx 


xxxxxxxxxxxxxxxxxxx 


XX xxx 
X** X 

x***x 

XXXX 

XX 


x xxxxxxxxx 

XX x 

XXXX xxxxxxx^ 

XX*** x 

xxxxxxxxxxxxx * * x 

* * X X 

* * * XXX X 

* * xxx 

* *x 

* *X X 

* *X X 

* *XX X 


< XX 
XX X 

< XXXX 
XX X 

X XX 
XXXX 


Larry Balch photo 

2366 Mossdale Way, San Jose CA 95133 


on black or black on white. This leaves 16 control characters 
available for the requirements of the particular software 
operating system. 

The VT-4000 video terminal also offers other standard 
on/off features such as power-on clear, clear to end of line 
with line feed, scroll up, and scroll down. The scroll up/ 
down feature allows up to 16K of RAM to be scrolled 
through before any data is lost. After all of the available RAM 
has been scrolled through, the VT-4000 then starts to over¬ 
write the previous data. The VT-4000 basic configuration comes 
with 4K of RAM, expandable to 16K. 

The VT-4000 has been designed to easily interface to 
any computer and any video monitor or slightly modified 
television receiver. The computer I/O available is either RS232, 
TTL serial, or TTL parallel at any of the standard BAUD 
rates from 110 to 9600. The video monitor input available is 
either composit video/sync, separate video and composit sync, 
or separate video, separate horizontal sync, and separate verti¬ 
cal sync. A television receiver may be used as a video monitor 
if the following modification is made. Break the signal path 
between the IF section and the video section, and insert the 
composit video/sync at this point. However, if a sharper 
display is desired, insert the composit sync at this point and 
apply the video directly to the cathode of the CRT. Any 
questions about this modification will be answered by Video 
Terminal Technology (VTT). 

The VT-4000 is available from VTT primarily in kit 
form in any configuration from single boards to 100% com¬ 
plete kits. Assembled and tested boards or complete models can 
be purchased for a standard assembly fee. All such options 
carry a six-month parts and labor guarantee. 


512-CHARACTER VIDEO RAM 

Matrox Electronic Systems 1P.O. Box 56, Ahuntsic 
Syn., Montreal, Quebec, Canada, H3L 3N5, (514) 481-6838] 
has announced a most interesting widgit: 

Their MTX-1632 is a single physical component. Its 
input pins can be directly connected to any M-P bus and appear 
to be input to a 512x8 RAM. The output, however, is a video 
signal that directly drives a TV monitor. It displays 16 lines of 
32 characters each, interpreting the bytes in its RAM as ASCII 
character codes. It requires only a single 5-volt power supply, 
can drive up to 25 TV monitors, offers character-blink, and has 
an access time under 650 nanoseconds. 

SONOMA COUNTY COMPUTERS HOLD MEETINGS 

(reprinted with permission from Homebrew Computer Club 
Newsletter) 

The SONOMA COUNTY MICRO COMPUTER CLUB in 
Northern California is small but powerful. We are a group of 
several ALTAIR’s, an IMSAI, a JOLT, two PDP-8’s, an APPLE, 
and some others on order. We all have people up and running. 

We meet the first Tuesday in each month at LO*OP CENTER 
in Cotati. Meeting time is 7:30 p.m. Any interested systems are 
invited to attend with their operators. 

BYE BYE BIRDIE LO*OP CENTER 

LO*OP CENTER CLASSIC PDP-8 8099 La Plaza 

Cotati CA 94928 
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VARIABLE CHARACTER SPACING 
IN VIDEO DISPLAYS 

by Jim Day 

17042 Gunther St. 

Granada Hills CA 91344 

Figure 1 shows a typical dual-case TVT alphabet, each 
letter of which is generated via a 7 by 9 dot matrix. If two 
"undots" (using the terminology of Don Lancaster's TV Type¬ 
writer Cookbook) are appended following the seventh dot posi¬ 
tion of each line of each letter, each letter will require 9 dots 
of width on the tv screen. The alphabet could be stored in a 
ROM, the dot pattern of each letter being represented by 9 
bytes. Figure 2 shows 9 bytes representing the letter "A". 
Figure 3 shows how the string "even spacing" would be dis¬ 
played using this alphabet. Notice how much empty space 
appears on both sides of the letter "i ". This is because each 
letter is centered left-to-right in the matrix which is 7 dots 
wide. 

Wouldn't it be an improvement to move the dot pattern 
of each letter as far to the left as possible, within the matrix, 
and display each letter in a variable-width format? This could 
be done conveniently by preceding the first byte of the dot 
code for each letter (in the ROM) by an extra byte indicating 
the width of that character. (Or perhaps the unused low-order 
bits of each code group could be used instead.) Figure 4 shows 
the 10 bytes of ROM that would then represent the letter 
"A". The first byte indicates a width of 5 dots for that let¬ 
ter. Two undots are understood to follow the rightmost dot 
of each letter, but are not included in the width value. Fig¬ 
ure 5 shows how the string "Variable spacing" would be dis¬ 
played using this scheme. 

It can be seen that about 50% more letters can be dis¬ 
played on one line by use of variable spacing. This format is 
also easier to read. There are complications, though. Hardware 
would have to be added to the TVT to latch the width values 
and adjust the character-generation timing accordingly. More¬ 
over, it would be necessary to keep track of cumulative width 
values in the current line, tooontrol line format (e.g., if the 
Basic TAB function were to be used). But this would be a 
small price to pay for the benefits obtained. 


Figure 1. Typical Dual-Case TVT Alphabet 



00111000 

00000101 

01000100 

01110000 

01000100 

10001000 

01111100 

10001000 

01000100 

11111000 

01000100 

10001000 

01000100 

10001000 

00000000 

10001000 

00000000 

00000000 


00000000 

Figure 2. 


Nine bytes 

Figure 4. 

representing 

Ten bytes 

an "A”. 
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width vale 
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000 
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Figure 3. Even spacing of display. 
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Figure 5. Variable spacing of display. 
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TVT-II Mods to get 64 characters per line 


by David 0. Valliere 
Digital Designs 
Box 4241 
Victoria TX 77901 

Dear Editor: May 10, 1976 

If you are using your TVT-II as a computer I/O you 
may have found the 32 character/line format somewhat limit¬ 
ing. By making minor modifications to the TVT-II board you 
can lengthen the 32 character line to 64 characters/line, and 
thereby expand your system’s capabilities. 

Here are installation instructions for my 32 to 64 char¬ 
acter/line TVT-II modification board and 2K memory board. 
The modifications can be made easily by wire wrapping or a 
set of boards can be purchased. My TVT-II has been modified 
since early October, and I am using a very old tv with no 
bandpass problems. 

My board manufacturer is tooled up for manufacturing 
the boards and can guarantee shipment within 3 weeks after 
receiving orders. I also have layouts completed for an upper¬ 
case/lowercase auxiliary board for the TVT-II, as well as the 
computer-controlled cursor interface. These boards will also be 
provided if there is enough interest. 

Board prices are S3 for the auxiliary board, $12 for the 
2K memory board, and $16 for the set. Shipping is included 
in these prices. Texas residents add 5% tax. Please make 
checks payable to Digital Designs. 

Sincerely yours, 

David O. Valliere Box 4241 

Digital Designs Victoria TX 77901 

The TVT-II memory is continuously being addressed 
through nine address lines to generate the video data used by 
the teelvision display. The tenth address line (A9) is used to 
switch from page one to page two. By using the A9 address 
line for continuous addressing, the TVT-II con be modified to 
display 64 characters/line. Since the additional 512 characters 
being displayed are what used to be page two, additional 
memory will have to be added to provide storage of a second 
page. 

HOW IT WORKS 

The basic design of the TVT-II make the modifications 
required to make it display 64 characters/line quite simple. 
IC21 and IC14 on the main TVT-II board normally count up 
32 characters and upon reaching the 33rd count, pin 11, 

IC14 and address AO go high. This disables the "dot clock" 
until the next line is started. Being in the 33rd character posi¬ 
tion also enables the video blanking circuit through IC12C 
and IC5B. The line is blanked until a new line is started. By 
allowing the video generation and the "dot clock" to continue 
operating until the 65th character position is reached, 64 
characters/line will be counted. This can be done by discon¬ 
necting pin 11, IC14 from the video blanking circuit and con¬ 
necting it to address line A9, after having disconnected A9 
from the page 1-2 flip-flop. Pin 11, I Cl 4 is also tied to pin 
14, the input of the unused counter is IC14 whose output 
(pin 12) is then tied to the video blanking circuit. Thus we 
have effectively added an additional 32 counts to the address 
lines through pin 12, IC14 and transferred the video blanking 
function to the 65th character position. Since the RC oscil¬ 
lator network of the "dot clock," IC18B, was originally tuned 
for 32 characters/line, capacitor C4 will have to be replaced 


with an 18 pF unit to provide for 64 characters/line. 

We are now addressing through ten lines/page. The cur¬ 
sor-compare circuitry must be modified to provide comparison 
of the A9 address bit. This modification will require providing 
an additional cursor-position count-bit and a comparator. The 
designer used a 74193 BCD counter to allow preloading the 
additional cursor bit through a computer cursor position inter¬ 
face. The additional 74193 is attached to the carry and borrow 
bits of the original cursor counter, IC35, after disconnecting 
them from the 5th-bit flip-flop, IC27A. Carry and borrow bits 
are generated by the new counter through NAND gates IC4A 
and IC4B, and are sent to the original 5th-bit flip-flop IC27A. 
The cursor bount bit is tied to pin 15, IC42, on the main 
board and compared with the A4 address bit. The output of 
the 5th-bit flip-flop IC27A which was originally compared 
with the A4 address is brought on to the new circuitry and 
compared with address A9 by the comparator. The cascaded 
"=" pulse from 1C 42 on the main board is input to the 
comparator. The output pulse is sent to IC41. This pro¬ 
vides an additional cursor count bit which is compared with 
address A4. The new A9 address is compared to the old 5th- 
bit flip-flop whose output has become the 6th-bit count. IC42 
and IC41 on the main board and the new comparator pro¬ 
vide the pulse required to position the cursor on the 64 char¬ 
acter line. 

An additional six 2102's will be required to store a 
second page of data. By tying the CE pins of each group of 
memories to pins 8 and 9 of the page flip-flop, IC27B, the 
pages will roll over as originally designed. 

[Editor's Note: We have omitted eight pages, containing in¬ 
structions for assembly, memroy modifications, 2K memory, 
piggybacking, early TVT-II mods, start-up, and schematics. 
Those interested should write to Digital Designs for complete 
details.] 

PARTS LIST 

64 Character Board 
one 74193 
one 7485 
one 7404 
one 7400 
one 0.10 mfd disc 
one 18 pf 
Wire, 26 Ga. 

2K Memory Board 

twelve 2102 memories 
fourteen 0.10 mfd capacitors 
two 2102 memories (optional) 
two 15-pin Molex board connectors 

The auxiliary board and 2K memory boards are avail¬ 
able from Digital Design. Both boards are Milspec with tin/ 
lead fused plating and silk-screen component placement. The 
auxiliary board is single-sided whereas the 2K board is double¬ 
sided with plated-through holes. 

Shipment within 3 weeks is guaranteed. 


CENTRAL OKLAHOMA COMPUTER GROUP 

The Central Oklahoma Amateur Computing Association (CENO- 
ACA) organized in January. It now has about 30 members. It meets 
the 2nd Saturday of each month at 10 a.m. in the Oklahoma City 
Warr Acres Branch Library, NW 63d & MacArthur. It has programming 
seminars & workshops in addition to the monthly meetings. For details, 
contact: Lee Lilly, Box 2213, Norman OK 73069. 
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HOMEBREW TV DISPLAY WITH GRAPHICS 


by Glendon Smith 

Gentlepersons: May 20, 1976 

This is a short description of a tv display circuit I use in 
my Altair 8800. Although I have made only limited use of 
the graphics capability, it should be useful, as is, for games 
requiring a playing board. With synchronization as discussed, 
fast games should be clearer. 

Others may wish to make changes in the logic design. It 
was sometimes the result of space limitations. If fast data 
selectors are used as specified, the memory probably can run 
without wait states. 

Sincerely, 

Glendon C. Smith 5822 Daffodil 

Dayton OH 45449 
513-435-0214 

The tv display described in this report is intended for 
direct plug-in to the bus of an Altair 8800 or other similar 
microcomputer. The circuits could be adapted to CPU's other 
than the 8080. 

This display differs from the tv typewriter circuit in 
three major areas. 1) The screen refresh memory is connected 
to the bus when it is being loaded or altered. 2) The display 
can produce 128 characters stored in a Motorola ROM (12 
lines of up to 32 characters each) and/or up to 128 graphic 
shapes (8x8 picture elements) stored in RAM (24 lines of 32 
shapes). 3) A crystal-controlled commercial sync generator 1C 
is used to provide vertical interlace and a jitter-free display. 
Other features include the ability to have the 8th bit in the 
byte used to specify a character or a graphic shape, the 



ability to cause that character or shape to blink or to reverse 
itself, the ability to reverse the entire display by software, the 
ability to display a boarder, and the capability of having soft¬ 
ware scrolls, an erasing cursor, or other custom features. 

As presently implemented, switching from refresh opera¬ 



tion to the bus is not synchronized with the blanking for 
borders so that an insertion of a character causes the loss of 
about two sweep lines (a white or dark band about 1 mm 
wide provides notice tha.t a letter was written). This is not 
annoying to those who have seen the display. For fast games 
it might be advisable to switch the memories back to the bus 
during FIELD, and dealy the CPU if these memories are 
addressed during FIELD. This would slow the display slightly. 
Without synchronization, a software line feed or scroll up 
(moving 384 characters) takes about 10 milliseconds or about 
one-half of a vertical sweep of the tv screen. 

The construction of the prototype of this display was 
eased by using two commercially available boards (and asso¬ 
ciated components) which were connected together by hinged 
bars the length of the connector spacing on my Altair mother 
board. The memory board (MB-2 from Solid State Music) has 
its copper traces connecting all 8 of the 2102's comprising a 
bank (IK x 8 bits) before connecting the next bank. Before 
mounting the sockets it is necessary to cut many copper 
traces between banks. The bank nearest the bus connector 
will become bank 0 (lowest address). It is not used by the 
tv display. 

The next higher bank (bank 1) stores the 128 graphic 
shapes (8x8 bits each). Bank 2 stores the codes for the 
graphic shapes (24x32 bytes) and has some space which may 
be used for subroutines. If the graphic capabilities are not 
being used all three lower banks may be used as part of main 
memory. The highest, bank 3, stores up to 1024 characters 
which may be arranged as 32 lines (only 12 displayed) of 32 
characters, or as two pages with enough space left over for 
routines which write on either page (page 1 has scrolling, cur¬ 
sor, etc.). The latter system is the one I have used thus far, 
but I can imagine applications such as text editing which might 
use several K of memory for character storage with more 
elaborate scrolling schemes. 

The other board used is a Universal I/O Board (IO-1) 
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effects 
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from Solid State Music. It just barely has a p ooofo r all the 
circuits for the tv display plus one INPUT PORT for a key¬ 
board (Clare-Pendar). Eight pieces of 8 or 10 conductor rib¬ 
bon cable handle the interconnections between boards and 
help in keeping the bits in order. 

One of the changes to the memory board which is not 
shown in the diagrams concerns chip enable and R/W inputs 
to the 2102’s. Pin 3 of each bank of 2102's was disconnected 
from pin 11 of 7400 A and now receives its input from one 
of the address selectors as shown. Pin 12 on the 74L42A was 
ungrounded and connected to pin 11 of 7400 A. The out¬ 
puts of the 74L42A then became R/W signals feeding the 
address selectors and the pin 13's of the 2102's formerly con¬ 
nected here are all connected to ground so the chip outputs 
are enabled. 

Several other points will come up in preparing the Solid 
State Music boards for this use. The designer of the I/O Uni¬ 
versal board ran +5 and gnd lines to many positions, expec- 
ing you to use 16 or 14 pin 1 C's there. However, he did not 
leave a space between the ends of the 1C positions as their 
length requires, so many of these traces must be cut before 
sockets are installed. Because the output port (200 octal in 
my system) does not need an output connector, traces to this 
14 pin pad are cut and a 1C is installed there. On the mem¬ 
ory board MB-Z, all the data input lines are left intact as are 
all the address lines from the connector to the nearest IK 
bank of memory (which will become bank 0). All the data 
outputs are isolated by cutting the traces at appropriate points, 
as are the address lines to banks 1, 2, and 3. The chip 
enable and R/W lines are discussed above. 

Other arrangements of the 2K of memory used in the 
generation of the graphics portion might be useful. For ex¬ 
ample, a 128x96 display of individually addressable points 
(each point, however, is 4 times the area of a picture element 
of the current display and the blinking and reversing possi¬ 
bilities appear to be out). One might built only the character 
portion or only the graphic portion (and generate the needed 
characters). The display described here may stimulate club 
members to design a special display as a group project and to 


produce p.c. boards to ease the labor for all concerned. 

I use the Hitachi PO-3 12" B&W tv. It is easy to inter¬ 
face, is all solid state with instant on, and is available for 
about $68. Interface information is available. 

OUTPUT PORT - CONTROL BYTE FUNCTIONS 
Port (200 octal in my system) 

Bit 0 High to display page 2 characters 
Bit 1 High to blink preselected characters 

Bit 2 High to blink preselected graphics 

Bit 3 High to invert (reverse) preselected characters 
or graphics 

Bit 4 High to invert (reverse) entire display 
Bit 5 High to display surround (border) 

Bit 6 Low to connect bank 3 (character storage) to 
bus 

Bit 7 Low to connect banks 1 and 2 to bus 

The 8212 output port is cleared by the front panel 
switch so that the 3 banks of memory can be dumped (or 
loaded) without special instructions in existing programs. 

SUPPLIERS 

MB-2, 10-1 boards and kits 
Solid State Music 
2102A Walsh Ave. 

Santa Clara CA 95050 

MIKOS 

419 Protofino Dr. 

San Carlos CA 94070 

6.13635 MHz, 26C Series Crystal @ $5.50 postpaid 
International Crystal Mfg. 

10 N. Lee 

Oklahoma City OK 73102 

The MCM6571C character gen. came from the Digital 
Group but I understand that a new version only requires +5 
volts. The 5320 (National) Sync Generator ($4) came from 
Solid State Music, as did most of the I.C.'s. 
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$98.50 GRAPHICS TERMINAL KIT 



By SWTPC 219 W. Rhapsody San Antonio, TX 78216 

Southwest Technical's GT-61 Graphics Terminal is a low 
cost graphics unit designed for hobbyists or budget minded com¬ 
mercial applications. The 9 ’/a" X 13" PC board contains all of 
the electronics necessary to display an array of cells 64 wide by 
96 high on a standard video monitor or modified television set. 





The graphics terminal contains its own 6144 bit static memory 
and thus may be driven by any computer system having a TTL 
compatible 8 bit parallel interface. The unit is available in kit 
form only and is sold less power supply, chassis, and monitor 
for $98.50 ppd. in the US. Delivery is 30 days. 
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ERRORS IN 

& IMPROVEMENTS FOR WHIPPLE’S & ARNOLD’S 
TINY BASIC EXTENDED (TBX) 

Dear Sirs: April 15, 1976 

I have noted some errors and possible improvements 
in Arnold's and Whipple's Tiny BASIC Extended (TBX) 

[please see Dr. Dobb’s Journal Vol. 1, Nos. 1 & 2]. 

A minor reduction could be made at the entry point 
of the main program by eliminating a jump. The end of the 
error routine duplicates the initialization, so it could be 
shortened. These two routines follow (in split octal): 

INITIALIZATION: ERROR: 


Address 

Data 

Comments 

Address Data Comments 

000000 

061 

LXI SP 

026275 

041 

LXI H 

1 

377 

dl 

026276 

002 

dl Entry point of 

2 

000 

d2 

026277 

032 

d2 IL program 

3 

303 

JMP 

026300 

061 

LXI SP 

4 

254 

dl 

026301 

377 

dl 

5 

021 

d2 

026302 

000 

d2 

021254 

041 

LXI H 

026303 

303 

JMP 

021255 

002 

dl Entry point 

026304 

257 

dl to IL 

021256 

032 

d2of IL progrm 

026305 

021 

d2 interpreter 

021257 


IL interpreter 





All of the items in the left column could be eliminated, 
and the entry point could be at the start of the right column, 
at address 026275. Or, the right column could be replaced by 
a JMP to address 000000. Or, the two segments could be 
rearranged as follows: 


(error routine) 


061 LXI SP 

377 dl 

000 d2 

041 LXI H Entry point of 

002 dl IL Program 

032 d2 


IL Interpreter 


Actually, a lot of extra JMPs and NOPs are to be ex¬ 
pected when programming is done in machine language, like 
TBX was. A primitive assembler, like SPHERE'S mini¬ 
assembler, which just assembles addresses and some data but 
not mnemonics, would be all that would be needed to 
produce a trimmer program. 

I should say that I really appreciate the job Arnold and 
Whipple have done. I'm pointing out a lot of little things, but 
I think they did a great job. 

At a number of places, the character counter advances 
past spaces. Many bytes could be eliminated by making all of 
these segments into a subroutine. Such segments are at: 

021327, 022324, 023351, 022304, 024100, 027214, 030032, 
and probably other places. 

Subroutine 022147 contains a divide routine. Perhaps this 


subroutine could be shortened by calling on the other divide 
subroutine. 

Some error jumps, which should be to message number 
14 (memory depletion) go instead to error message number 
15, which is not defined. This can be corrected by changing 
addresses 027121, 030350, 030372, and maybe others, from 
360 to 355. 

The IL Instruction at 033211 is: '266 355 "(".' This 
means that if the next character isn't "(", address 026355 
will be considered the next Interpretive Language (IL) 
instruction. This will bomb out the program, since 026355 is 
to be treated as a machine language (ML?) instruction, not 
IL X instruction. The instruction at 033211 could be: 

'233335 "(".' Address 033335 contains a proper instruction, 
'326352/ which will properly execute the machine language in¬ 
structions starting at 026352. Incidentally, the address 
should be 026352, which outputs error message number 13, 
parentheses error, rather than 026355, which outputs error 
message number 14, memory depletion. The same problem 
exists at 032127, 033223, 033241, 033254, 033266, and 
033275. 

The Random function (RN) should be altered slightly. 
The random number returned is 16 bits. However, the RN 
only shifts in 8 new bits each time it is called. Therefore, the 
upper 8 bits are what the lower 8 bits were the last time RN 
was used. If address 030210 is changed from 010 to 020, RN 
will shift in a full 8 bits each time it is called, hopefully 
making it more random. 

When an instruction is being compared to the possibili¬ 
ties, the first word is 'GO,' but the second is not 'to' or 'sub,' 
the second is compared to '1st,' 'run,' etc., instead of the 
program immediately indicating unrecognizable statement. This 
could be fixed by changing the instruction starting at 032057 
from '232275 "SUB" ' to '232330 "SUB".' Then 'GO' 
without 'To' or 'Sub' would go to 'unrecognizable statement' 
error message. 

Thank you for your consideration. 

Yours truly, 

Charles Skeldon 2320 Co. Rd. 1-3 

New Brighton MN 55112 


1980 CENSUS: HAVE ANY SUGGESTIONS? 

The Census Bureau is now actively working on plans for 
the 1980 census, and important decisions have to be made in the 
relatively near future. 

Although there are many constraints on the census in terms 
of what and how much information can be collected and tabulated, 
the Bureau believes that it is very important to obtain and review 
the recommendations of as wide a range of users and potential 
users of decennial census data as possible. The Census Bureau is 
therefore anxious to have the ideas from leaders in mathematics 
education. 

Send suggestions, questions, or comments on the 1980 
census to Director, U.S. Bureau of the Census, Washington DC 
20233. 


Entry point of main program 


This method would 
eliminate 12 bytes. 
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Errata/additions to Palo Alto Tiny BASIC 


by Lichen Wang 


adds a video display (VDM by Processor Technology as an 


Dear Jim: 23 June 1976 

I have a few miscellaneous items related to the “Palo 
Alto Tiny BASIC” published in Dr. Dobb's Journal, VoL 1, 
No. 5. First of all, there are a few misprints (my fault). On 
page 13, right column, second line from the bottom, the 
minus sign should have been a back arrow The same 
misprint appeared on page 14, left column, lines 15 and 16. 

Secondly, I forgot to mention that this interpreter 
actually takes 1. 77K bytes. In the list published, I padded it 
up to 2K bytes, and it can be either in ROM or in RAM. 
There are 30K bytes unused at the end of the “command 
table” (Hex 0183-01 AO), another 30 unused bytes at the end 
of the “function table” (Hex 01B3-01DO), and 177 bytes at 
the end of the I/O routines (Hex 074F-07FF). These unused 
bytes can be patched to add more commands, and/or more 
functions, and/or to modify the I/O routines without re¬ 
assembly of the whole interpreter. An example follows which 


alternate output device. When the control-0 key is used to 
turn off the TTY echo and output, the VDM becomes the 
echo and output device. When the control-0 is typed again, 
echo and output goes back to the TTY, etc. Control-P 
key is used to clear the VDM screen and text always scrolls 
up from the bottom of the screen. 

The interpreter also needs RAM to store variables, stack, 
and the Tiny BASIC program. In the published list, 6K of 
RAM is assumed. You can change this in increments of 256 
bytes by changing 9 bytes in the interpreter. These 9 bytes 
are marked by “@@@@” in the listing. 

Last and also least, I have a STARTREK game program 
coded in Tiny BASIC. It will barely fit in this 6K of RAM. 

It is probably a very bad example for Tiny BASIC (or any 
language). In order to squeeze in as much salty stuff as possi¬ 
ble, I have abbreviated every command and put as many com¬ 
mands as possible in each line. As a result, the code is al¬ 
most unreadable. (But it is fun to play!) 

NOTE: Wang's StarTrek is 
being published in the July 

issue of People’s Computer 


Sincerely, 
Lichen Wang 
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MinErrata for MINOL 
plus Tiny TREK 


ADAPTER MAKES LSI-ll’s AND 11/03’s INTOtf£AL 
PDP-11 ’s 

Able Computer Technology [1538-E East Chestnut St., Sant; 
Ana, CA 92705, (714) 547-6236] is manufacturing a "10001 Uni- 
verter". It converts an LSI-11 bus into a DEC Univus, and permits 
full bidirectional communication between the two. It provides 
the user with control of all four interrupt levels. It also provides 
an extended memory map allowing addressing of up to 512K 
words. The Univerter is a standard quad-width board that can 
be installed in a PDP-11/03 or an LSI-11 card cage. It is avail¬ 
able from stock. 

$450 DOT-MATRIX PRINTER FOR 6800’s & 8080’s 
40 Characters/Line, 80 Characters/Second 

by Electronic Product Associates, Inc. staff 

Electronic Product Associates, Inc., 1157 Vega Street, 

San Diego CA 92110; 714 276-8911, has announced the 
availability of a new, low-cost, 40-column, dot-matrix impact 
printer. The printer complete with drive electrincs, character 
decoding and software driver proms, power supply and attrac¬ 
tive hardware and plastic cabinet interfaces directly with the 
6800 and 8080 microprocessors. The printer is capable of 
printing a surprising 80 character per second bi-directionally. 
Single quantity pricing is $450, delivered from stock. 

The model 40C utilizes a serially-driven printing element 
consisting of 7 print solenoids and print wires. The print 
wires are arranged vertically; the printing element is driven 
from either direction at constant speed. A synchronous motor 
driving a spirally grooved drum accomplishes this motion. 

Ribbon feed is a simple by-product of printing element 
motion. Ribbons are inexpensive and easily replaced. 

All electronics for driving, decoding and program storage 
are powered by the self-contained D.C. power supply 


f 



by Erik Mueller 

36 Homestead Lane, Roosevelt NJ 08555 

June 13,1976 

Here are several errors in the listing of MINOL [please see 
Dr. Dobb’s Journal, Vol. 1, No. 5] which should be corrected: 

Locations: 

001 350 should be 242 
002 050 should be 273 

004 060 should be 107 (o mitted from listing) 

Pressing Cf destroys the system (if held down long enough). 
Fix this by changing the following locations: 

002 375 303 

002 376 111 

002 377 hhh 
003 000 000 

hhh 111 321 

hhh 111+1 321 
hhh 111+2 321 
hhh 111+3 321 
hhh 111+4 317 
(etc.) 021 
112 
003 
303 
001 
003 

hhh 111 is the first address of 11 free locations in user’s system. 

In my description of the I/O subroutines I meant that the 
parity bit (8th bit) must equal one. When I said X°, I meant 
control c; X s means S°, means if. 

The following is an extremely simplified version of STAR 
TR E K. (Text and storage fits in 1.5K.) 

Open Reel IMSAI/HIT tapes of MINOL 2.1 (along with 
appropriate read software) are avaihblefor $4 from me. 

If I find any more errors, I will write. 

Sincerely, 

Erik Mueller 

ICE-NINE IS ALIVE & WELL IN ILLINOIS 

Dear Editor, 

Why haven't you listed our club and monthly publication in your 
fine issues????? Probably because none of our 25 or so members 
bothered to tell you about us. We are called ICE-NINE INC. A not- 
for-profit organization formed a year or so ago for mutual computer 
oriented interests. We have pooled our resources and purchased a Sphere 
System 40 with floppy discs, line printers, etc. We have our own tele¬ 
phone number for time-share callers and have even set up a radio re¬ 
peater station (licensed through our amateur radio members) to allow 
computer use from distances up to 60 miles through amateur tran- 
ceivers and remote TTY units. 

We are looking for prospective members in the Chicago area and 
have a huge amount of programs in BASIC and FORTRAN for ex¬ 
change with other organizations. 

C. Cassiouceous Box 291 

ICE-NINE INC. Western Springs IL 60558 
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1 

2 

3 

4 

5 

6 

7 

8 


PR"*TINY TREK*" 
B=l/3:W=!/l/+9:L=255 
X=1:A=/ 

J=1 

( 12, X-1*8+0!+200)=/ 
J=J+1:IP J<8;G0T05 
X=X+1:IF X<8;G0T04:X=1 


Tiny TREK 


J=i 


9 IF !< 150 ; GOTOl/:( 12 t X-1*8+J+2//)=l/l55+1 :IF(12,X-1*8+J+2//)=2;A=A+1 
1/ J=J+I :IFJ<8; G0T09 

11 X=X+1:IFX<8;G0T08 

12 E=!/38+1:F=1/38+1 


13 ( 12,E-1*8+F+200)=3:I? 150<I;GOT016 

14 S=1/38+1:T=!/38+l 

15 (12,S-1*8+T+200)=4 

16 IF W<A;IF ¥<111; GOT03 

17 IF S<E;C=E-S:IF T<F;G=F-T:IbD+l 

18 IF E\'S;C=S-E:IF'F<T; G=T-F 

19 IF C<2;IF G<2:L=255 

20 PR" 1234567 ' 

21 X=t : K=/ 

22 J=1 

23 C=(12,X-1*8+J+200) 

24 IF C=0 ; PR" 

25 IF C=1;PR". 

26 IF 'C=2; PR"K "; 

27 IF C=3;PR"E"; 

28 IF C=4;PR"b"; 

29 IF C=2;K=K+1 
3/ J=J+1:IF J< 8 ;GOT023:PR rt 

31 IF X=2;PR"SECT0R ";E;F 

32 IF X=3;PR"STARDATE ";D 

33 IF X=4;PR"EHERGY ";L 

34 IF X=5;PR"KLING0NS ";¥ 

35 IF X=6;PR"CONDITION"; 

36 IF X=6;'IF K=/;PR" GREEN" 

37 IFX=6;IF /<K;PR" *RED*" 

38 IF X=1;PR:IFX=7;PR 

39 X=X+1:IFX<8;GOT022:PR 
4/ IF K=0; GOTO 42 

41 H=l/25+1:L=L-H:PRH;"UNIT HIT FROM KLINGONS":GOTO 50 

42 PR" " (Because I have a TVT) 


1) This game is not perfect. 

2) It is super-simple. 

3) There are three commands: 

1. Move to different sector within quadrant. 

2. Move to different quadrant. 

3. Fire at a specified sector. 

4) Energy is refuelled upon diagonal docking with a starbase. 

5) E = Enterprise 
K = Klingon 

B - Starbase 
. = Star 

6) Yes, you can fire phasers and go through stars. 

7) Don’t get upset if the quadrant you're in doesn’t have a star- 
base (there aren't starbases in every quadrant). 

8) Don't get upset if your energy is refuelled even if you aren't 
docked with a starbase. 

9) Don't get upset if anything weird happens. 


50 IF W=/; GOTO 17/ 

51 IF D=/; GOTO 18/ 

52 IF L<60; GOTO 18/ 

53 PR"COMMAND";IN A 
60 IF A=3;GOTO 15/ 

7/ IF A=2;GOT014/ 

1// PR"WHAT SECTOR DO YOU WANT TO GO TO?" 

1/1 R=1/4:GOTO 2/1 

1/4 IF (12,M-!*8+N+200) If /;G0T012/ 

1/5 (12,E-1*8+F+2//;=/:(12,M-1*8+N+200)=3 
1/6 E=H: F=N: G=G*3 s L=L- G: GOTO 17 

12/ X=/ (Restores position on TVT when incorrect data is entered) 
121 PR:X=X+1:IF X<13;GOT0121:GOTO l// 

14/ L=L-6’:PR:PR:PR: GOTO 3 
15/ Pn"WHAT SECTOR TO FIRE AT?" 

151 R=155:GOTO 2/1 

155 IF K30; GOTO 16/ (Random miss) 

156 IF( 12,M-1*8+N+2//)=/:W=W-1 

157 IF (12,M-1*8+N+2//)=/ 

16/ G=G*4:L=L-G: GOTO 17 
170 PR"YOU WIN I I I" 

180 pr"you LOSEI 1" 

2/1 IN M,N:IF E<M;C=M-E:IF M<E;C=E-M 
2/3 IF F<N;G=N-F:IF N<F;G=F-N 
2/4 C=0*0:G=G*G:0=C+G:G=/ 

2/5 G=G+1:IF G*G<0; GOTO 2 / 5 1 0=G-1 t GOTOR 
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Button , Button in 8080 machine code 


by Ron Santore 

Here's the game of BUTTON, BUTTON written in 
8080 machine language for computer and terminal. (Altair & 
TVT or TTY, etc.) 

NOTES: 

1. Just load the programming instructions in locations 
000,000 through 000,377. 

2. Then load the text in locations 001,000 through 
004,377. Be sure that after each paragraph of text, you type 


the asterisk as I've shown because it's used as a return queue. 

3. The program as is takes a little over 1 K of memory 
but it will easily fit into IK by just shortening the text. You 
might want to change the text anyway to fit your own 
(computers') personality. 

4. If you have any questions, write or call me (person- 
to-person): Ron Santore 

1957 Huasna Dr. 

San Luis Obispo CA 93401 

(805) 544-1956 


oooooo 

06 l 

LXT. SP 

065 

312 

001 

XXX 

your highest memory 

066 

151 

002 

XXX 


067 

000 

003 

021 

LXI D/E 

070 

021 

004 

000 

instructions 

071 

360 

005 

001 


072 

002 

006 

315 

CALL 

073 

315 

007 

347 

print subr. 

074 

347 

010 

000 


075 

000 

Oil 

315 

CALL 

076 

000 

012 

103 

input subr. 

077 

000 

013 

000 




014 

016 

MVIC 

000100 

303 

015 

060 

•zero (ASCII) 

101 

030 

016 

315 

CALL 

102 

000 

017 

210 

rnd. subr. 

000103 

333 

020 

000 


104 

000 

021 

107 

MOV A to B 

105 

017 

022 

021 

LX I D/E 

106 

332 

023 

020 

"whos got the button" 

107 

103 

024 

002 


110 

000 

025 

315 

CALL 

111 

333 

026 

347 

print 

112 

001 

027 

000 


113 

376 

030 

014 

INR C 

114 

107 

031 

171 

MOV C to A 

115 

310 

032 

062 

STA 

116 

376 

033 

354 

store turn # in text 

117 

131 

034 

003 


120 

312 

035 

376 

CPI A 

121 

014 

036 

066 

six (ASCII) 

122 

000 

037 

312 

JZ 

123 

376 

o4o 

330 

"you lost" 

124 

116 

041 

000 


125 

312 

042 

315 

CALL 

126 

367 

043 

103 

input 

127 

000 

044 

000 


130 

376 

045 

270 

CMP A to B 

131 

070 

046 

312 

JZ 

132 

372 

047 

300 

"right you are" 

133 

146 

050 

000 


134 

000 

051 

074 

INR A 

135 

021 

052 

346 

AN I 

136 

072 

053 

007 


137 

003 

054 

270 

CMP A to B 

140 

315 

055 

312 

JZ 

l4l 

347 

056 

151 

"neighbor has it" 

142 

000 

057 

000 


143 

303 

060 

075 

DCR A 

144 

103 

06l 

075 

DCR A 

145 

000 

062 

346 

AN I 

000146 

346 

063 

007 


147 

007 

064 

270 

CMP A to B 

150 

311 


JZ 

000151 

021 

LXI D/E 

"neighbor has it" 

152 

240 

"neighbor ha 


153 

002 


LX I D/E 

154 

315 

CALL 

"who me" 

155 

347 

print 


156 

000 


CALL 

157 

315 

CALL 

print 

160 

210 

rnd subr. 


161 

000 


NOP 

162 

376 

CPI 

NOP 

163 

003 

"3" (Binarv) 

JMP 

164 

372 

JM 

165 

200 

pass higher 


166 

000 

IN 

167 

005 

DCR B 

status word 

RRC 

170 

171 

170 

346 

MOV B to A 

AN I 

JC 

172 

007 


173 

107 

MOV A to B 


174 

303 

JMP 

IN 

175 

030 


176 

000 


CPI 

ITT 

000 

NOP 

"g" (ASCII) 

000200 

004 

INR B 

RZ 

201 

170 

MOV B to A 

CPI 

202 

346 

AN I 

"y" (ASCII) 

203 

007 


JZ 

204 

107 

MOV A to B 


205 

303 

JMP 


206 

030 


CPI 

207 

000 


"n" (ASCII) 

JZ 

210 

211 

04l 

265 

LXI H/L 

end subr. 

212 

000 



213 

026 

MVID 

CPI 

214 

010 

"8" (Binary) 

"8" (ASCII) 

JM 

215 

176 

MOV M to A 

216 

007 

RLC 

217 

007 

RLC 


220 

007 

RLC 

LX I D/F. 

221 

256 

XRA M 

"no such number" 

222 

027 

RAL 


223 

027 

RAL 

CALL 

224 

055 

DCR L 

print 

225 

055 

DCR L 

226 

055 

DCR L 

JMP 

227 

176 

MOV M to A 

input 

230 

027 

RAL 

23i 

167 

MOV A to M 

AN I 

232 

054 

INR L 


233 

176 

MOV M to A 

RET 

234 

027 

RAL 
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235 

167 

MOV 

A to M 

342 

347 

print 

361 

323 

OUT 

236 

054 

INR 

L 

343 

000 


362 

001 


237 

176 

MOV 

M to A 

344 

315 

CALL 

363 

023 

TNX D/E 

240 

027 

RAL 


345 

103 

input 

364 

303 

JMP 

241 

167 

MOV 

A to M 

346 

000 


365 

347 


242 

054 

INR 

L 

000347 

333 

IN 

366 

000 


243 

176 

MOV 

M to A 

350 

000 

status word 

000367 

021 

LXI D/E 

244 

027 

RAL 


351 

007 

RLC 

370 

220 

"thanks 

245 

167 

MOV 

A to M 

352 

3R2 

JC 

371 

004 


246 

025 

INR 

L 

353 

347 


R72 

315 

CALL 

247 

302 

JNZ 


354 

000 


373 

347 

print 

250 

216 



355 

032 

LDAX D/E 

374 

000 


251 

000 



356 

376 

CPI 

375 

303 

JMF 

252 

346 

AN I 


357 

052 

* (ASCII) 

376 

103 

input 

253 

007 



360 

310 

RZ 

377 

000 


254 

376 

CPI 








255 

010 

"8" 

(Binary) 







256 

370 

RM 








257 

303 

JMP 




ASCII 

DATA TO BE STORED 

IN MEMORY 

260 

210 









261 

000 




ADDRESS 

TEXT 




playing" 


262 XXX 

263 XXX 

264 XXX 

265 XXX 

266 000 
267 000 

270 000 

271 000 

272 000 

273 000 

274 000 

275 000 

276 000 
2T7 000 

000300 171 

301 376 

302 063 

303 372 

304 317 


any # 
any # 
any # 
any # 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

MOV C to A 
CPI 

"3" (ASCII) 
JM 


(001,000) CR BUTTON, BUTTON CR IF LF 

EIGHT PEOPLE ARE SITTING IN A CR LF 
CIRCLE, WITH YOU IN THE CENTER. CR LF LF 
ONE OF THEM HAS THE BUTTON AND CR LF 
YOU HAVE TO GUESS WHO. CR LF LF 
THE PERSON WITH THE BUTTON CAN CR LF 
PASS IT, SO BE CAREFUL. CR LF LF 
YOU HAVE FIVE GUESSES. CR LF LF~ 

WHEN YOU'RE READY, TYPE -Tr G Tr 7 * 

(002,020) CR LF 0 CR LF 

BUTTON, BUTTON 7 1 CR LF 

6 ? 2 CR LF 

WHO'S GOT 5 3 CR LF 

THE BUTTON?. 4 CR LF * 

(002,240) CR 

I DON'T HAVE IT, CR LF 
MY NEIGHBOR DOES. CR LF 


305 

000 



306 

021 

LXI D/E 


307 

320 

"you found it" 

( 002 , 360 ) 

310 

003 


311 

315 

CALL 


312 

347 

print 


313 

000 



314 

303 

JMP 

(003,072) 

315 

103 

input 

316 

000 

LXI D/E 


000317 

021 


320 

205 

right you are 


321 

003 


(003,205) 

322 

315 

CALL 

323 

347 

print 


324 

000 



325 

303 

JMP 

( 003 , 320 ) 

326 

103 

input 

327 

000 



000330 

170 

MOV B to A 


331 

366 

OR I 

(004,040) 

332 

, 060 

prefix for ASCII 

333 

/ 062 

STA 


334 

104 

store button in text 


335 

336 

004 

021 

LXI D/E 

(004,220) 

337 

040 

"you lost" 


340 

004 



341 

315 

CALL 



BUT WHOEVER HAS IT PASSES IT! CR LF * 

CR 

WHO, ME?? CR LF 

I DON'T HAVE IT! CR LF 

WHOEVER HAS IT, KEEPS IT. CR LF * 

CR 

SILLY, CR LF 

THERE'S NO ONE HERE CR LF 

WITH THAT NUMBER....TRY AGAIN: CR LF * 

CR 

RIGHT YOU ARE; LUCKY! CR LF 
PLAY AGAIN? (Y OR N) * 

CR CR LF LF 

YOU FOUND THE BUTTON IN _ TRIES. CR LF 
ANOTHER GAME? (Y OR N) * 

CR 

SORRY. THAT WAS YOUR LAST GUESS. CR LF 
" " HAD THE BUTTON! TRY AGAIN? CR LF * 


CR 

THANKS FOR PLAYING.CR LF 

ANYONE ELSE WANT TO PLAY?? CR LF 
(Y OR N) CR LF * 
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DON’T UNDERESTIMATE BASIC 

Dear Editor, June 9, 1976 

I think anyone who underestimates BASIC in its more sophis¬ 
ticated forms is making a mistake. It is powerful, it can be well or¬ 
ganized, and yet a novice can get going very easily. Most important 
for micros—the time for an amateur or part-time programmer to get a 
working program is % that of other languages. 

C.D. Johnson 2801 SW Patton Lane 

Forest Products Engineering Portland OR 97201 


BASIC COMPLAINT & MACRO MESSAGE 

Dear Sir, 5 May 1976 

I am very curious about the motivation for including the article 
"A Critical Look at BASIC" by Dennis Allison in Dr. Dobb’s Journal 
Vol. 1, No. 2. This article is the first one I have encountered in the 
computer hobbyist press that talks about modular and structured pro¬ 
gramming. This may be because, as your editorial says, that most 
other magazines are hardware oriented. In any event, Allison's article 
confirms what I have long suspected, namely, that BASIC is not the 
language of choice for state of the art programming. However, the 
inclusion of Allison's article in a magazine whose raison d’etre is to 
promote a subset of BASIC does seem a bit odd, to say the least. 

Allison's article raises some questions that neither Dr. Dobb’s 
Journal nor PCC seem to answer, namely, if BASIC is bad for you, 
why encourage people to be BASIC junkies? 

Let me note that I am not a rabid BASIC hater; just troubled 
by the difference between what we are supposed to do, and what we 
actually do. 

Those who advocate structured programming seem also to advo¬ 
cate language with lots of control structures. Lots of control struc¬ 
tures sounds like a big language to me. Big languages are OK if you 
have megabytes of core, but obviously aren't very good if you're a 
hobbyist with 2K. Structured programming seems precluded by the 
limitations of a minimal hobbyist system. Is the hobbyist with a 
modest system limited to assembler or a language with not much more 
than GOTO's and a conditional branch? Or, is there some kind of a 
happy compromise between Tiny BASIC and, say, PL/I? I would 
certainly like to see DDJ address some of these issues. 

A final suggestion. The assembler I use at work doesn't have 
any macro facilities. The other day, I decided to see what I could do 
about this. The macro generator GPM described by Wegener in his 
book, Programming Languages, Information Structures, and Machine 
Organization, looked interesting. I looked up the original article on the 
language (Strachev. "A General Purpose Macrogenerator," The Com¬ 
puter Journal, Oct., 1965, Vol. 8, No. 3, pp. 225-241) and discovered 
a listing for a GPM processor written in CPL. Strachey says the orig¬ 
inal implementation of GPM was 250 "orders" long. This is one hell 
of a lot of macrogenerator per word of core. Thus GPM might be of 
interest to people with home brew assemblers. Sounds like the sort of 
thing DDJ might be interested in. My implementation was a "quick 
and dirty" FORTRAN job done on the sly. As you might expect, 
Strachey's program has bugs in it. Some are real boo-boos. 

Yours, 

Fred J. Dickey 3420 Granville Rd 

Westerville OH 43081 


There is a lot wrong with BASIC; it is not the language of 
choice when the program is going to be long or complex. Unfortun¬ 
ately, there is a substantial group of people who do not understand 
that; hence, the publication of my "Critical Look At BASIC." I had 
hoped that it would help our audience (many of whom have only 
recently encountered any programming language) attain a bit of per¬ 
spective on what BASIC is and where it belongs in the spectrum of 
things. 

There is a lot right with BASIC, too. For small programs its 
interactive capabilities outweight the cumbersome control structures. 

Its "text editor" orientation makes it easy to implement interactively 
with an interpreter. Given the spectrum of available language models, 
it is difficult to see how any other language could have been a better 
model for a super-minimal implementation. Tiny BASIC is about right— 
and an one is going to write a giant tiny BASIC program (I hope!). 

Macro processors are magnificent tools with frightening powers 
and capability. The problem is how to make sure that a macro, partic¬ 
ularly one in Strachey's GPM, does what you think it does. I would 
hazard a guess that some of the "bugs" you have found in the pub¬ 
lished version are, in fact, simply unexpected macro expansions which 


COMPUTERS FOR STUDENTS’ HOME STUDIES 

Dear Mr. Warren: 8 May 1976 

We are organizing a research project whose aim is to 
investigate how small "Home Computers" might be used in 
education-helping students to study at home. To keep up 
informed about new developments related to home computers, 
please enter our subscription to Dr. Dobb’s Journal. 

Do you know of other publications related to home 
computers? 

Sincerely, 

Jerry Felson, Ph.D. 

President 84-13 168 St 

Cybernetic Decision Systems, Inc. Jamaica NY 11432 


COMPUTERS-IN-EDUCATION BIBLIOGRAPHY 

The National Council of Teachers of Mathematics (NCTM) 
bibliography, Computers in Education, has replaced the old list, 
Computers in the Mathematics Classroom. This new listing is 
separated into seven sections, including one on mathematics texts 
series. 

Single copies of this 41-page bibliography are available free 
on request from the NCTM Headquarters Office, 1906 Association 
Dr., Reston VA 22091. 


SUMMER MEETING OF THE ASSN. FOR DEVELOP¬ 
MENT OF COMPUTER-BASED INSTRUCTIONAL 
SYSTEMS 

The 1976 Summer Meeting of the Association for the 
Development of Computer-Based Instructional Systems (ADCIS) 
will be sponsored by Control Data Corporation at Minneapolis, 
Minnesota, August 10-12, 1976. For further information about 
the conference, contact the General Program Chairperson: Dr. 
Karen Duncan, Director, Office of Computer Resources, College 
of Dental Medicine, 80 Barre Street, Charleston, South Carolina 
29401, (803) 792-3211. 


HAND-HELD CALCULATORS IN CLASSROOMS 

The Iowa Council of Teachers of Mathematics (ICTM) 
has recently published the Monograph-1976, The Hand-Held 
Calculator. The ideas and activities included were suggested by 
ICTM members from their classroom experiences. 

Copies of this monograph are available for $1.50 (ICTM 
member), or $2 (nonmember) from Ann Robinson, 509 W 20 
St., Cedar Falls IA 50613. Make all checks payable to ICTM. 


are performed according to the rules. I'd suggest that you look at 
another MACRO system—the TRAC system. There is a good descrip¬ 
tion in Nelson's Computer Lib. The FORTH language and Logical 
Machine Corporation's ADAM are also macro-like systems, but they 
defer expansion to run-time. We'd be pleased to publish macro sys¬ 
tems implementations should anyone be willing to prepare them. 

Incidentally, macro systems can perform many of the same func¬ 
tions as compiiers, but the underlying model is quite different. A com¬ 
piler decomposes the input text into a phrase structure and then as¬ 
signs meaning based upon that decomposition. A macro processor 
matches a template and then transforms the text accordingly. Macro 
systems are inherently more powerful than compilers modeled on con¬ 
text-free languages since they are (inherently) context-sensitive. A.S. 
Tenenbaum describes using such a system in IEEE Transacting on Soft¬ 
ware Engineering, SE-2,2, June, 1976, p. 121. --Dennis Allison 
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TINY TIME SHARING??? 


IVERSONS INITIATE APL NEWSLETTER 


Dear Editor, 6/2/76 

I would like to get readers to start thinking about the 
possibilities of contructing multiple-user or time-shared sys¬ 
tems using table-top hardware. 

The development which I think makes this possible is 
the Video Display Module VDM-1 from Processor Technology 
Corp. (6200 Hollis St., Emeryville CA 94608). I happen to 
have designed it, in part for the money, but also so that peo¬ 
ple more skilled in software than I (and that's almost anyone) 
could put together multi-user systems. 

The VDM-1 is a memory module (1024 bytes) with a 
window (the video monitor screen). It has an upper/lower 
case character set which includes control characters (128 char¬ 
acters). There is a video inversion cursor which can be set at 
each character by setting the high-order bit of that character. 
This effectively doubles the character set to 256. Display for¬ 
mat is 64 characters by 16 lines. 

Since it is memory, the processor can read from the 
VDM as well as write to it. This means that information spe¬ 
cific to a given user can be stored in that user's VDM, and 
pulled out for use when desired, modified, and put back in. 
This can happen in a memory area which is masked from the 
view of the user by the "window shade." As its name implies, 
this is a blanked area of the screen which can be "pulled 
down" from the top to blank a maximum of 15 text lines. 

The CPU determines the length of the shade through a status 
byte which it outputs to the VDM through an OUT 
instruction. 

Suppose that Tiny BASIC (or Tiny ALGOL or Tiny 
FORTRAN or whatever) is set up in the CPU's main memory 
area. Several users with VDM's could be building programs, 
the object code of which is stored in the first few lines of 
their screens. (Here my ignorance of systems software will 
probably become laughably apparent. It's the vision that 
counts.) The CPU runs through a schedule in which it pulls 
out the object code and tables of parameters in a user's 
in a user's screen, runs the program until a convenient point is 
reached, stuffs the code and new parameters back under the 
window shade, and goes on to the next user. One of the 
parameters would obviously be the location on the screen of 
the cursor. If the total number of bytes used for this storage 
were 512 per user, that would still leave 8 lines of 64 charac¬ 
ters. These could be configures as two columns of 32 charac¬ 
ters, having a total length of 16 lines. 

The more ambitious a user got, the lower the window 
shade would go as the hidden area filled up with stuff. This 
would provide a "negative feedback" effect which might serve 
to keep the user reminded of the limited nature of the 
machine resources. Users of /ncredible Z?ig Monster machines 
will throw tantrums at the thought of this, but they will have 
to be brought into the real world somehow, whether they 
like it or not. 

I have been talking about a multi-user operation, in 
which several people use the same program. True time-sharing 
requires (I think) that each time the CPU steps to the next 
user, it be able to call up the program (meaning Tiny BASIC 
or Tiny ALGOL) that that user wants. Clearly these programs 
cannot be kept under the window shade, but, if they are tiny 
enough, there should be enough RAM available on a full-blown 
65K system (providing the power supply holds out). 

Incidentally, it might be a tickle to keep object code 
and parameters on the screen without pulling the window 
shade down over them. They would appear to flicker, sparkle 
and otherwise rearrange themselves in operation. This would 


Dear Editor: 5/24/76 

APL Press is a new publishing house devoted exclusively 
to APL. Its first book, to appear this summer, is a high 
school text on elementary analysis by Ken Iverson, the inven¬ 
tor or APL. Several other titles are planned for publication 
this year, and further manuscripts are being sought. 

A newsletter is also planned, to present brief articles, 
problems, definitions of functions, reports on conferences, 
correspondence, and others items of interest to the APL com¬ 
munity. The first issue, which is scheduled for July, will in¬ 
clude a report by Professor Jenkins on a recent APL Imple¬ 
mentors' Workshop, an article on magic cubes by Professor 
Mauldon, and material on a new form of function definition 
excerpted from a forthcoming book. 

Readers interested in receiving the newsletter and infor¬ 
mation on other publications, or in submitting material for 
publication, should write to APL Press, Box 27, Swarthmore 
PA 19081. 

Jean Iverson 

[Jean Iverson is in charge of the APL Press. She is "closely 
associated" with Ken Iverson. —JCW] 


A SOFTWARE EXCHANGE FOR 6800’s 

Dear Sirs: 5-15-76 

I am sponsoring a SOFTWARE EXCHANGE for those 
interested. Anyone interested in receiving software for any of 
the microcomputers, send your name, address, and any soft¬ 
ware you have available. I have some software for the 6800 
for immediate distribution. When I receive software from 
other individuals, I will distribute the material to those inter¬ 
ested. Please include $3 to cover the cost of mailing and 
photocopying. You need not submit software to benefit. 

Very truly yours, 

Howard Berenbon 2681 Peterboro 

W. Bloomfield Ml 48033 
313 851-7966 

We would be happy to save you the cost of photocopying 
listings and documentation by publishing your 6800 programs 
in Dr. Dobb’s Journal. Also, if you don't wnat to spend the 
time and energy running your software exchange operation, 
you could submit your programs to Community Computer 
Center for their non-profit Program Repository & Tape Dupli¬ 
cation Facility (please see Dr. Dobb’s Journal Vol. 1, No. 3). 


IMS ASSOCIATES, Inc. recently moved into new facilities which more 
than quadruple the company's manufacturing space. The company's 
new address in San Leandro, California, is 14860 Wicks Blvd, 94577; 
(415) 483-2093. The rapid growth of IMSAI has been attributed to the 
demand for the new IMSAI 8080 Microcomputer which was 
introduced earlier this year. 

be a much better show than black screen, and might serve as 
a debugging aid, together with a chart of the binary equiva¬ 
lent of the character set. 

That's about as much as I can offer, except for help in 
interpreting the VDM-1 manual, which is available for $4 from 
PTCO. It's a pretty good manual, so I don't think there will 
be too much call on that score. 

Do it! 

Lee Felsenstein 1807 Delaware St. 

LGC Engineering Berkeley CA 94703 

415 845-4736 
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FCC PETITION ON 

ANSCII TRANSMISSIONS BY HAMS 

by Bruce J. Brown, WB4YTU April 19, 1976 

4801 Kenmore Ave., no. 1022 
Alexandria VA 22304 
703 370-1431, home; 202 697-9654, work 

This is a petition foT,r,ulemaking in the matter of revi¬ 
sions of Federal Communications Commission Rules, Sections 
97.69 and 97.117 to permit use of the American National 
Standard Code for Information Interchange (ANSCII), former¬ 
ly ASCII. 

The American National Standard Code for Information 
Interchange (ANSCII), formerly ASCII, was developed by the 
American National Standards Institute (ANSI, formerly Amer¬ 
ican Standards Association 'ASI') as the standard code for 
information interchange in the United States. 

The 7-bit-plus-parity ANSCII code provides 128 possible 
characters (Figure 1) versus the 58 characters of the Baudot 
code. In addition to figures, numbers, and punctuation, the 
code set has provisions for special symbols and control char¬ 
acters which is vital to automated data exchange and com¬ 
puter control. 

Its purpose is to establish uniformity and compatibility 
in the interchange of information among domestic and foreign 
manufacturers of data processing and communications systems. 

In March 1968, President Johnson approved a recom¬ 
mendation by the Secretary of Commerce that ASCII be 
adopted as a federal standard. 3 

Sections 97.69 and 97.117 are ambiguous and contradic¬ 
tory with regards to codes presently allowed. 97.69(a) states 
"A single channel five-unit (start-stop) teleprinter code shall 
be used . . however. Section 97.117 states "The transmis¬ 
sion by radio of messages in codes or ciphers ... is prohib¬ 
ited." These sections are in clear conflict. Furthermore, Sec¬ 
tion 97.69(a) also states "In general, this code shall conform 
as nearly as possible to the teleprinter code or codes in com¬ 
mon commercial usage in the United States."—which is 
ANSCII! 

There are several arguments to support the use of 
ANSCII by amateur radio operators. 

a. Large quantites of surplus ASCII terminal equipment 
are available at very low cost on the surplus market. Inexpen¬ 
sive Baudot devices are becoming increasingly difficult to find. 

b. Government and industry have only recently begun to 
explore the use of recently developed microprocessor circuits 
to solve complex teleprocessing problems. Hobbyists, many 
who are amateur radio experimenters, have also shown con¬ 
siderable interest in these devices as evidenced by the high- 
volume microprocessor sales to non-commerical buyers, and the 
emergence of numerous amateur computer journals. Hams, 
using microprocessors in concert with presently allocated com¬ 
munications channels, have the opportunity to make serious 
contributions to the infant teleprocessing field while greatly 
enhancing current amateur modus operandi. It is not unlikely 
that hams will some day use microprocessors in communica¬ 
tions networks (e.g., packet switching) to permit faster and 
more reliable traffic handling for emergency and routine mes¬ 
sages. Fruition of many of these concepts, however, is directly 
dependent upon the approval by the FCC of a coding scheme 
with a large-character set, such as ANSCII, for compatibility 


with microprocessors and automatic communications systems. 
Failure to approve such a code will greatly stifle the advance¬ 
ment of non-commercial communications and would be in 
direct conflict with the purpose from the amateur radio ser¬ 
vice as expressed in Section 97.1(b) and (c). 

c. ANSCII, by virtue of its diversified character set, is 
highly compatible with amateur telemetry systems; e.g., 
remotely monitoring the status of repeater control circuits. 3 

Using asynchronous ANSCII transmission with one start, 
two stop, one parity, and seven data bits per character, speeds 
of 10, 30, and 60 characters per second will equate to rates 
of 110, 330, and 660 bits per second (bps), respectively. 

Through simple Fourier analysis to the 5th harmonic, it 
can be shown that the signaling bandwidth for data at speeds 
of 110, 330, and 660 bps is 220, 660, and 1320 hertz, re¬ 
spectively. Furthermore, it can be shown that the AFSK band¬ 
width for a 660 bps signal is less than that required for SSTV 
transmission. 

Based upon the technical and operational benefits that 
the use of ANSCII could provide, and considering that no 
detrimental effect to the amateur community would result, it 
is requested that applicable sections to Part 97 be revised to 
permit the use of ANSCII. 

^Data Communications Systems, Control Data Corporation, 
April, 1974, page 47. 
o 

Introduction to Computer Data Communications, Honeywell 
Corporation, July, 1973, pages 2-19. 

3 QST, March 1976, page 73. 


A CLUB SURVEY FOR A CLUB CLUB 

Dear Editor, 

I am doing a survey of hobbyist computer clubs. It 
should be interesting to find out how many hobbyist club 
members there are, what kinds of things they're doing, etc. 
Hopefully the tabulated results can be printed in DDJ after 
I've compiled them. One of the reasons for the survey is to 
evaluate interest in an organization of hobbyist clubs (tenta¬ 
tively called 'Your Club of Clubs' or 'The Metaclub'). Any 
club not on the following list should get in touch with me 
for more information. 

Amateur Computer Club of N.J., Atlanta Area Micro¬ 
computer Hobbyist Club, Bay Area Microprocessor Users 
Group, Bit Users Association, Cache (Chicago area), Cleveland 
Digital Group, The Computer Hobbyist Group (N. Texas), 
Denver Amateur Computer Society, El Paso Computer Group, 
Homebrew Computer Club, LLLRA Hobbyist Computer Group, 
Long Island Computer Association, Miami Area Computer Club, 
CPU (Monterey), Northwest Computer Club (Seattle), Nashau 
Area Computer Club, New York City Micro Hobbyist Group, 
Pittsburgh Area Computer Club, Santa Barabra Nameless Com¬ 
puter Club, Southern California Computer Society, Tallahas¬ 
see Amateur Computer Society. 

I also invite comments and questions from anyone in¬ 
terested. 

Sincerely, 

Dave Caulkins 437 Mundel 

Los Altos CA 94022 
415 948-5753 
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WESTERN DATA’S 6502-BASED DATA HANDLER 
Complete Kit for $169.95, 

Plug-Compatible to Altair Peripherals 

by Western Data Systems staff 

The Data Handler is Western Data Systems new product. 
It's a microcomputer using the MOS Technology 6502 micro¬ 
processor with the latest state of the art technology producing 
a high performance microcomputer at a low price. 

The high speed operating capabilities of the Data Handler 
are enabled by the use of an easy-to-use full-function, hard- 
ware-controlled, front panel. A large ground plane area (to 
minimize noise at high operating speed) is on the P.C.B. and 
2102-type RAMS. 

Slower accessing memories (EPROMS and ROMS) may 
be used, although this will reduce the cycle speed to within 
the limits of other microcomputer kits. The single 13.75" x 
10.5" P.C.B. can directly address 65K of memory and con¬ 
tains 1 K bytes of static RAM on the board with complete 
address decoding. 

It also consists of all circuitry needed to be a stand¬ 
alone microcomputer for even such high-speed devices as disk 
peripherals. 

The Data Handler is designed with identical drive 
capabilities around the 8800 Altair, 100-pin, tri-state bus. It's 
plug-in compatible with the long list of Altair peripherals. 
Expandability can be accomplished in a manner identical to 
the 8800 Altair by using the mother board. 

The Data Handler also has dual interrupt lines (one 
maskable), slow-down circuitry for slow memories, DMA 
(direct memory access) circuitry, and DMA acknowledge con¬ 
trol. One 8-bit parallel input port, one 8-bit parallel output 
port, separate 10 address control, and memory control lines. 
Single voltage (+5 volts) and cycle times to 250ns. It has 
full front panel control with the use of keyboard switches to 
provide the following hardware: 

Single-cycle operation. 




Single-instruction operation. 

Memory examine (left incremental). 

Memory deposit (left incremental). 

Initialization. 

Halt. 

Run. 

Hex data and address entry. 

For an introductory offer the Data Handler Bare Bones 
Kit is being offered for $79.95, which includes the Data 
Handler P.C.B., 26 keyboard switches, P.C. B. stand, and 
complete documentation. 

The complete kit costs $169.95. This includes the Data 
Handler P.C.B., 26 keyboard switches, P.C.B. stand, complete 
set of I.C.'s, IK static RAM, 500ns memory, resistors, 
capacitors, L.E.D.'s, 1 mhz 6502, and complete documentation. 
This microcomputer is ideal for the hobbyist and industrial 
user alike. 

For complete information on ordering, write to: 

Western Data Bystems 

3650 Charles $t, No. Z 

$anta Clara CA 95050 

atn: Cindy & Mike Indihar 

Office: 408-984-7804 

Home: 408-378-3569 

The Introductory Offer expires August 31, 1976. 


RCA COSMAC & ySCOPE 

Dear Bob, 4/12/76 

RCA has formally announced the 1802 chip for COS- 
MAC, and it looks even better than the 1801. It seems 
strange that so few hobbyists are using COSMAC, since it was 
originally intended for the personal computer market (partly) 
and has a remarkably adaptable instruction set. Now that the 
new, improved version is available maybe some enterprising 
OEM will jump into the hobby market with a COSMAC-based 
machine. The RCA COSMAC Microkit (not to be confused 
with the RCA COSMAC Microtutor) is a beautifully engin¬ 
eered computer, but probably too expensive for most hobby¬ 
ists. I don't know what the price tag is, but it doesn't look 
cheap (is it true that the jewels in the panel lamps are syn¬ 
thetic rubies?). 

In the March-April, 1976 issue of PCC I predicted that 
the 1980 hobbyist would have a breadbox-size computer con¬ 
taining an integral ASCII keyboard, CRT display, tape cassette, 
hardcopy printer, and floppy disc. Well, it isn't quite 1980 
but the newly-announced yScope 8000 (see the April 1 issue 
of Electronics) is a breadbox-size computer containing an in¬ 
tegral ASCII keyboard, CRT display, tape cassette, harccopy 
printer, and a price of $6995. No floppy disc, but it does 
have a novel incremental assembler. 

Tempus Digits, 

Jim Day 


LED REPLACEMENTS FOR BURN-OUTABLE PDP-8/E LAMPS 

A conversion kit is available to enable replacement of standard 
incandescent lamps used in the PDP8/e minicomputer with light-emitting 
diodes, to eliminate the problem of burned-out bulbs. The kit is com¬ 
plete with a set of direct-replacement LED's and instructions for modi¬ 
fication of the Front Panel Control Board circuitry. $39.95. Delivery, 
stock to 30 days. Scientific Test Systems, Box 741, Wallingford CT 
06492; 203 265-5028 
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Personal Computing ’76 

Looks Like It’s Going to be a Great Show 


by Jim C. Warren, Jr., Editor, DDJ 

Up until July 23rd, I wasn’t really all that enthusiastic 
about Personal Computing ’76, the hobby convention and 
exposition being held in Atlantic City on August 28th and 
29th. I was unexcited, partially because it was way back 
there on the East Coast, and mostly because I had received 
no information about explicit programs or events, other than 
an exhibition of vendors’ goodies. Well, after one lengthy 
conversation with the Chairman of the convention, John Dilks, 
all of that has changed. It sounds like it’s going to be great! 

There are going to be a multitude of seminars. To 
mentiop a few: 

Hal Chamberlin will be discussing computer music. 

A Rockwell-type will be talking about computers in 
outer space and the space shuttle. 

Dave Ahl will offer a seminar on computer games. 

Lloyd Rice will be discussing computer speech, and 
demonstrating his talking computer. 

DEC will be presenting a computer-controlled train 
system. 

There will be three Z-80 seminars. 

Carl Helmers will be running a session on hobby 
standards. 

I will be discussing the immediate and foreseeable 
future of home computing. 

Dan Falystra is coming in from Holland to give a soft¬ 
ware seminar. 

Ted Nelson will be running a seminar of unknown (to 
me) content. 

There will be a medical computing seminar. 

A special session will be offered for officers of compu¬ 
ter clubs to exchange ideas. 

The ham crowd will be there discussing such things as 
the ham satellite, a microprocessor-controlled ham radio 
repeater station, hamateur uses for micros, etc. 

And, a whole mess of product-specific seminars will be 
offered by vendors. 

There will be a mass of give-aways 
including: a Lear-Siegler ADM-3 kit, a Sphere 310 kit, a MITS 
680 kit, a SWTPC 6800 kit, a MOS Technology KIM-1, an 
E&L MMD-1 kit, an F-8 evaluation kit from Mostek, a TV 
Dazzler from CroMemCo, a Z-80 kit from TDL, and 8800V 
board from Vector, several floppy disc systems, a MCEM8080 
from Hal, a 6502 Familiarizer from Ebka, a software self¬ 
teaching course from Logical Services, . . . and on and on and 
on. There will aLso be thousands of copies of Dr. Dobb’s 
Journal, and Byte being given away. 

As,far as the vendor exhibition is concerned, there will 
be over eighty exhibitors including such unknowns as IBM, 
and DEC, as well as the many better-known vendors whose 
names have been dropped in the preceeding paragraph, and 
many others. Among other things, over 25 computer stores 
will be present to tell you about their offerings. 

If you are a West Coaster, even if you are not in 
Southern California, you can probably get in on the travel- 
package deal that is being offered to SCCS members. It’s 
$390 for round-trip air fare, 4-day/3-night hotel accommoda¬ 


tions, Phily-Atlantic City transportation, admission to the 
exposition, Sunday night banquet, and other nickel and dime 
items. Furthermore, you don’t have to come right back-you 
can hang around the East Coast for a while before you 
return. For instance, you could run down to COMPCON Fall 
*76 in Washington, DC, Sept. 7th-10th. Phone Leda Alpert 
(an SCCS member who also happens to be a travel agent) at 
(213) 655-0650. 

Admission to the whole thing is $5, if paid in advance, 
or $7.50 at the door. Incidentally, the profit (if any) doesn’t 
go into someone’s private pocket. It will go to a nonprofit 
amateur radio club that is sponsoring the whole thing, the 
Southern Counties Radio Association of New Jersey. The folks 
who are doing most of the organizing, John Dilks, (609 927- 
3873; Davey Jones, (609) 927-6950; and James Main, are 
club members and computer phreaques who are entirely 
unpaid volunteers. 


HAMATEURS TO 
HOLD A COMPUTERFEST 

The AMRAD COMPUTERFEST will be an exposition of micro¬ 
computers for computer amateurs, radio amateurs, and the general 
public. It is being sponsored by the Amateur Radio Research and 
Development Corporation (AMRAD), a non-profit scientific and edu¬ 
cational organization. 

The AMRAD COMPUTERFEST will be held on October 24, 
1976 at the Vienna Community Center, 120 Cherry St., Vienna, 
Virginia, near Exit IIS of the Washington, DC, Beltway. 

The exposition will be almost entirely devoted to small com¬ 
puters of the type suitable for home use. There will be displays of 
microcomputer systems by various manufacturers’ representatives as 
well as tables for used or surplus equipment, circuit boards, and parts. 
Peripheral devices including video terminals, teletypewriters, and R IIY 
equipment will be shown. Forums will run throughout the day on 
subjects of interest to the serious hobbyist, students, and the general 
public. There will also be an opportunity to talk to representatives of 
various computer clubs and magazines. 

Admission will be $4 at the door ($3.50 advance registration by 
mail for pickup at the door). Make checks payable to AMRAD. Write: 
COMPUTERFEST, Box 682, McLean VA 22101. 

For reservations, contact any of these nearby motels directly: 
Vienna Wolf Trap Motel, 430 Maple Ave. E., Vienna VA 22180, 

(703) 281-2330; Tysons Corner Holiday Inn, 1960 Chain Bridge Rd, 
McLean VA 22101, (703) 893-2100; or Tysons Corner Ramada Inn, 
7801 Leesburg Pike, Falls Church VA 22043, (703) 893-1340. 


PATENT LIBRARIES ORGANIZED BY SUBJECT AREA 

Wondering whether your hot hardware homebrew is patent- 
able? Looking for homebrewing ideas? 

If you live in the San Francisco or Washington, D.C. areas, 
you can go check a local Patent Library. It is our understanding 
that there are only two such patent libraries where the infor¬ 
mation is organized by subject area. The one in the San Fran¬ 
cisco Bay Area is in the Sunnyvale City Library. We understand 
it is sponsored by local industries. (If some Washingtonite will 
give us more details about the location of their subject-organized 
patent library, we will be pleased to publish it.) 
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1977 NCC Includes 
Significant Personal 
Computing Events 

The National Computer Conference (NCC) is the largest 
yearly computer conference and exposition in the U.S. (and 
probably in the world). It is sponsored by the American 
Federation of Information Processing Societies (AFIPS), a 
group group that includes all of the major organizations of 
U.S. computer professionals. The 1977 NCC will be held in 
Dallas, June 13-16, 1977. 

Mr. Mauch (below) states, "A Milestone for personal 
computing! Personal computing is being seriously recognized 
by the computing industry." An alternative viewpoint is that 
this recognition is a milestone for the computing industry. 
Either way, it is absolutely certain that the '77 NCC will be 
an exciting and enlightening event, for pro and amateur alike. 
We urge you to join the fun. 


The 1977 National Computer Conference will feature 
several events for personal computing enthusiasts including the 
Personal Computing Fair, exhibits of personal computing 
equipment by manufacturers, seminars, and social events in 
addition to paper presentation. 

Two days of Personal Computing paper and panel pre¬ 
sentations are being planned. Papers and panels in any subject 
of interest to personal computing enthusiasts are sought 
including: 

t personal computer software 

t hardware designs and trends for personal computing 
t innovative applications of personal computing systems 
t the influence of the personal computing movement on 
the computer industry and computer science education 
t standards for personal computing products 
t predictions of trends in personal computing 


The 11 NCC will be the year's largest gathering of data 
processing users and computer professionals. Approximately 
30,000 people are expected to gather for the conference 
program of over 100 sessions plus the year's largest display of 
computer hardware, software, systems, and services featuring 
over 250 exhibitors. 

The '77 NCC Steering Committee welcomes your com¬ 
ments and suggestions and participation in this event. Please 
contact: 


Dr. Portia Isaacson 
Conference Chairperson 
Mathematical Sciences 
University of Texas 
Richardson TX 75080 
(214) 690-2172 


Dr. Robert Korfhage 
Program Chairperson 
Computer Science Dept. 
Southern Methodist Univ. 
Dallas TX 75275 
(214) 692-3082 


Dear Mr. Albrecht: July 26, 1976 

A Milestone for personal computing! Personal computing is 
being seriously recognized by the computing industry. 

It is important that we take maximum advantage of this oppor¬ 
tunity to present the worth and purpose of personal computing to the 
computing industry. As the leading publication serving the personal 
computing enthusiast. People’s Computer Company can do much to 
inform the enthusiast of the importance of his or her participation and 
involvement in this event. 

I would like to enlist your support in promoting the personal 
computing events in NCC '77, and invite any comments or suggestions 
you may have. 

One of the features of NCC ’ll will be presentation of papers 
pertaining to personal computing. Enclosed is a copy of the call for 
such papers. Since the submittal deadline is December 1, 1976, this 


CONSULTANTS REFERRAL SERVICE 

There is now a national consultant's referal group in op¬ 
eration. It is operated by J. Hugo Gottlich and is called the 
National Software Consultants Referal Service, 8 Gates St., 
Danvers, MA 01923. 


SOFTWARE EXCHANGE FOR $$$ 

You may be able to peddle well documented, commer¬ 
cially useful software by registering it (for a fee) with the 
Computer Software Exchange, P.O. Box 27193, San Francis¬ 
co, CA 94127. [Of course, placing your software in this ex¬ 
change need not preclude your sharing it with hobbyists via 
publication in Dr. Dobb's Journal.] 


EVIDENTLY OIL AND COMPUTERS DO MIX 

Quick notes: Exxon already has a major interest in Zilog. 
Now, Sun Oil is negotiating to buy DATRAN, one of the 
largest special carriers in the nation, expecially set up for high¬ 
speed, high-reliability digital data communications. The figure 
involved in the negotiations is $30 million. 


COBOL FOR THE 8080 

RRC Consulting, Los Altos, CA, has a COBOL Cross Com¬ 
piler for the Data Point 2200 (which is almost an 8008). They 
only want a one-time use fee in the neighborhood of $50,000 
(yes...$50K!) 



announcement should appear in the earliest possible issue to permit 
contributors time to prepare their work. 

Plans for the conference are still being formalized. We are plan¬ 
ning many interesting and, I feel, innovative events for personal com¬ 
puting enthusiasts. We will keep you advised of developments. 

Very truly yours, 

Harold A. Mauch PerCom Data Company 

Personal Computing Chairperson 4021 Windsor 

1977 National Computer Conference Garland TX 75042 

1977 NCC Paper Guidelines 

Previously unpublished papers are solicited. Papers submitted for 
consideration must be in final form with all figures and tables, ready 
for typesetting. All papers will be refereed. Refereed and approved 
papers will be sent immediately to the printer, with no opportunity 
for author changes. The Conference Proceedings Editors reserve the 
right to edit all papers prior to publication, or to request that the 
authors change them to meet AFIPS publication requirements. 

The material submitted should include: 

1) Six copies of the paper. The paper should be a maximum of 
5,000 words. The submitted paper should be the final version—cleanly 
types, double spaced on one side of the paper, ready for typesetting. 
Each page should be numbered and have the principal author's name on 
it. Submission of a paper implies guarantee by the author that all 
necessary approvals and clearances have been obtained. 

2) Six copies of a page containing a 150-word abstract, the 
Computing Reviews Classification, and four to six keywords descrip¬ 
tive of the content of the paper. 

3) Three copies of a short biography of the presentor to be 
used in conference publicity and for introductions by the session 
chairperson. 

Deadline for all submissions is December 1, 1976. Authors will 
be notified before March 1, 1977 regarding the acceptance of their 
papers. 

Please send all submissions to the 'll NCC Program 
Chairperson, Dr. Robert Korfhage. 
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The Time for Floppy’s is Just About Now! 


by the Editor 

Things—most notably, prices-are coming down, fast, in 
the world of rotating mass storage appropriate for home com¬ 
puters. Prior to this, floppy disc subsystems have either been 
unavailable for hobby machines, or they have been priced for 
the industrial consumer (e.g., around $3,000 for a dual-drive 
system). Things have changed: A hobbyist can now reasonably 
expect to obtain a complete, assembled, single-drive subsystem 
for a price in the neighborhood of $1K. Here is the latest 
information we have: 

The best system we know of—and the least expensive—is 
available from Digital Systems, 1154 Dunsmuir PI., Livermore 
CA 94550; (415) 443-4078 (ask for Dr. John Torode). This 
is the same crowd that built Gary Kildall's original floppy inter¬ 
face over two years ago [see "First Word on a Floppy-Disc 
Operating System," in the April issue of the Journal ]. Gary 
has yet to have problems with the system. Digital Systems also 
is marketing a low-cost, floppy-based development system to the 
industrial market. They know what they are doing. What is 
much more important is that Dr. Kildall's fancy, DECSystem- 
10-like operating system-called CP/M-will run on DS's hard¬ 
ware. CP/M has been in use for over two years in a produc¬ 
tion and instructional environment. It is well debugged, well 
documented, and has some significant software subsystems 
available with it. 

Back to DS's floppy subsystem: The controller is already- 
assembled, burned-in, and tested, and has been on the market 
for some time. The controller can handle up to four drives. 

The drive is a Shugart 800, a highly reliable drive of excellent 
reputation. The single-system price is $1095, and drops to 
$995 in quantities of only 10. This price includes the con¬ 
troller, the drive, all cabling between controller and drive, a 
manual, shipping within the continental U.S., and a 90-day 
warranty. The manual includes a reproduction of the Shugart 
tech manual on the drive, a complete manual on the controll¬ 
er, and complete design details for a 20-chip interface from 
the controller to a hobbyist-standard (Altair/IMSAI) bus. The 
manual, alone, is available for $5, creditable towards purchase 
of any system. 

Though the controller is not available in kit form (too 
much potential for subtle, hairy problems), the interface is. 

If you wish to buy your own parts and build the interface, 
you can. If you want the parts from DS, they will ship them 
to you for $50 (Vector PC board, sockets, chips, connectors, 
cabling . . . the works). If a dual-drive system is desired, 
the second drive is $600, unit quantity. 

As with most of the floppy systems being offered to 
hobbyists, the power supply (if you don't already have one) is 
extra. In this case, it costs about $150, and the manual gives 
complete details if you wish to homebrew your own. 

Final notes: DS is a relatively small company. We know 
Dr. Torode both personally and by reputation, and have been 
very impressed by everything we have seen and heard. He 
maintains quite high standards for his product, technically, and 
for his operations, businesswise. We have complete faith in his 
competence and in his integrity and recommend him without 
restriction. He builds a good product, and he backs his work. 
Incidentally, the controllers, drives, and parts are in-stock, off- 
the-shelf items. 

If you have technical questions. Dr. Torode is the person 
with whom to talk. Unfortunately, he will be in Europe 


(teaching microprocessor courses for Phillips) from August 15th 
to September 15th. Thereafter, however, he will be happy to 
answer any questions you may have. 

Dr. Kildall's CP/M is available from Digital Research, 

Box 579, Pacific Grove CA 93950; (408) 373-3403, for $35- 
$70 depending on the level of documentation desired. The 
'software comes in the form of a "loaded" disc, including an 
editor or two, an assembler or two, a PIP (DECese for a file- 
transfer program), a debugger, and who knows what else (it 
grows from month to month). 

A second, interesting tidbit is a letter we received, dated 
June 30th, offering brand new CalComp 110 drives for $395; 
that’s just about half their list price. The letter states that the 
drives carry CalComp's 90-day unconditional warranty. The 
drive does not use the IBM format (a poor format, but the 
only "industry standard" available for the time being), and 
could not be easily interfaced to CP/M. Also, CalComp drives 
appear to have a mixed reputation; some are good, and some 
are very poorly regarded. 

The company making this offer is Martin J. O'Boyle & 
Associates, Box 9094, Pittsburgh PA 15224; (412) 361-1602. 

We know nothing about them, but the offer appears to be 
well worth checking out. Incidentally, their letter indicates 
they are also offering IMSAI computers at $100 below list; 
mentions two designers of very low-cost floppy interfaces 
(Dr. Ken Welles, and Hal Chamberlin); and notes that they 
have only 95 of their CalComp 110 drives available for the 
price indicated. 

Financially, the next most interesting floppy system for 
hobbyists appears to be the one available from iCOM, 6741 
Variel Ave., Canoga Park CA 91303; (213) 348-1391. It's 
single-unit price is $1195. The price doesn't drop to $995 
(which appears in all their bold-face advertising) until one 
purchases them in 100-unit quantities. If you get in on an 
SCCS group buy, however, you can get them for about $1100 
which includes tax, handling, and the FDOS-II operating system. 
As we understand it, for these prices, one gets a Pertec drive, 
a controller capable of handling more than one drive, and 
cabling from the drive to the controller, and the controller to 
an interface board. The interface board is not included, but 
we have been told that a 3P+S will do the necessary job. 

The FDOS-II was done by Art Childs, the recent editor 
of Interface, and a great hobbyist supporter. It requires about 
IK for the resident I/O drivers, IK for the monitor, and 4K 
for the Executive. To be really useful, it requires about an 
8 kilobyte system. This is noticeably less than is required by 
Kildall's CP/M, which needs at least 12K and prefers to dine 
on about 16K. However, FDOS-II was completed only last 
Spring (1976), and thus may be assumed to have significantly 
more bugs than the more mature CP/M. (No criticism of Art's 
work; it's just an inherent characteristic of large systems 
software.) Also, CP/M has a comparatively extensive library of 
systems software that runs under it. 

Unanswered questions: We don't know how reliable the 
Pertec drives are. They generally have a much poorer reputation 
than the $hugart drives. We have an estimate that the power 
supply for the system will cost in the neighborhood of $210, 
but that estimate is 3 months old. We don't know if the 
indicated prices include shipping or manuals, and we don't 
know how well-done the manuals may be (the hobby move- 
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merit has a widespread characteristic of awful documentation). 
We also don't know what warranties are offered, and have no 
information on how well iCOM treats its customers. 

Since it is noticeably overpriced in comparison to the 
preceeding excellent alternatives, we hesitate to even bother 
mentioning the IMSAI floppy system . . . but, we will, since 
they are trying to market it to hobbyists. The controller has 
its own processor and is being touted as being "intelligent." It 
will handle up to four drives. It interfaces to a hobbyist- 
standard bus, of course, and the interface is included. In kit 
form with a single drive, it costs $1,449, and goes for $1649 
in assembled form. Extra drives cost $925. The Disk Operating 
System is available for $40. 12K Extended BASIC, including 
disc access, is supposed to be available by now. Ho hum. 

We think IMS manufacturers some excellent microcom¬ 
puters and m-c kits. However, we find their floppy offerings to 
be badly out-of-line—at least for the hobbyist—with some 
other products, at least as far as price is concerned. Incident¬ 
ally, we hear that Kildall's CP/M was made to run on the IM¬ 
SAI floppy system . . . and run very, very slowly. 

Finally, some immediate-future thoughts concerning 
floppies: 

PerSci is now offering a dual -drive floppy box for $1K. 

To our knowledge, no one has yet built a controller and inter¬ 
faced it to a hobbyist-standard bus, but we are certain that it 
will happen very soon. This is deserving of attention, not only 
due to the low price for two drives, but also because PerSci 
drives use a voice-coil head positioner that really wails; its 
track access time is something like 10 times as fast as most of 
the other drives. Also, the feedback we have from industrial 
users of PerSci products implies that they manufacture excellent 
solid, reliable floppy disc drives. 

Don't discard the idea of moving to floppies because 
you can't afford a dual drive system, and you think you can't 
back up your discs if you have only a single drive system. 

It's slow (and also cheap), but you can back up (save for 
safety's sake) discs, and even copy disc contents from one to 
another without a second drive ... by using the cassette 
tape storage that you probably already have. Not what one 
would do in an industrial or business environment where $500 
or $1,000 is trivia, but at home . . . 

Watch for prices for controllers to drop even lower. We 
are all waiting for Hal Chamberlin to publish the rest of his 
series of articles on the super-inexpensive floppy controller/ 
interface in The Computer Hobbyist. The first article was 
published last Spring. Someone in Kansas told us of designing 
a very simple disc interface that he recently sold to a com¬ 
pany, back there. Presumably, they will be announcing a 
product, shortly. The Palo Alto Byte Shop has mentioned a 
very inexpensive floppy subsystem that they expect to place 
on the market, shortly. Shugart has announced its mini-floppy 
drive, which stores less than a "standard" floppy, but is 
priced significantly less than their "standard" drive. Gary Kil- 
dall is still hoping to be able to offer an interface/controller 
for somewhere in the neighborhood of $350, and presumably 
a single-drive system for about $800. 

But, there's a problem with watching for prices to come 
down. We all know they will. (We predict that floppy prices 
will probably bottom out at around $600 for a single drive, 
ready to plug in to your hobbyist-standard bus. We think that 
cost of manufacture will keep the price from dropping much 
below that ... at least, for reliable units.) The question is, 
how long do you want to wait until you have high-speed, mass 
storage . . . and can do really interesting things with your 
home computer? 


HEATHKIT TO INTRODUCE A COMPUTER KIT 

We have information from a source we consider to be reliable 
(but not from Heathkit) that Heathkit will present its first com¬ 
puter kit at the Personal Computing'76 Consumer Trade Fair in 
Atlantic City, August 28th-29th. The kit is rumored to be using 
the Signetics 2650 microprocessor. No other information at the 
moment, but...watch out McDonald's! 


DESIGN FOR BINARY INPUT TO HEX DISPLAYS 

The July 8th issue of ELECTRONICS Magazine has two 
quickie design articles detailing how to convert binary input 
to a H EX-coded, 7-segment display output. One method uses 
a PROM; the other uses some decoders and diodes. 


300 NANOSECOND 16x16 MULTIPLIER 

TRW Electronics Systems Division has a TTL-compatible, 
monolithic-bipolar multiplier that can perform 16-bit by 16-bit 
multiplication in half a microsecond. Designated the MPY-16, 
sample quantities can be delivered in under 30 days. 


A FLASHY EXTENDER BOARD 
WITH LOGIC PROBE 

This new extender board/logic probe kit is designed to fit 
either the Altair or IMSAI. It features Logic Level Lights: 
red > 2.4 volts, green < 0.8 volts, and yellow - 0.2 second pulse 
HI/LO transition. A phono-needle probe is provided to ensure good 
and non-skid contact. Eyelets and jumpers in the power circuits 
allow convenient current measurement. The leads of the dual 50 
read-out edge connector are specially formed to allow convenient 
access to bus signals. The PC board material is 1 oz. Cu on 0.0625- 
inch, black FR4 board, which is solder-plated and has 50^>inch gold 
on the connector edge. The holes are plated through with 0.0015- 
inch Cu. 

This product is available now for $35, from Mullen Computer 
Boards, BlastMasters Inc., Box 31, Loma Mar CA 94021. Or check 
your local computer store. 
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Design Contest Offers 
Head-Per-Track 
Hard Discs as Prizes 

Gentlepersons: July, 1976 

At the request of many computer hobbyists, unhappy with the 
availability of low-cost, mass memory for permanent program and data 
storage, we are considering the design of a fast-access, memory kit. 

In order to offer you the type of storage that serves your needs, 
we give you the opportunity to participate in the design. So, open 
your mind and let us know your ideas. 

The major cost item is the engineering time required to design 
the controller which interfaces the memory and the microprocessor. In 
order to keep the cost down and to make it interesting and rewarding, 
we decided to have two contests. One, incorporating hardware, and 
one for software. 

To keep the contest proper we propose that the various com¬ 
puter clubs submit proposals on the rules, and judges (i.e., editors of 
stated computer hobbyist magazines.). 

The start up time for the memory is about 120 days. The 
interface controller requires approximately 60 days from the closing 
of the contest. 

It would be helpful for us to know how many of these fast- 
access memory kits will be sold. This is because we need to buy parts 
for the kits. The more parts we buy the lesser the cost to you. So 
please, if you are seriously considering the purchase of our memory, let 
us know—the bigger the response, the lower the production costs and 
selling price. 

The following is what we think you need. Take an close look 
and see if it is OK, if not, speak up. Let's make it right the first time. 

The proposed memory is designed for optimum performance 
and reliability at the lowest possible production cost. 

It features high rotational disc speed and head-per-track opera¬ 
tion, thus it sports a ten-times-faster access time as compared to a 
floppy disc system. The head-per-track design eliminates the time- 
consuming, mechanical positioning of one head on every track as well 
as simplifying the interface controller. 

A large, 14-inch-diameter disc is chosen to store as many bits 
with as few heads as possible. The disc is permanently mounted and 
rotates at 1725 rpm. 

A nine-head (Track) per comb-bar assembly is utilized. Eight 
heads are active, accessing 125,000 unformatted bits per track at a 
data rate of 3.6MHz. The ninth track is a spare. Therefore each comb- 
bar assembly (8 Tracks) can store 1 million gross bits or at least 
100,000 8-bit words. The memory can be expanded to 12 comb-bar 
assemblies or 96 active tracks storing 12 million bits or 10 million 
8-bit words. 

For systems unable to handle the 3.6MHz data rate, the fre¬ 
quency can be reduced, however fewer bits per track can be stored, 
or more heads must be used for the same data capacity. 

A delay modulation recording system is featured. It requires an 
8-bit preamble containing a 101 code to synchronize the phase-locked, 
read decoder. (10101011 at the beginning of each sector.) 

Preliminary specifications: Disc memory models 

HTM 8-1 kit to HTM 96-12 kit 
Minimum Maximum 

Data capacity, bits 1,000,000 12,000,000 

Data per track 125,000 

Data transfer rate 3.6 MHz 

Data access time average 17.4 milliseconds 

Size 17"W x 17"D x 10"H 

Power 115V 60Hz 200VA 

Electronics: One read-write amplifier, one index amplifier, and one 
sector amplifier for 64 sectors. 

Interface: TTL twisted pair 

Preliminary pricing based on a 100-unit production run: 


HTM 8-1 kit with interface controller $600 
Each additional 9-track, comb-bar assy., 
or 1 million bits $50 

HTM 8-1 kit without intertBQa controller $450 

First Prize: a) The best controller (price-performance) gets the grand 
prize of a memory with 300,000 8-bit words free, b) So does the best 
software for the controller, hopefully a program which makes the 
memory transparent (virtual) to the microprocessor. 

Second Prize: One each, 200,000 8-bit word memory for the second 
best controller and software design. 

Third Prize: One each, 100,000 8-bit word memory for the third best 
hardware and software design. 

Fourth Prize: $200 credit each, for the purchase of our memory for 
the fourth best controller and software design. 

Fifth Prize: $100 credit each, for the purchase of our memory for the 
fifth runner-up for hardware and software design. 

THE LOW-COST COMB-HEAD* 

Consisting of three basic parts—C-CORE, COMB-CORE, and 
COIL—the assemblies may have from 1 t> 12 heads. Assembly of a 
typical 9-track COMB-HEAD requires very little time and is accom¬ 
plished by simply slipping the self-supporting coils over the legs of the 
COMB-CORE and then pressing C-CORE and COMB-CORE together 
and applying adhesive. A conductive gap shim is vacuum-deposited 
(sputtered) over the entire inside of the C-CORE to minimize cross¬ 
talk. 

That's itl Let's get started, and good luck to you. 

Sincerely yours, 

E. Mike Engel 1719 S. Carmelina Ave. 

E. & U. Engel Consulting Los Angeles CA 90025 

(213) 820-4231 

'Developed and licensed by E. & U. Engel Consulting 

Editor's note: We hope that the contest judges will be chosen, 
announced, and publicized, prior to this company soliciting/receiving 
contest entries. 




COMPUTER COMPONENTS 
OPENS VAN NUYS STORE 

Computer Components opened its first retail store to 
the general public on June 17th. The address is 5848 
Sepulveda Blvd., Van Nuys CA 91411. They are currently 
authorized IMSAI dealers and expect to expand their micro¬ 
processor line to other manufacturers as they demonstrate 
viability. They also carry a complete line of interface and 
memory kits, hobbyist supplies, etc. _ 

SAN DIEGO COMPUTER STORE 

The Computer Center (8205 Ronson Rd., San Diego 
CA 92111, (714) 292-5302) opened its doors on May 22nd. 
It carries a variety of computer hobbyist equipment and 
publications. 
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Proposed Hobbyist-Standard* Bus Structure 


by D. Denney, & J. Broom 
BISI 

Box 1197, Station A 
Vancouver, British Columbia 
Canada 

(604) 683-5246 

The most important and often overlooked part of an 
Altair/IMSAI computer is the 100 wire bus structure. This 
bus structure as defined by MITS has become a "de facto" 
standard that has encouraged numerous companies to build 
and market Altair/IMSAI compatible boards, knowing that 
there are thousands of machines in which to use them. The 
bus standard has stimulated competition and allowed product 
specialization; and the result has been to raise the Altair/ 

IMSAI from just a 'hobbyist' tag to a full-fledged computer 
that is rapidly finding its way into industrial, commercial, and 
educational applications. For what other computer on the 
market has such a broad base of hardware manufacturers? 

To date, most of the second sources have been of RAMs, 
TV typewriters, etc., but there is a second generation of 
products just beginning to surface, which will vastly increase 

Altair/IMSAI Bus 

0 - letter 0 
0 ■ zero 

1. +8V Unregulated input to +5V regulators 

2. +16V Unregulated input to +I2V regulators 

3. XRDY Anded with PRDY and goes to 8080 ROY 

4. VI0 Vectored interrupt request 0 

5. VII Vectored interrupt request I 

6. VI2 Vectored interrupt request 2 

7. VI3 Vectored interrupt request 3 

8. VI4 Vectored interrupt request 4 

9. VI5 Vectored interrupt request 5 

10. VI6 Vectored interrupt request 6 

11. VI7 Vectored interrupt request 7 


the power and longevity of the 100 wire bus. These products 
are of two basic types: 

1. NEW CPU BOARDS using different 8 and 16 bit 
microprocessor chips that will plug into the bus. (You can 
already buy an M6800 CPU board for your Altair and work 
is in progress with CPU chips from Data General, and Texas 
Instruments 8800 series.) 

2. MASS STORAGE-memory capacity inside the Altair 
chassis in excess of the 65K directly addressable bytes, made 
possible by the new CCD (charge coupled device), and mag¬ 
netic bubble technologies. Mass storage will typically be con¬ 
figures as a set of storage boards (from 1 to 20) and con¬ 
troller board. The controller board must furnish to the storage 
boards several critical timing and control signals (all TTL 
levels), and because of the number of boards involved, these 
lines should be placed on the 100-line Altair bus for storage 
board simplicity, lessened cost, and ease of trouble-shooting. 

While opening up the future of the Altair to many new 
applications, these boards are putting a strain on the bus 
structure—they use more bus wires than so far have been 
defined, so the time has come to define more of the unused 
bus lines. 

25. 01 Phase one clock TTL levels 

26. PHL0A Hold acknowledge, buffered 8080 output 

27. PWAIT Wait acknowledge, buffered 8080 output 

28. PINTE Interrupt enable, buffered 8080 output 

29. A5 Buffered address line 5 (32) 

30. A4 Buffered address line 4 (16) 

31. A3 Buffered address line 3 (8) 

32. A15 Buffered address line 15 (32768) 

33. A12 Buffered address line 12 (4096) 

34. A9 Buffered address line 1 (2) 

35. 001 Buffered data out line I 

36. 000 Buffered data out line 0 

37. Al/7 Buffered address line 10 (1024) 

38. 004 Buffered data out line 4 


>2. XR0Y2 


CCDS 

BORAMS (TENTATIVE) 


BUBBLES (TENTATIVE) 

13. CK3 

Phase 

3 shift clock 

13. 

13. 

CK2 Phase 2 clock for 
coil drivers. 

14. CK1 

Phase 

1 shift clock 

14. ADRSEL Address 
multiplex signal 

14. 

0UTEN Oata output buffer 
enable signal 

15. BWE 

Write erable-anded 
wi th WRITE 

15. LDL Load to address 
byte 

15. 

XFER Transfer gate 
signal 

16. L0M 

Load i 
byte 

Tied i urn address 

16. LDM Load med address 
byte 

16. 

, A0INX Increment signal 
for board address 


39. 005 Buffered data out 1ine 5 

40. 006 Buffered data out line 6 

41. 012 Data input line 2 

42. 013 Oata input line 3 

43. 017 Oata input line 7 

44. SMI Latched 8080 Ml status 

45. S0UT Latched 8080 OUT status 


17. BDSEL Acknowledge signal 17. 80 SEL Acknowledge 17. BDSEL Acknowledge signal 

from addressed storage bd. signal from addr. storage bd. 

18. STA DSB Status buffer disable 

19. C/C DSB Command/control buffer disable 

20. UNPR0T Input to memory protect circuitry on memory bd. 

21. SS Indicates machine Is in single step mode 

22. ADO 0SB Address buffer disable 

23. 00 DSB Oata out (from CPU) buffer disable 

24. 02 Phase two clock TTL levels 


46. SINP Latched 8080 INP status 

47. SMEMR Latched 8080 MEMR status 

48. SHLTA Latched 8080 HLTA status 

49. CLOCK 2 mhz clock, crystal controlled 

50. GN0 Logic and power ground return 

(A) 51. ♦8V Unregulated input to +5V regulators 

(B) 52. — 16V Unregulated input to negative regulators 

(C) 53. SSW D$B Sense switch disable 
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(0) 54. EXT CLR Clear signal for I/O devices 

(E) 55. Rea ' t * me clock 

(F) 56 5T 5 TE Strobe signal ( by 8224 clock chip 8800B d/c board) 

(H) 

(J) 


(K) 

(L) 

(M) 

(N) 
(P) 

(R) 

(S) 

(T) 

(U) 

(V) 

(W) 

(X) 

(Y) 

(Z) 

(a) 

(b) 

(c) 

(d) 

(e) 

(f) 
(h) 

(j) 


57. 


DIG I Enable signal for CPU 01 drivers 8800B 


FRDY 8800B Front panel ready signal 


58. 

59. 

60 . 

61. 


CCOS 

62. CK4 Phase 4 shift clock 


63. CK2 Phase 2 shift clock 


64. BCE Chip enable 


BORAMS (tentative) BUBBLES (tentative) 

62. RAS Row address select 62. CK1 Phase 1 clock 

for coil drivers 

63 . CAS Column address select 63 . R/A Replicate/ 

annihilate gate 
signal 

64. READ Signal for 
bubble defect 
circuitry 

65 . Gen Generate gate 
signal for wri ti ng| 

66. LD HI Load hi 
address byte 


64. REF Refresh signal 


65. WRITE Write signal 


66. LOH Load high address 
byte 


65. WRITE Write signal 

66. LDH Load high address 
byte 

+ 

67 . see below 

68. MWRT Write enable signal for memory 

69. PS Indicates if addressed memory is protected 

70. PROT Input to memory protect circuitry on memory bd. 

71. RUN Indicates machine is in run mode 

72. PROY Anded with XROY and goes to 8080 ROY 

73. PINT Input to 8080 interrupt request 


FIRST RUMORS OF A 
WEST COAST COMPUTER 
COMPUTER FAIRE 

There are some tentative ru¬ 
mors being passed about con¬ 
cerning a hobbyist Computer 
Faire on the San Francisco 
peninsula. It is envisioned to 
be a two-day orgy, including 
a multitude of seminars, and 
a massive exhibition of hobby 
goodies. There is some vacil¬ 
lation about whether to 
schedule it just before or 
after Thanksgiving, or wait 
until after the first of next 
year. 

Let us know if the pros¬ 
pect of such a Faire interests 
you, and indicate your pref¬ 
erences and dislikes of the 
proposed dates. Send 
responses to: 


74. PH0LD Input to 8080 hold request 

75. PRESET Clear signal for CPU 

76. PSYNC Buffered 8080 SYNC signal 

77. PWR Buffered 8080 write enable signal 

78. P0BIN Buffered 8080 BDIN signal 

79. A0 Buffered address line 0 (1) 

80. A1 Buffered address line 1 (2) 


(k) 

81. 

A2 

Buffered 

address 

1 i ne 

2 (4) 

(AA) 

95. 

0) 

82. 

A6 

Buffered 

address 

1 i ne 

6 (64) 

(AB) 

96. 

(m) 

83. 

A7 

Buffered 

address 

1 i ne 

7 (128) 

(AC) 

97. 

(n) 

84. 

A8 

Buffered 

address 

1 ine 

8 (256) 

(AO) 

98. 

(p) 

85. 

A13 

Buffered 

address 

1 i ne 

13 (8192) 

(AE) 

99. 

(r) 

86. 

AI4 

Buffered 

address 

1 i ne 

14 (16384) 

(AF) 

100. 

(s) 

87. 

All 

Buffered 

address 

1 i ne 

II (2048) 


+ A 


(t) 88. 002 Buffered data out line 2 

(u) 89. 003 Buffered data out line 3 

(v) 90. D07 Buffered data out line 7 

(w) 91. DI4 Oata input line 4 

(x) 92. DI5 Oata input line 5 

(y) 93. 016 Data input line 6 

( 2 ) 94. Dll Data input line 1 


Bob Reiling or Jim C. Warren, Jr. 

(Editor, Homebrew Computer (Editor, Dr. Dobb's Journal) | 
Club Newsletter) PCC 

193 Thompson Square Box 310 

Mountain View CA 94043 Menlo Park CA 94025 

(415) 967-6754 (415) 323-3111 851-7664 


010 Data input 1ine 0 


SSTACK Latched 8080 STACK status 
P0C Clear signal during power up 
GND Logic and power ground return 


nology Inc., has defined this line as PHANTOM to disable 
RAM boards when ROM is addressed. Cromenco Inc., has 
defined line 67 as REFR DSBL which prevents dynamic RAM 
refresh cycles during the Dazzler DMA (direct memory access). 

* Editor's Note: Up to this point, this bus has been referred to 
as the "Altair/IMSAI bus." Given the number of manufacturers 
now making the bus, or making products for it, we think it's 
time to start calling it what it has become—'The Hobbyist- 
Standard" bus. 
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The PCM-12: 

A PDP-8 Look-Alike 
Well Worth Looking At 

by Jim Warren, Jr., Editor 

PCM, Box 215, San Ramon CA 94583; (415) 837-5400, is 
marketing a microcomputer kit based on the Intersil 6100 
microprocessor. It is a system well worth giving serious con¬ 
sideration. It’s only selling point is that there is a massive 
amount of systems and applications software in existence for 
it. And, if you want to use it, instead of simply tinker with 
it, that’s a major point. The 6100 executes all of the Digital 
Equipment Corp. PDP-8/E instruction set, except the I/O 
instructions. Since the “8” has been around for about fifteen 
years, and is still one of the most popular minicomputers 
(due almost totally to its software)—there are around 70,000 
of them in use—anything that executes a PDP-8 instruction 
set should be given serious attention. 

If you are a hardware builder type, the system should 
satisfy your desires. It comes in a kit form and can adequate¬ 
ly pacify those who love to fondly caress a soldering iron and 
dikes. 

If you are a software type, with some nominal scrounging, 
you can come up with all sorts of glorious software, including 
several editors, assemblers with macro capabilities, BASIC’s, 
FOCAL, several FORTRAN’S, a number of debuggers, 
business software, and on and on. 

If you are a computer architecture type . . . forget it. The 
PDP-8 was designed in the early 1960’s. It is a single accu¬ 
mulator CPU with no index registers, fixed-block addressing, 
a 12-bit word length, and doesn’t even have a SUBTRACT 
instruction (you have to do a 2’s Complement, then Add). 
Architecturally, there are far more exciting microprocessors/ 
microcomputers on the market. 

And, if you are financially frugal concerning your com¬ 
puter hardware (regardless of the potential expense for the 
software), then you should also forget the PCM-12. The 
system with only IK words is priced at $799 (kit), or $1224 
(assembled). To expand it to 4K words costs another $139 
(kit form), and to add memory beyond that costs $135 
(memory extender kit), plus $245 per 4K memory module. 
This means that a complete system in kit form, including 8K 
12-bit words of memory would cost $1415. 

Incidentally, Digital Systems Design in Berkeley has a com¬ 
plete, assembled floppy disc system including two Shugart 
drives that plug into the PCM-12. It costs $2998. We under¬ 
stand that DEC’s great PDP-8 Operating System, OS-8, is up 
and running on the PCM/DSD floppy system, however its 
direct availability to a purchaser is unclear. 

To sum it up, if you have access to PDP-8 software that 
you find significantly useful, you should investigate the PCM- 
12. (You should also investigate the PDP-8/A from DEC; it’s 
more expensive, but avoids any bootleggery problems con¬ 
cerning software). If you just want to play, or you want to 
learn about current computer architecture, you should look 
elsewhere. 

Some personal notes: For much of a decade, I made most 
of a very comfortable living, programming PDP-8’s. Their 
architecture was infuriating, but their systems software and 
documentation was significantly better than any other mini 
around at the time. Even now, DEC software for the “8” 
remains better than most systems software for most other 


VRAM-VIDEO DISPLAY RAM 


Matrox Electronic Systems, P.O. Box 56, Ahontsic Stn. 
Montreal, Quebec H3L 3N5, (514) 481-6838 has a number of 
very interesting "Black Boxes" available for 4-12 week deli¬ 
very. To the computer, those appear to be "write only" RAM. 
Their output, however, is a standard (American or European) 
video signal (75 ohm, crystal controlled). This will drive video 
monitors up to 3000 feet away. Quick tidbits: 


Model Function 


Price (single unit) 


MTX-816 8 by 16 large-character;, no 

lower-case character display $194 

MTX-1632 16 by 32 caps 8t lower-case 

character display $285 

MTX-1632 SL Externally synchronized 16 by 32 

display 7 

MTX-1664* 16 by 64 character display $364 

MTX-3264* 32 by 64 display $440 

MTX-2480* 24 by 80 display $480 

MTX-256**2 a 256 by 256 point arbitrary 

graphics display $630 


*1he 1664 and 3264 require a 5.2 Mhz bandwidth monitor. The 
2480 requires 6.5 Mhz. 


Whoops! There's a ringer: They say a minimum order is 100 
units, and there is a setup charge. Just goes to show—you 
gotta read all the small print. 


machines, and is generally better documented. Even when 
there is functionally equivalent software for other machines, 
it usually requires more memory than it does on the PDP-8. 
For example, OS/8 requires only 8K 12-bit words on the 
PDP-8. It’s PDP-11 counterpart, RT-11, requires a minimum of 
16K 8-bit bytes. Operating systems for Data General’s Nova 
machines exhibit a similar hunger for memory, and the devel¬ 
opment systems from the micro manufacturers absolutely 
gobble memory—though the comparison is only partially 
valid. If I didn’t already have my own PDP-8/I (elderly, but 
definitely “burned in” and reliable), I would probably get a 
PCM-12—even though I consider them somewhat overpriced. 
Incidentally, I consider DSD’s floppy system to be grossly 
overpriced by about $1300. 
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Z-80 . . . Coming on Strong 

Three Kits Under $300--One Includes 
2K Bytes, Another Runs at 4 MegaHertz 


by Jim C. Warren, Jr., Editor 

Three groups are (or will be) offering processor boards 
or microcomputers to hobbyists, based on Zilog’s hot, new 
l>p, the Z-80. They are the Digital Group, TDL, and Cro¬ 
MemCo. The Z-80 has an exciting instruction set that is al¬ 
most completely upwards compatible with the Intel 8080 
(which is, of course, upwards compatible with the Intel 8008). 
Note: the Z-80 is not pin-for-pin compatible with the 8080; 
the almost-compatibility only concerns instruction sets. Also 
note: The Z-80 is being second-sourced by Mostek. 

The one instruction incompatibility we have heard 
about, so far, concerns the handling of the parity flag. As 
explained to us, the Z-80 sets the parity flag only on logical 
operations, as one would expect, whereas the 8080 sets the 
parity flag on both logical and arithmetic operations. Inciden¬ 
tally, since Bill Gate’s Altair BASIC uses this 8080 eccentri¬ 
city in three or four places, Altair BASIC will not run on a 
Z-80 unless a few minor modifications are first made to the 
code. We understand that listings of those mods are floating 
about. If someone will send us a good, clear, documented 
copy, we will be happy to publish them (with or without an 
author’s credit line). Note: We consider publishing such mods 
to be roughly analogous to an auto magazine publshing de¬ 
tails about modifying a patented Ford engine design for the 
purpose of obtaining more useful or efficient operation; 
patent infringement is not involved. 

The Digital Group, Box 6528, Denver CO 80206; (303) 
861-1686, is offering a Z-80 CPU board for $295 (kit), or 
$395 (assembled). The last we heard, they were planning on 
initial deliveries around the middle of July. The CPU board 
includes 2K bytes of half-microsecond static RAM, a 256- 
byte EPROM bootstrap, two DMA channels, a 400ns-rated 
Z-80, and some other interesting goodies. The board is inter¬ 
changeable with previous Digital Group CPU boards, but is 
not plug-compatible to a “hobbyist-standard” (Altair/IMSAI) 
bus. 

Also, the Digital Group is doing something that we 
broadly applaud: They are offering a Z-80 CPU upgrade kit 
for $185 to those who have previously purchased systems from 
them based on some less exciting microprocessor, and wish to 
upgrade to the Z-80. We have consistently been very favor¬ 
ably impressed by Digital Group’s “up front” stance, candid¬ 
ness, apparent integrity, and consistent, soft-sell approach to 
marketing their goods. A comment, however: We have been 
getting an increasing number of letters, here at People’s Com¬ 
puter Company, complaining about poor service or responsive¬ 
ness from the Digital Group. We have published such com¬ 
plaints, as well as some compliments, and will continue to do 
so. Our assumptions are: 1. Customer interest in Digital Group 
products has exceeded their initial capacity to respond in the 
manner they would like. 2. They are aware that they have a 
problem and are doing everything they can to expand their 
customer service department and procedures. 3. It is their 
wish to maintain an operation of unusually high integrity and 
responsiveness to their customers. 

TDL (Technical Design Laboratories), 342 Columbus 
Ave., Trenton NJ 08629; (609) 392-7070, is the second 


company offering a Z-80 CPU board to the hobbyist com¬ 
munity. Their kit price is $269, and includes IC sockets, but 
excludes the two kilobytes of static RAM found in the 
Digital Group’s subsystem. As of the middle of July, their 
prototype had been running for about a month, and their PC 
version (production version) had been running, glitch-free for 
about half a month. The system has been demonstrated to 
members of the Amateur Computer Group of New Jersey, 
several of whom have commented very favorably about it, to 
us. 

TDL is a new entry into the rapidly growing mob of 
computer hobbyist companies. We have received several favor¬ 
able comments about them, however, from people who are 
independent of TDL, and whose judgement we trust. The com¬ 
ments we hear are that the TDL principals are technically 
competent, and are dedicated to turning out an excellent 
product, and backing it with first-rate customer service. We 
are most interested in receiving comments, positive or nega¬ 
tive, from their customers. 

They are also offering one other rather flashy item: 

Their Z8K RAM board is an 8 kilobyte static RAM for 
$295 with 215ns access time. Furthermore, it only draws 
about 150ms from a 5V power supply. We are particularly 
interested in hearing customer comments regarding this RAM. 
The rumor we hear is that this system uses RAM made by 
EMM, the same as is in MITS 16K boards . . . and EMM is 
the only semiconductor house that has been able to make 
them. We want to spread the word, if they are reliable. And, 
we have no reason to question their reliability, other than the 
fact that none of the larger chip houses are marketing a com¬ 
petitor. Presumably, they will, soon. 

CroMemCo, 2432 Charleston, Mountain View CA 
94043; (415) 964-7400, is the third company to jump onto 
the Z-80 bandwagon. [This is pre-announcement information, 
obtained from Dr. Harry Garland, one of the principals in 
CroMemCo.] They are planning a Z-80/4 CPU card that will 
plug into a hobbyist-standard bus that sounds like a super 
subsystem. For a starter, the Z-80/4 is a 4 megahertz proces¬ 
sor-, that’s a 250ns cycle time. The board can be switched, at 
any time, back and forth between 2MHz and 4MHz. It has a 
power-on JUMP to any 4K memory blank, jumper selectable. 
There is a wait-state generator on-board that can place wait- 
states on M-l cycles if desired, or on any other cycle. A 
jumper can be used to select between 8080-mode I/O and 
Z-80 mode. The subsystem price is expected to be $295 (kit), 
or $395 (built and burned-in). Dr Garland specified October 
1st as being a firm availability date. 

CroMemCo is another of those companies that we feel 
is really “doing right” by its hobbyist customers. As well as 
this writer can remember, PCC has yet to receive a single 
complaint about CroMemCo products or service. We know 
several of the principals in the company, and believe that they 
act with first-rate integrity; a level of honesty that one 
would more expett from a close friend than from an “un¬ 
known businessman.” Their technical competence is also top- 
notch. Minor tidbit: Aside from being a principal in CroMem¬ 
Co, Dr. Garland is also Assistant Chairman of the Department 
of Electrical Engineering at Stanford University. 
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Remember those secret codes 
you played with as a kid? Well . . . 

By Mai Stiefel 

(reprinted with permission from, and copyright by, Computerworld, Newton MA 02160) 


The National Bureau of Stan¬ 
dards (NBS) published a pro¬ 
posed standard in the Federal 
Register of Aug. 1, 1975 specify¬ 
ing “a mathematical algorithm 
for encrypting (enciphering) and 
decrypting (deciphering) binary- 
coded information” for federal 
use. 


The process is intended to be 
implemented “in a special-pur¬ 
pose electronic device. . .de¬ 
signed in such a way that it may 
be embedded in a computer 
system or network and provide 
cryptographic protection to bi¬ 
nary-coded data. 

“The method of implementa¬ 


tion, the control of the crypto¬ 
graphic device and the interface 
of the device to its associated 
equipment will depend on the 
application and environment. . . 
Certification of compliance with 
this standard is the responsibility 
of the designer and manufac¬ 
turer of the device.” 


Basic Principles 

Figures 1 and 2 illustrate the 
various data manipulation func¬ 
tions found in the algorithm. 
The permutations in Figure 1 
involve rearrangements of bits 
without changing their value, 
while the substitutions (also call¬ 
ed ciphers) do not generally pre- 


•j 1 2 >1 >0 



(a) BALANCED - SAME NUMBER OF BITS 
IN INPUT AND OUTPUT. THIS PERMU¬ 
TATION IS INVERTIBLE. BECAUSE 
EACH INPUT BIT IS TIED TO ONE OUT¬ 
PUT BIT. 


*3 i! a, 3o 



lb) CYCLIC-CYCLE LEFT 1 BIT IS IL¬ 
LUSTRATED 


*3 *2 *1 *0 



(c) EXPANDED - OUTPUT HAS MORE BITS 
THAN INPUT 


*3 *2 a I *o 



(d) CONTRACTED - OUTPUT HAS FEWER 
BITS THAN INPUT 
FIGURE 1 

PERMUTATIONS WITH 4-BIT INPUTS 


*3 «2 *1 *0 



(a) BALANCED 

S3 a 2 a, a 0 



(b) EXCLUSIVE OR (MODULO 2 BIT-BY- 
BIT ADDITION) 

*3 * 2 a, a 0 



Ic) EXPANDED 


*3 a 2 a t ao 



FIGURE 2 

SUBSTITUTIONS WITH 4-BIT INPUTS 


serve bit values between input and out¬ 
put. 

In fact, an invertible balanced permuta¬ 
tion (Figure la) may be regarded as a 
balanced substitution (Figure 2a) in 
which the number of output Is is equal 
to the number of input Is and the num¬ 
ber of output Os is equal to the number 
of input Os for every input bit combina¬ 
tion. 

The distinction between an invertible 
process and a noninvertible process may 
be seen in figures 3a, 3b and 3c. In Figure 
3a, every output bit combination (000, 
001 ... Ill) occurs only once, and every 
input bit configuration has a correspond¬ 
ing output. 

With these characteristics, the inverse of 
the process can be constructed, as shown 
in Figure 3b. 

By contrast, the process shown in Fig¬ 
ure 3c is not invertible because the out¬ 
put configurations 110 and 101 occur 
twice and the configurations 000 and 010 
do not occur at all. 

Thus, if an attempt were made to con¬ 
struct the inverse of Figure 3c, the out¬ 
puts would be undefined for input values 
of 000,010, 101 and 110. 

The invertibility property may also be 
applied to permutations. A permutation 
is invertible if each input bit is tied to one 
and only one output bit. 

The cyclic permutation, Figure lc, is a 
special case of an invertible balanced per¬ 
mutation. The inverse of Figure lc would 
be a “cycle right 1 bit” process. 

As indicated in Figure 2, substitution 
may be regarded as a table lookup pro¬ 
cedure which could be used if the func¬ 
tion were performed by a microprocessor 
or could be realized by a network of logic 
gates. 

As indicated in the standard, the meth¬ 
od of implementation is up to the in¬ 
dividual hardware designer. 

Taking this one step further, there’s no 
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reason why such a function can’t be 
executed by software on a general-pur¬ 
pose computer, although dedicated cus¬ 
tom-tailored hardware will accomplish 
the task most efficiently. 

The most intriguing class of substitu¬ 
tion, the exclusive OR process, is shown 
in Figure 2b; a typical truth table is given 
in Figure 3d. 

The process is not only invertible but 
self-invertible. Suppose an input bit se¬ 
quence of: 

a n* a n-1» • • • i a l. a o 

produces a given output sequence of: 

b n. b n-1. b |. b 0 

If, instead, 

u n , ... bo 

is applied as the input, the output will be 
a n • - • ao 


The process may be generated by a 
circuit which has two inputs — data and a 
key with equal numbers of bits. Then the 
output is obtained by a bit-by-bit modu¬ 
lo-2 addition (exclusive OR) of the key 
bits and data bits. 

The bit-by-bit transfer functions is given 
by: 

0 0 = 0 ; 

0 m 1=1; 

1 o<0=1; 

and 

1 0 1 = 0 , 

where the * sign symbolizes the exclusive 
OR operation. 

In the encryption algorithm, as we shall 
see, the remarkable properties of the ex¬ 
clusive OR circuit permit a common logic 
to be used for encryption at one end of a 
transmission line and decryption at the 
other end. 


To look at the exclusive OR process in 
another light, it may be noted that, if 
Figure 3a represented the truth table of 
an exclusive OR function, then Figures 3a 
and 3b would have been identical. 

The expansion and contraction opera¬ 
tions, where the number of output bits is 
not equal to the number of input bits, are 
used in several stages in the algorithm, 
along with balanced operations. 

Two-Part Algorithm 

The algorithm is composed of two dis¬ 
tinct subfunctions: key generation and 
encryption/decryption. 

Key generation (Figure 4) is the process 
of transforming a user-defined 64-bit key 
into a set of 16 different 48-bit keys, 
each to be used in a different iteration of 
the encryption/decryption procedure. 



The proposed standard defines the in¬ 
put/output relationships of all the con- 
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INITIAL OATA TO BE ENCRYPTED - 54 BITS r-H ENCRYPTED INPUT DATA - 54 BITS 
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traded permutations given in Figure 4, as 
well as all of the other permutations and 
substitutions of the algorithm. The substi¬ 
tutions (other than exclusive OR) are 
defined in truth tables, as in Figure 3, and 
the permutations are delineated by show¬ 
ing tables of input/output bit '•‘connec¬ 
tions,” illustrated symbolically in Figure 
1 . 

Each contracted permutation in Figure 
4 is actually composed of a balanced 
permutation followed by a cycle left op¬ 
eration and a contracted permutation. 
The result is logically equivalent to a 
series of contracted permutations, as indi¬ 
cated in the figure. 

Strictly speaking, a user could supply 
(KEY)| through (KEY)] 6 directly, with¬ 
out building the hardware to perform the 
permutations, since all of the 48-bit keys 
can be predicted for any given 64-bit 
master key. 

For example, an off-line program could 
easily print a series of keys that could be 
loaded simultaneously into the 48-bit 
registers, for each of a limited number of 
master keys. 

Such an approach may be reasonable 
because the intent of the algorithm ap¬ 
pears to be to use a given master key over 
a long period of time - a matter of hours, 
days or weeks, for instance. 

This conclusion is inferred from the 


language of the proposed standard, which 
states, “Data may be protected against 
unauthorized disclosure by generating a 
random key and issuing it to the autho¬ 
rized users of the data.” 

This indicates it isn’t necessary to sup¬ 
ply a new 64-bit key for every 64-bit data 
block. That would require synchroniza- 
ation of the encrypting and decrypting 
key generators so the same key could be 
used to encipher and decipher each data 
block. 

Instead, a federal agency with a time¬ 
sharing system or a remote batch opera¬ 
tion can select, for example, a daily key 
to be used at each transmitting site and 
the central processing facility. Obviously, 
any private organization choosing to ad¬ 
here to the standard can use the same 
technique for its own operations. 

The encryption/decryption process it¬ 
self is shown in Figure 5. It consists of 
several steps to be performed on each 
64-bit input data block: an initial bal¬ 
anced permutation; a series of 16 itera¬ 
tions of a complex cipher, each iteration 
using a separate 48-bit key; a cycle left 32 
bits (nothing more than an interchange of 
the left and right half-word); and a final 
balanced permutation which is chosen to 
be the inverse of the initial balanced 
permutation. 

The decryption process uses precisely 


the same bit manipulation stages as the 
encryption algorithm. The only dif¬ 
ference is that the keys are used in the 
reverse order, beginning with (KEY) 16 
and ending with (KEY)|. 

Figure 6 shows the n th iteration in the 
encryption process, a complex function 
that encompasses permutation, substitu¬ 
tion, expansion and contraction. 

If the same process is used for decryp¬ 
tion, it can be shown that 

Lqd (decryption) = R 16E (encryption) 

r OO = l 16E. l ID = r 15E 

and so on. Thus, following the final ex¬ 
change of left and right half-words and 
the final permutation, the output of the 
decryption process is equal to the input 
to the encryption process, where it all 
began. 

It is worth noting the nature of the 
contracted substitution in Figure 6, 
which is composed of a set of eight 
so-called “primitive functions,” each with 
a 6-bit input and a 4-bit output. 

These functions are recommended for 
inclusion in the algorithm, so there’s an 
implication the user can choose his own 
primitive functions or his own contracted 
substitution if he wishes. 

This contrasts with the practice (in the 
proposed standard) of dictating all of the 
other bit manipulation functions, without 
any hint of freedom of choice for the 
user. 



FIGURE 6 - DETAILS OF N' h ITERATION IN ENCRYPTION PROCESS 
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8080 TECO and 
FLOATING POINT PACK 


RANDOM DATA 


Dear Jim, June 23, 1976 

Congratulations on the Journal ! This approach to software 
development and to Tiny BASIC in particular is most 
stimulating. 

I would, however, be interested in seeing more support of 
the 8008-based systems. Presently, I'm running a modified 
Mark 8 with 15K RAM, IK ROM operating system, 256 level 
hardware stack, TVT-I, Suding Calculator interface, ASCII 
keyboard. National Multiplex Digital Data Recorder (2400 
baud) driven by serial-parallel interface of my own design. 

Recently, I've been working on and have nearly debugged a 
4K emulation of most of the commands of DEC'S TECO, a 
powerful text editor. Unfortunately, I have neither an assem¬ 
bler or hardcopy printer, and hand documentation for publi¬ 
cation is too time consuming. Any suggestions as to methods 
of placing TEXTED (as I call it) before the public eye would 
be appreciated. [Suggestions, anyone?] 

Tiny BASIC is intriguing, but a bit too tiny. Floating point 
capabilities are a must. Hence, for the last week, I've been 
working on a software package for the Suding Calculator. Up 
and running (with only one or two known bugs) are routines 
to read/write from/to the Calculator, input to RAM storage 
a floating point number from keyboard, output from RAM 
storage a floating point number to TVT. 

To assist anyone working with the Calculator and to invite 
comments from readers, I offer these notes: 

1) Storage format for FP numbers. After long consideration, 
I have decided upon a 5 (8-bit) word convention as follows: 



7 1 3 O 


In the format above, the 8 significant digits from the Cal¬ 
culator are stored two BCD (0-9) digits per word as repre¬ 
sented by Di’Dg with the sign of the entire number indicated 

by the sign bit "S" (1 if negative). The exponent or scale 
factor "EXP" is stored in 7 bit, two's complement binary 
with the assumed decimal point falling after the last digit, Dg. 

Thus, the useful range is from ±1. x 10“®^ to 

±99999999. x 10 + ®^. Although this format is not as compact 
as a signed magnitude or two's complement binary, it results 
in considerable savings of time and programming effort in 
reading/writing from/to the Calculator. 

2) Output printing format for FP numbers. Numbers are 
printed with a leading negative sign (if appropriate) as floating 
point in the range of ±0.00000001 to ±99999999, and as 
scientific notation in the range of ±9.9999999E- 09 to 
±£-64 and of ±1E+08 to +9.9999999E+70. 

3) FP Package calling sequences. It is planned to have 
Register A contain an operation code (i.e., output, input, 
multiply, divide, etc.). Registers H and L a pointer to the 


by Robert Reiling 

(reprinted with permission from 

Homebrew Computer Qub Newsletter, Vol. 2, No. 5) 

Kenneth Young wrote in with a report of the last 
Southern California Computer Society (SCCS) meeting 
and inlcuded his observations about the Altair 8800B. 
The following exerpt is from Ken's letter: "Pat Ward 
and David Bunnell of MITs were one of the vendors at 
the meeting and they were showing off the Altair 
8800B. I liked it. They cleaned up their computer a lot. 
I feel that this machine is comparable to the I MSA I 
8080 with a 22-slot motherboard and fan. Unfortun¬ 
ately, the Altair 8800B will cost about $840 in kit 
form. The IMS AI 8080 with a 28-Amp power supply, 
22-slot motherboard and fan costs $680 f I MSA I does 
not charge that insulting 5% handling fee anymore, so 
/ have been told). The two computers are a little differ¬ 
ent, but / do feel they are comparable to one another. 
However, / do not feel that the Altair 8800B should 
cost more than the IMSAI. My conclusion is that the 
IMSAI is still a better deal than the Altair." 

Jef Raskin's discussion of FLOW, an instructional 
computer programming language, at the May 26th 
meeting of the Homebrew Computer Club interested 
quite a few members. For a brief discussion of the 
language, have your librarian get a copy of Computers 
And The Humanities, Vol. 8, pp 231-237, Pergamon 
Press, 1974. 


5 word FP accumulator in which the result is formed on 
return, and Registers D and E a pointer to the 5 word FP 
operand (where applicable). This use of two word address 
pointers would simplify linkage of the FP package to existing 
Tiny BASICS now using two word integer arithmetic and 
operation stacks. Other planned operations (besides the 
functions provided by the Calculator) would include FP com¬ 
pare, clear, move, and scale. 

4) Bugs. Suding's suggested procedure of outputting a 
Digit 9 request and waiting for the Data Available MSB line 
to gotrue to indicate that the Calculator's internal calculations 
are completed does not allow sufficient time for long calcula¬ 
tions such as y x or N!. Any suggestions would be appreciated. 
Calculator functions DGR/RAD and E do not seem to work 
or else I'm using them incorrectly. 

I'll keep plugging away at a Calculator FP package and if 
time permits, write up the results for DDJ. [Do! Do!] I've 
also had considerable experience developing expression handlers 
using Polish notation and operation stacks. So I'll also be 
thinking of developing multi-parameter function call and 
return sequences. Meanwhile, keep those Journals coming!!!! 

Sincerely, 

William E. Severence, Jr. Center Lovell ME 04016 

William E. Severance Realtors (207) 925-2271 

P.S. Our DEC Datasystem 310W should be arriving in another 
1% months. If I decide to purchase the scientific operating 
system with assembler. I'll hopefully be able to write an 
8008 cross-assembler. 
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Floating Point Routines lor the 6502 


by Roy Rankin, Department of Mechanical Engineering, 
Stanford University, Stanford, CA 94305 
(415) 497-1822 


Steve Wozniak, Apple Computer Company 
770 Welch Road, Suite 154 
Palo Alto, CA 94304 
(415) 326-4248 


Editor’s Note: Although these routines are for the 6502, it 
would appear that one could generate equivalent routines for 
most of the “traditional” microprocessors, relatively easily, 
by following the flow of the algorithms given in the excellent 
comments included in the program listing. This is particularly 
true of the transcendental functions which were directly modeled 
after well-known and proven algorithms, and for which, the 
comments are relatively machine-independent. 

These floating point routines allow 6502 users to perform 
most of the more popular and desired floating point and 
transcendental functions, namely: 

Natural Log - LOG 
Common Log - LOG 10 
Exponential - EXP 
Floating Add - FADD 
Floating Subtract - FSUB 
Floating Multiply - FMUL 
Floating Divide - FDIV 
Convert Floating to Fixed - FIX 
Convert Fixed to Floating - FLOAT 

They presume a four-byte floating point operand consisting of 
a one-byte exponent ranging from -218 through +127, and a 
24-bit two’s complement mantissa between 1.0 and 2.0. 

The floating point routines were done by Steve Wozniak, 
one of the principals in Apple Computer Company. The 
transcendental functions were patterned after those offered by 
Hewlett-Packard for their HP2100 minicomputer (with some 
modifications), and were done by Roy Rankin, a Ph.D. student 
at Stanford University. 

There are three error traps; two for overflow, and one for 
prohibited logarithm argument. ERROR (1D06) is the error 
exit used in event of a non-positive log argument. OVFLW 
(1E3B) is the error exit for overflow occuring during calcula¬ 
tion of e to some power. OVFL (1FE4) is the error exit for 
overflow in all of the floating point routines. There is no 
trap for underflow; in such cases, the result is set to 0.0. 

All routines are called and exited in a uniform manner: 

The argument(s) are placed in the specified floating point 
storage locations (for specifics, see documentation pro¬ 
ceeding each routine in the listing), then a JSR is used to 
enter the desired routine. Upon normal completion, the 
called routine is exited via a subroutine return instruction (RTS). 


Note: The proceeding documentation was written by the Editor, based 
on phone conversations with Roy and studying the listing. There is a 
high probability that it is correct. However, since it was not written 
nor reviewed by the authors of these routines, the proceeding documen¬ 
tation may contain errors in concept or in detail. 

- JCW, Jr. 
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In the Exponent: 
00 Represents -128 


7F Represents -1 

80 Represents 0 

81 Represents +1 

• 

FF Represents +127 
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* JULY 5, 1976 

* BASIC FLOATING POINT ROUTINES 

* FOR 6502 MICROPROCESSOR 

* BY R. RANKIN AND S. U0ZNIAK 

* 

* CONSISTING OF: 

* NATURAL LOG 

* COrtDN LOG 

* EXPONENTIAL (E**X) 

* FLOAT FIX 

* FADD FSUB 

* FMUL FDIV 

* 

* 

* FLOATING POINT REPRESENTATION (4-BYTES) 

* EXPONENT BYTE 1 

* MANTISSA BYTES 2-4 

* 

* MANTISSA: TUO'S COMPLIMENT REPRESENTATION UITH SIGN IN 

* MSB OF HIGH-ORDER BYTE. MANTISSA IS NORMALIZED UITH AN 

* ASSUMED DECIMAL POINT BETUEEN BITS 5 AND 6 OF THE HIGH-ORDER 

* BYTE. THUS THE MANTISSA IS IN THE RANGE 1. TO 2. EXCEPT 

* UHEN THE NUrBER IS LESS THAN 2**(-128). 

* 

* EXPONENT: THE EXPONENT REPRESENTS P0UERS OF TU0. THE 

* REPRESENTATION IS 2'S COMPLIMENT EXCEPT THAT THE SIGN 

* BIT (BIT 7) IS COMPLIMENTED. THIS ALL0US DIRECT COMPARISON 

* OF EXPONENTS FOR SIZE SINCE THEY ARE STORED IN INCREASING 

* NUMERICAL SEQUENCE PANGING FROM $00 (-128) TO $FF (+127) 

* ($ MEANS NUMBER IS HEXADECIMAL). 

* 

* REPRESENTATION OF DECIMAL NUMBERS: THE PRESENT FLOATING 

* POINT REPRESENTATION ALL0US DECIMAL NUMBERS IN THE APPROXIMATE 

* RANGE OF 10**(-38) THROUGH 10**<38) UITH 6 TO 7 SIGNIFICANT 

* DIGITS. 

* 


0003 





0RG 3 

SET BASE 

PAGE ADPESSES 

0003 

EA 



SIGN 

NOP 



0004 

EA 



X2 

NOP 

EXPONENT 

2 

0005 

00 

00 

00 

M2 

BSS 3 

MANTISSA 

2 

0008 

EA 



XI 

NOP 

EXPONENT 

‘l 

0009 

00 

00 

00 

Ml 

BSS 3 

MANTISSA 

1 

000C 




E 

BSS 4 

SCRATCH 


0010 




z 

BSS 4 



0014 




T 

BSS 4 
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eeie 




SEtf> 

BSS 4 





1DC1 

BD 

CD 

ID 

L10 

LDA 

LN10.X 


MIC 

00 



INT 

BSS 1 





1DC4 

95 

04 



STA 

X2.X 

LOAD EXP/MANT2 UITH 1/LN(10) 





*. 






1DC6 

CA 




DEX 



1D00 





ORG SID00 

STARTING LOCATION FOR LOG 




1DC7 

10 

F8 



BPL 

L 10 






* 






1DC9 

20 

77 

IF 


JSR 

FrtJL 

LOG 10(X)*LN(X>/LN<10) 





* 

NATURAL LOG 

OF TONT^E>®>1 UITH RESULT IN HANT/Wl 


1DCC 

60 




RTS 



i Dee 

A3 

09 


LOG 

LDA Ml 





1DCD 

7E 

6F 


LN10 

DCM 0.4342945 

1M2 

F0 

02 



BEQ ERROR 






2D 

ED 






IM4 

10 

01 



BPL CONT 

IF ARG>0 OK 




1DD1 

80 

5A 


R22 

DCM 

1.4142136 S0RT(2> 

1D06 

00 



ERROR 

BRK 

ERROR ARG<-0 





62 

7A 










* 






1DD5 

7F 

58 


LE2 

DCM 

0.69314718 LOG BASE E OF 2 

1D07 

20 

1C 


CONT 

JSR SUAP 

MOVE ARG TO E»»/MANT2 . n-, - 
HOLD EXPONENT < ^ 

Mix# 



B9 

0C 






1D0A 

A5 

04 

0 0 

LDA X2 


1DD9 

80 

52 


A1 

DCM 

1.2920074 

1D0C 

A0 

80 



LDY -S80 






B0 

40 






1 D0E 

84 

04 



STY X2 

SET EXPONENT 2 TO 0 (S88) 




1DDD 

81 

AB 


r* 

DCM 

-2.6398577 

ID 10 

49 

80 



EOR -*80 

COff>Lir*NT SIGN BIT OF ORIGINAL 

E*>ONENT 


86 

49 






1D12 

85 

00 



STA Ml+1 

SET EXPONENT INTO MANTISSA 1 

FOR 

FLOAT 


IDE 1 

80 

6A 


c 

DCM 

1.6567626 

ID 14 

A9 

00 

! 0 01 

LDA -0 

epi-*+3 





08 

66 






1D16 

85 

09 

r 

.. 9 r STA Ml 

** JSR FLOAT 

CLEAR MSB OF MANTISSA 1 

!K] 

IDE5 

7F 

40 


rWLF 

DCM 

0.5 


1D18 

20 

2C 

IF 

CONVERT TO FLOATING POINT 


rt ) 

00 

00 






ID 16 

A2 

03 



LDX -3 

4 BYTE TRANSFERS 








* 




1D1D 

05 

04 


SEXP1 

LDA X2.X 





1E00 





ORG 

S1E00 

STARTING LOCATION FOR E XP 

ID1F 

95 

10 



STA Z.X 

COPY MANTISSA TO Z 








* 




1D21 

B5 

08 



LDA XI,X 









* 

EXP OF MANT/EtfM RESULT IN MANT/EXP1 

1D23 

95 

18 



STA SEtf>.X 

SAVE EXPONENT IN SEXP 








* 




1D25 

BD 

D 1 

ID 


LDA R22.X 

LOAD EWVMANT1 UITH S0RT<2) 




1E00 

A2 

03 


Etf> 

LDX 

-3 

4 BYTE TRANSFER 

1D28 

95 

08 



STA XI.X 





1EB2 

BD 

D8 

IE 


LDA 

L2E.X 


1D2A 

CA 




DEX 





1EB5 

95 

04 



STA 

X2.X 

LOAD Etf>/MANT2 UITH LOG BASE 2 OF E 

1D2B 

10 

F0 



BPL SEXP1 





1E07 

CA 




DEX 



1D2D 

20 

40 

IF 


JSR FSUB 

Z-SQRT<2) 




IE 08 

10 

F8 



BPL 



1D30 

02 

03 



LDX -3 

4 BYTE TRANSFER 




1E0A 

20 

77 

IF 


JSR 

FMUL 

L0G2(E)*X 

1D32 

85 

08 


SAVET 

LDA XI.X 

SAVE EXP/MANTl AS T 




1E0D 

A2 

03 



LDX 

-3 

4 BYTE TRANSFER 

1D34 

95 

14 



STA T.X 





1E0F 

B5 

08 


FSA 

LDA 

XI.X 


1D36 

85 

10 



LDA Z.X 

LOAD EXP/MANTl UITH Z 




IE 11 

95 

10 



STA 

Z.X 

STORE EXP/MANT1 IN Z 

1D38 

95 

08 



STA XI.X 





IE 13 

CA 




DEX 



1D3A 

BD 

D 1 

ID 


LDA R22.X 

LOAD E»M1ANT2 UITH S0RT<2) 




IE 14 

10 

F9 



BPL 

FSA 

SAVE Z"LN(2)*X 

1D3D 

95 

04 



STA X2.X 





IE 16 

20 

E8 

IF 


JSR 

FIX 

CONVERT CONTENTS OF EXP/MANTl TO AN INTEGER 

1D3F 

CA 




DEX 





IE 19 

A5 

0A 



LDA 

Ml-fl 


1 D40 

10 

F0 



BPL SAVET 





IE IB 

85 

1C 



STA 

INT 

SAVE RESULT AS INT 

1D42 

20 

50 

IF 


JSR FADD 

Z+SQRT(2> 




IE ID 

38 




SEC 


SET CARRY FOR SUBTRACTION 

1D45 

A2 

03 



LDX -3 

4 BYTE TRANSFER 




IE IE 

E9 

7C 



SBC 

■124 

INT-124 

1D47 

05 

14 


TM2 

LDA T.X 





1E20 

A5 

09 



LDA 

Ml 


1D49 

95 

04 



STA X2.X 

LOAD T INTO Etf>/MANT2 




1E22 

E9 

00 



SBC 

•0 


1D48 

CA 




DEX 





1E24 

10 

15 



BPL 

OVFLU 

OVERFLOU INT>-124 

1D4C 

10 

F9 



BPL TM2 





1E26 

18 




CLC 


CLEAR CARRY FOR ADD 

1D4E 

20 

9D 

IF 


JSR FDIV 

T«(Z-S0RT(2))/(Z+S0RT<2>) 




1E27 

A5 

BA 



LDA 

Ml-M 


1D5 1 

02 

03 



LDX -3 

4 BYTE TRANSFER 




1E29 

69 

78 



ADC 

•120 

ADD 120 TO INT 

1D53 

B5 

08 


MIT 

LDA XI.X 





1E26 

A5 

09 



LDA 

Ml 


1D55 

95 

14 



STA T.X 

COPY E>P/MANT1 TO T AND 




1E2D 

69 

00 



ADC 

■0 


1D57 

93 

04 



STA X2.X 

LOAD Etf»/MANT2 UITH T 




1E2F 

10 

0B 



BPL 

CONTIN 

IF RESULT POSITIVE CONTINUE 

1D59 

CA 




DEX 





1E31 

A9 

00 



LDA 

-0 

INT<-120 SET RESULT TO ZERO AND RETURN 

1D5A 

10 

F7 



BPL MIT 





1E33 

A2 

03 



LDX 

-3 

4 BYTE MOVE 

1D5C 

20 

77 

IF 


JSR FMUL T*T 




1E3S 

95 

08 


ZERO 

STA 

XI.X 

SET EXP/MANTl TO ZERO 

1D5F 

20 

1C 

IF 


JSR SUAP 

MOVE T*T TO E*>/MANT2 




1E37 

CA 




DEX 



1D62 

A2 

e3 



LDX -3 

4 BYTE TRANSFER 




IE 38 

10 FB 



BPL 

ZERO 


1D64 

BD El 

ID 

MIC 

LDA C.X 





1E3A 

60 




RTS 


RETURN 

1D67 

95 

08 



STA XI.X 

LOAD EtfVMANTl UITH C 








* 




1D69 

CA 




DEX 




IE 38 

00 



OVFLU 

BRK 


OVERFLOU 

1D6A 

10 

F8 



BPL MIC 









* 




1D6C 

20 

4A 

IF 


JSR FSUB 

T*T-C 




1E3C 

20 

2C 

IF 

CONTIN JSR 

FLOAT 

FLOAT INT 

1DGF 

02 

03 



LDX -3 

4 BYTE TRANSFER 




1E3F 

A2 

03 



LDX 

•3 


1D71 

BD 

DD 

ID 

M2f* 

lda re.x 





1E41 

B5 

10 


ENTD 

LDA 

Z.X 


1D74 

95 

04 



STA X2.X 

LOAD E»»/MANT2 UITH rB 




1E43 

95 

04 



STA 

X2.X 

LOAD EXP/MANT2 UITH Z 

1D76 

CA 




DEX 





1E45 

CA 




DEX 



ID i7 

10 

F8 



BPL M2r« 





1E46 

10 

F9 



BPL 

ENTD 


1D79 

20 

9D 

IF 


JSR FDIV 

re/<T*T-c> 




1E46 

20 

4A 

IF 


JSR 

FSUB 

Z-Z-FLOATCINT) 

1D7C 

02 

03 



LDX -3 

4 BYTE TRANSFER 




1E4B 

A2 

03 



LDX 

■3 

4 BYTE MOVE 

1D7E 

BD 

D9 

ID 

M2A1 

LDA Al.X 





1E4D 

B5 

08 


ZSAV 

LDA 

XI.X 


1D81 

95 

04 



STA X2.X 

LOAD EW>/MANT2 UITH A1 




1E4F 

95 

10 



STA 

Z.X 

SAVE EXP/MANTl IN Z 

1D83 

C0 




DEX 





1E51 

95 

04 



STA 

X2.X 

COPY EXP/MANTl TO EXP/MANT2 

1D84 

10 

F8 



BPL M2A1 





1E53 

CA 




DEX 



1D86 

20 

50 

IF 


JSR FADD 

MB/(T*T-C)4fll 




1E54 

10 

F7 



BPL 

ZSAV 


1D89 

A2 

03 



LDX -3 

4 BYTE TRANSFER 




1E56 

20 

77 

IF 


JSR 

FMUL 

Z*Z 

1D8B 

B5 

14 


M2T 

LDA T.X 





1E59 

A2 

03 



LDX 

■3 

4 BYTE MOVE 

1D8D 

95 

04 



STA X2.X 

LOAD EXP/MANT2 UITH T 




1E5B 

BD 

DC 

IE 

LA2 

LDA 

A2.X 


1D8F 

CA 




DEX 





1E5E 

95 

04 



STA 

X2.X 

LOAD EXP/MANT2 UITH A2 

1D90 

ie 

F9 



BPL M2T 





1E60 

B5 

08 



LDA 

XI.X 


1D92 

20 

77 

IF 


JSR FMUL 

(MB/CT*T-CMA1)*T 




1E62 

95 

18 



STA 

SEXP.X 

SAVE EXP/MANTl AS SEXP 

1D95 

A2 

03 



LDX -3 

4 BYTE TRANSFER 




1E64 

CA 




DEX 



1D97 

BD 

E5 

ID 

M2WL 

LDA rULF.X 





1E65 

10 

F4 



BPL 

LA2 


1D9A 

95 

04 



STA X2.X 

LOAD EXP/MANT2 UITH MHLF (.5) 



1E67 

20 

50 

IF 


JSR 

FADD 

Z*Z+A2 

1D9C 

CA 




DEX 





1E6A 

A2 

03 



LDX 

-3 

4 BYTE MOVE 

1D9D 

10 

F8 



BPL M2MHL 





1E6C 

BD 

E0 

IE 

LB2 

LDA 

B2.X 


1D9F 

20 

50 

IF 


JSR FADD 

♦ .5 




1E6F 

95 

04 



STA 

X2.X 

LOAD EXP/MANT2 UITH B2 

1DA2 

A2 

03 



LDX -3 

4 BYTE TRANSFER 




1E71 

CA 




DEX 



1DA4 

85 

18 


LDEXP 

LDA SEtf>.X 





1E72 

10 

F8 



BPL 

LB2 


1DA6 

95 

04 



STA X2.X 

LOAD EXP/MANT2 UITH ORIGINAL 

EMINENT 


1E74 

20 

9D 

IF 


JSR 

FDIV 

T-B2/(Z*Z*A2) 

1DA8 

CA 




DEX 





1E77 

A2 

03 



LDX 

•3 

4 BYTE MOVE 

1DA9 

10 

F9 



BPL LDEXP 





1E79 

B5 

08 


DLOAD 

LDA 

XI.X 


1 DAB 

20 

50 

IF 


JSR FADD 

+€)PH 




1E7B 

95 

14 



STA 

T.X 

SAVE EXP/MANTl AS T 

IDAE 

A2 

03 



LDX -3 

4 BYTE TRANSFER 




1E7D 

BD 

E4 

IE 


LDA 

C2.X 


1DB0 

BD 

D5 

ID 

M.E2 

LDA LE2.X 





1E80 

95 

08 



STA 

XI.X 

LOAD EXP/MANTl UITH C2 

1 DB3 

95 

04 



STA X2.X 

LOAD EXP/MANT2 UITH LN(2) 




1E82 

B5 

18 



LDA 

SEXP.X 


1DB5 

CA 




DEX 





1E84 

95 

04 



STA 

X2.X 

LOAD EXP/MANT2 UITH SEXP 

1DBS 

10 

F8 



BPL PLE2 





1E86 

CA 




DEX 



1DB8 

20 

77 

IF 


JSR FMUL 

*-N<2> 




1E87 

10 

F0 



BPL 

DLOAD 


1D8B 

60 




RTS 

RETURN RESULT IN MANT/EtfM 




1E89 

20 

77 

IF 


JSR 

FMUL 

Z*Z*C2 





* 






1E8C 

20 

1C 

IF 


JSR 

SUAP 

MOVE EXP/MANTl TO EXP/MANT2 





* 

COrtDN LOG 

OF MANT/E>P1 RESULT IN MANT/EXP 1 



1E8F 

A2 

03 



LDX 

■3 

4 BYTE TRANSFER 





* 






1E91 

B5 

14 


LTMP 

LDA 

T.X 


1DBC 

20 

00 

ID 

LOG 10 

JSR LOG 

COrf»UTE NATURAL LOG 




1E93 

95 

08 



STA 

XI.X 

LOAD EXP/MANTl UITH T 

1DBF 

A2 

03 



LDX -3 





1E95 

CA 




DEX 
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ADD EXP/MANT1 AND EXP/MANT2 RESULT IN EXP/MANT1 


1E96 

10 F9 



BPL LTMP 



1E98 

20 4A 

IF 


JSR FSUB 

C2*Z*Z-B2/(Z*Z+A2) 


1E9B 

A2 03 



LDX *3 

4 BYTE TRANSFER 

1F50 

1E9D 

BD E8 

IE 

LDD 

LDA D.X 


1EA0 

95 04 



STA X2.X 

LOAD EXP/MANT2 UITH D 

1F52 

1EA2 

CA 



DEX 


IF54 

IE A3 

*10 F8 



BPL LDD 


1F56 

1EA5 

20 50 

IF 


JSR FADD 

D+C2*Z*Z-02/(Z*Z+A2) 

1F59 

1EA8 

20 1C 

IF 


JSR SUAP 

MOVE EXP/MANTl TO EXP/MANT2 

1F5B 

1EAB 

A2 03 



LDX -3 

4 BYTE TRANSFER 

1F5D 

1EAD 

B5 10 


LFA 

LDA Z.X 


1F5F 

1EAF 

95 08 



STA XI.X 

LOAD E^/MANTl UITH Z 

1F61 

1EB1 

CA 



DEX 


1F62 

1EB2 

10 F9 



BPL LFA 


1F64 

1EB4 

20 4A 

IF 


JSR FSUB 

-Z+D+C2*Z*Z-B2/(Z*Z+A2) 

1F66 

1EB7 

A2 03 



LDX -3 

4 BYTE TRANSFER 

1F68 

1EB9 

B5 10 


LF3 

LDA Z.X 


1F6A 

1EBB 

95 04 



STA X2.X 

LOAD EXP/MANT2 UITH 2 

1F6C 

1EBD 

CA 



DEX 


1F6D 

1EBE 

10 F9 



BPL LF3 


1F6F 

1EC0 

20 9D 

IF 


JSR FDIV 

Z/(**** ) 

1F71 

1EC3 

A2 03 



LDX -3 

4 BYTE TRANSFER 

1F73 

1EC5 

BD E5 

ID 

LD12 

LDA rWLF.X 


1F74 

1EC8 

95 04 



STA X2.X 

LOAD EXP/MANT2 UITH .5 

1F76 

1ECA 

CA 



DEX 



1ECB 

10 F8 



BPL LD12 



1ECD 

20 50 

IF 


JSR FADD 

+Z/(***)+.5 


1ED0 

38 



SEC 

ADD INT TO EXPONENT UITH CARRY SET 


1ED1 

A5 1C 



LDA INT 

TO MULTIPLY BY 

1F77 

1ED3 

65 08 



ADC XI 

2**( INT+l) 

1F7A 

1ED5 

85 08 



STA XI 

RETURN RESULT TO Etf»ONENT 

1F7C 

1ED7 

60 



RTS 

RETURN ANS-(.5+Z/(-Z+D+C2*Z*Z-B2/(Z** 

1F7F 

1ED8 

80 5C 


L2E 

DCM 1.4426950409 LOG BASE 2 OF E 

1F80 


55 IE 





1F83 

1EDC 

86 57 


A2 

DCM 87.417497202 

1F85 


6A El 





1F88 

1EE0 

89 4D 
3F ID 


B2 

DCM 617.9722695 Z+A2))*2**( 1NT+1) 

1F89 

1F8B 

1EE4 

7B 46 


C2 

DCM .03465735903 

1F8D 


FA 70 





1F8F 

1EE8 

83 4F 


D 

DCM 9.9545957821 

1F90 


A3 03 


* 



1F92 

1F94 




* 



1F96 




* 

BASIC FLOATING POINT ROUTINES 

1F98 




* 



1F99 

1F00 




ORG S1F00 

START OF BASIC FLOATING POINT ROUTINES 

1F9B 

1F00 

18 


ADD 

CLC 

CLEAR CARRY 


1F01 

A2 02 



LDX «$02 

INDEX FOR 3-BYTE ADD 


1F03 

B5 09 


ADD1 

LDA Ml.X 



1F05 

75 05 



ADC M2.X 

ADD A BYTE OF MANT2 TO MANT1 


1F07 

95 09 



STA Ml.X 


1F9D 

1F09 

CA 



DEX 

ADVANCE INDEX TO NEXT MORE SIGN IF.BYTE 

1FA0 

1F0A 

10 F7 



BPL ADD 1 

LOOP UNTIL DONE 

1FA2 

IF0C 

60 



RTS 

RETURN 

1FA5 

1F0D 

06 03 


MD1 

ASL SIGN 

CLEAR LSB OF SIGN 

1FA6 

1F0F 

20 12 

IF 


JSR ABSUAP 

ABS VAL OF MANT1, THEN SUAP MANT2 

1FA8 

IF 12 

24 09 


ABSUAP BIT Ml 

MANT1 NEG? 

1FAA 

IF 14 

10 05 



BPL ABSUP1 

NO.SUAP UITH MANT2 AND RETURN 

1FAC 

IF 16 

20 8F 

IF 


JSR FCOrPL 

YES. COMPL IfCNT IT. 

IFAD 

IF 19 

E6 03 



INC SIGN 

INCR SIGN. COfff’LEMENTlNG LSB 

1FAE 

IF IB 

38 


ABSUP1 SEC 

SET CARRY FOfe RETURN TO MUL/DIV 

1FB0 




* 



1FB2 




* 

SUAP E^P/MANTl UITH Etf>/MANT2 

1FB3 




* 



1FB5 

IF 1C 

A2 04 


SUAP 

LDX *$04 

INDEX FOR 4-BYTE SUAP 

1FB7 

1F1E 

94 0B 


SUAP1 

STY E-I.X 


1FB8 

1F20 

B5 07 



LDA Xl-l.X 

SUAP A BYTE OF EtfVMANTl UITH 

1FBA 

1F22 

B4 03 



LDY X2-1.X 

EXP/MANT2 AND LEAVEA COPY OF 

1FBC 

1F24 

94 07 



STY Xl-l.X 

MANT1 IN E(3BYTES). E+3 USED. 

1FBE 

1F26 

95 03 



STA X2-I.X 


1FC0 

1F28 

CA 



DEX 

ADVANCE INDEX TO NEXT BYTE 

1FC2 

1F29 

D0 F3 



BNE SUAP1 

LOOP UNTIL DONE. 


1F2B 

60 


* 

RTS 


1FC4 




* 



1FC6 




* 



1FC8 




* 

CONVERT 16 

BIT INTEGER IN Ml (HIGH) AND Ml+1(LOU) TO 

1FC9 




* 

RESULT IN EXP/MANT1. EHVMANT2 UNEFFECTED F.P. 

1FCB 




* 



1FCD 




•* 



1FCF 

1F2C 

A9 8E 


FLOAT 

LDA -$8E 


1FD1 

1F2E 

85 08 



STA XI 

SET EXPN TO 14 DEC 

1FD3 

1F30 

A9 00 



LDA -0 

CLEAR LOU ORDER BYTE 

1FD5 

1F32 

85 0B 



STA Ml♦2 


1FD7 

1F34 

F0 08 



BEQ NORM 

NORMALIZE RESULT 

1FD8 

1F36 

C6 08 


N0RM1 

DEC XI 

DECREMENT EXP1 

1FD9 

IF 38 

06 0B 



ASL Ml+2 


1FDB 

1F3A 

26 0A 



ROL Ml + 1 

SHIFT MANT1 <3 BYTES) LEFT 

1FDD 

1F3C 

26 09 



ROL Ml, 


1FDF 

1F3E 

A5'09 


NORM 

LDA Ml 

HIGH ORDER MANT1 BYTE 

1FE1 

1F40 

0A 



ASL A 

UPPER TUO BITS UNEQUAL.? 

1FE2 

1F41 

45 09 



EOR Ml 


1FE4 

1F43 

30 04 



BMI RTS 1 

YES.RETURN UITH MANT1 NORMALIZED 


1F45 

A5 08 



LDA XI 

EXP1 ZERO? 


IF 47 

D0 ED 



BNE N0RM1 

NO. CONTINUE NORMALIZING 


1F49 

60 


RTS1 

* 

* 

RTS 

RETURN 

1FE5 




* 

Etf>/MANT2-EXP/MANl RESULT IN EXP/MANT1 

IFE8 




* 



1FEA 

1F4A 

20 8F 

IF 

FSU6 

JSR FCOMPL 

COMPL MANT1 CLEARS CARRY UNLESS ZERO 

1FEC 

1F4D 

20 5D 

IF 

SUPALG JSR ALGNSU 

RIGHT* SHIFT MANT1 OR SUAP UITH 

1FEE 




* 


MANT2 ON CARRY 



* 

* 


A5 

04 

FADD 

LDA 

X2 


C5 

08 


Cl-F 

XI 

COMPARE EXP1 UITH EXP2 

D0 

F7 


BNE 

SUPALG 

IF UNEQUAL. SUAP ADDENDS OR ALIGN MANTISSAS 

20 

00 IF 


JSR 

ADD 

ADD ALIGNED MANTISSAS 

50 

E3 

ADDEND 

BVC 

NORM 

NO OVERFLOU. NOMALIZE RESULTS 

70 

05 


BVS 

RTLOG 

OV: SHIFT MANT1 RIGHT. NOTE CARRY IS CORRECT SIGN 

90 

BD 

ALGNSU 

BCC 

SUAP 

SUAP IF CARRY CLEAR. ELSE SHIFT RIGHT ARITH. 

A5 

09 

RTAR 

LDA 

Ml 

SIGN OF MANT1 INTO CARRY FOR 

0A 



ASL 

A 

RIGHT ARITH SHIFT 

E6 

08 

RTLOG 

INC 

XI 

INCR EXP1 TO COMPENSATE FOR RT SHIFT 

F0 

7E 


BEQ 

OVFL 

EXP 1 OUT OF RANGE 

A2 

FA 

RTL0G1 

LDX 

*$FA 

INDEX FOR 6 BYTE RIGHT SHIFT 

A9 

80 

ROR1 

LDA 

=$80 *1 


B0 

01 


BCS 

ROR? | 


0A 



ASL 

A 


56 

0F 

R0R2 

LSR 

E+3.X , 

SIMULATE ROR E+3.X 

15 

0F 


ORA 

E+3.X 


95 

0F 


STA 

E+3. X J 


E8 



I NX 


NEXT BYTE OF SHIFT 

D0 

F2 


BNE 

ROR 1 

LOOP UNTIL DONE 

60 



RTS 


RETURN 


* 

* 

* EXP/tlANTl X Etf>/MANT2 RESULT IN EXP/MANT1 

* 

20 0D IF FMUL 

65 08 
20 CD IF 
18 

20 66 IF MUL1 

90 03 
20 00 IF 
88 MUL2 

10 F5 

46 03 MDEND 

90 AF NORMX 

38 FCOMPL 

A2 03 

A9 00 COMPL1 

F5 08 
95 08 
CA 

DO F7 
F0 BC 

* 

* 

* EXP/MANT2 / EXP/MANT1 RESULT IN EXP/MANTl 


* 


20 

0D 

IF 

FDIV 

JSR MD1 

TAKE ABS VAL OF MANT1. MANT2 

E5 

08 



SBC XI 

SUBTRACT EXP 1 FROM EXP2 

20 

CD 

IF 


JSR MD2 

SAVE AS QUOTIENT EXP 

38 



DIV1 

SEC 

SET CARRY FOR SUBTRACT 

A2 

02 



LDX -$02 

INDEX FOR 3-BYTE INSTRUCTION 

B5 

05 


DIV2 

LDA M2.X 


F5 

0C 



SBC E.X 

SUBTRACT A BYTE OF E FROM MANT2 

48 




PHA 

SAVE ON STACK 

CA 




DEX 

NEXT MORE SIGN IF BYTE 

10 

F8 



BPL DIV2 

LOOP UNTIL DONE 

A2 

FD 



LDX -$FD 

INDEX FOR 3-BYTE CONDITIONAL MOVE 

68 



DIV3 

PLA 

PULL A BYTE OF DIFFERENCE OFF STACK 

90 

02 



BCC DIV4 

IF MANT2<E THEN DONT RESTURE MANT2 

95 

08 



STA M2+3.X 


E8 



DIV4 

INX 

NEXT LESS SIGN IF BYJE 

D0 

F8 



BNE DIV3 

LOOP UNTIL DONE 

26 

0B 



ROL Ml+2 


26 

08 



ROL Ml+1 

ROLL QUOTIENT LEFT. CARRY INTO LSB 

26 

09 



ROL Ml 


06 

07 



ASL M2+2 


26 

06 



ROL M2+1 

SHIFT DIVIDEND LEFT 


26 

05 


ROL M2 


B0 

1C 


BCS OVFL 

OVERFLOU IS DUE TO UNNORMALIZED DIVISOR 

88 



DEY 

NEXT DIVIDE ITERATION 

D0 

DA 


BNE DIV1 

LOOP UNTIL DONE 23 ITERATIONS 

F0 

BE 


BEQ MDEND 

NORMALIZE QUOTIENT AND CORRECT SIGN 

86 

0B 

MD2 

STX Ml+2 


86 

0A 


STX Ml+1 

CLR MANT1 (3 BYTES) FOR MUL/DIV 

86 

09 


STX Ml 


B0 

0D 


BCS OVCHK 

IF EXP CALC SET CARRY. CHECK FOR OVFL 

30 

04 


BMI MD3 

IF NEG NO UNDERFLOU 

68 



PLA 

POP ONE 

68 



PLA 

RETURN LEVEL 

90 

B2 


BCC NORMX 

CLEAR XI AND RETURN 

49 

80 

MD3 

EOR -$80 

COMPLIMENT SIGN BIT OF EXP 

85 

08 


STA XI 

STORE IT 

A0 

17 


LDY -SI7 

COUNT FOR 24 MUL OR 23 DIV ITERATIONS 

60 



RTS 

RETURN 

10 

F 7 

OVCHK 

BPL MD3 

IF POS EXP THEN NO OVERFLOU 

00 


OVFL 

* 

BRK 




* 

* 

CONVERT EtfVMANTl TO INTEGER IN Ml (HIGH) RND Ml + 1 (LOU) 



* 

EXP/MANT2 

UNEFFECTED 

20 

5F IF 


JSR RTAR 

SHIFT MANT1 RT AND INCREMENT EXPNT 

A5 

08 

FIX 

LDA XI 

CHECK EXPONENT 

C9 

8E 


Ctt> -S8E 

IS EXPONENT 14? 

D0 

F7 


BNE FIX-3 

NO.SHIFT 

60 


RTRN 

RTS 

RETURN 




END 



JSR 

MD1 

ADC 

XI 

JSR 

MD2 

CLC 


JSR 

RTLOG1 

BCC 

MUL2 

JSR 

ADD 

DEY 


BPL 

MUL 1 

LSR 

SIGN 

BCC 

NORM 

SEC 


LDX 

"$03 

LDA 

■$00 

SBC 

XI.X 

STA 

XI.X 

DEX 


BNE 

COMPL1 

BEQ 

ADDEND 


ABS. VAL OF THE MANT1. MANT2 
ADD EXP1 TO EXP2 FOR PRODUCT EXPONENT 
CHECK PRODUCT EXP AND PREPARE FOR. MUL 
CLEAR CARRY 

MANT1 AND E RIGHT.(PRODUCT AND MPLIER) 

IF CARRY CLEAR. SKIP PARTIAL PRODUCT 

ADD MULTIPLICAN TO PRODUCT 

NEXT MUL ITERATION 

LOOP UNTIL DONE 

TEST SIGN (EVEN/ODD) 

IF EXEN. NORMALIZE PRODUCT. ELSE COMPLEMENT 
SET CARRY FOR SUBTRACT 
INDEX FOR 3-BYTE SUBTRACTION 
CLEAR A 

SUBTRACT BYTE OF EXP1 
RESTORE IT 

NEXT MORE SIGNFICANT BYTE 
LOOP UNTIL DONE 

NORMALIZE (OR SHIFT RIGHT IF OVERFLOU) 
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[flnniiEr for tfia B5E3 


Jack Bradshaw 
18 Harbor View Dr. 

Hingham, MA 02043 

This listing is a Monitor for the 6502, a-la the Ohio 
Scientific Model 420. The interrupt vector has been set to 
use John Zeiglers breakpoint routine. [DDJ, Vol.1, No.3]. 

His program needs to have a few addresses changed to use 
this Monitor, but they should be obvious from the subroutine 
names. 

Ohio Scientific [11679 Hayden St., P.O. Box 269, Hiram, 
OH 44234] seems to be the cheapest way to go if you roll 
your own equipment. They sell [albeit slowly] a variety of 
bare boards at very reasonable prices and good quality. So 


S 


ADDR/ 

XX 

XX 

XX 

LABEL 

OP 

(MODE 1 

i OPER 


• • 

• * 

• • 

- - -- 

— 

(-) 

* * • # • 

FF00/ 

A9 

03 


MAIN 

LDA 

C IMM) 

03 

FF02/ 

8D 

00 

FC 


STA 

(ABS) 

FC00 

FF0 5/ 

A9 

B 1 



LDA 

( I MM) 

B 1 

FF0 7/ 

8D 

00 

FC 


STA 

(ABS) 

FC00 

FF0A/ 

A2 

FF 



LDX 

( IMMF> 

FF 

FF0C/ 

9A 




TXS 

( IMP ) 


FF0D/ 

20 

5E 

FF 


JSR 

(ABS) 

CRLF 

FF10/ 

20 

C6 

FF 


JSR 

(ABS) 

INPT 

FF1 3/ 

AA 




TAX 

(IMP) 


FF1 4/ 

20 

4F 

FF 


JSR 

(ABS) 

SPAC 

FF 1 7/ 

E0 

4C 



cpx 

( IMM ) 

4C 

FF 1 9/ 

F0 

09 



BEU 

(REL) 

LOAD 

FF1B/ 

£0 

50 



CPX 

( IMM) 

50 

FF 1 D/ 

F0 

1 4 



BEU 

(REL) 

PRNT 

FF 1 F/ 

E0 

47 



CPX 

( IMM ) 

47 

FF21 / 

D0 

E 7 



BNE 

(REL) 

FF0A 

FF23/ 

40 




RTI 

( IMP) 


FF24/ 

20 

69 

FF 

LOAD 

JSR 

(ABS) 

ADDR 

FF2 7/ 

20 

7 7 

FF 


JSR 

(ABS) 

FILL 

FF2A/ 

91 

FE 



STA 

(INDeY) FE 

FF2C/ 

C8 




INY 

( IMP) 


FF2D/ 

D0 

F8 



BNE 

(REL) 

FF2D 

FF2F/ 

E6 

FF 



INC 

(ZER) 

00FF 

FF3 1 / 

D0 

F 4 



BNE 

(REL) 

FF2 7 

FF33/ 

20 

69 

FF 

PRNI 

JSK 

(ABS) 

ADDR 

FF36/ 

20 

5 E 

FF 


JSR 

(ABS) 

CRLF 

FF39/ 

A9 

F8 



LDA 

( IMM ) 

F8 

FF3B/ 

85 

FD 



STA 

(ZER) 

00FD 

FF3D/ 

20 

4C 

FF 


JSK 

(ABS) 

MEML 

FF40/ 

E6 

FD 



INC 

(ZER) 

00FD 

FF42/ 

D0 

F9 



BNE 

(REL) 

FF3D 

FF44/ 

AD 

00 

FC 


LDA 

(ABS) 

FC00 

FF4 7/ 

4A 




LSR 

(ACC) 


FF 4b/ 

90 

EC 



see 

(REL) 

FF36 


far I have assembled the CPU board and 4K board, am finishing 
a homebrew panel, and wrote t:he Monitor to check things 
on a borrowed ASR33. The next step calls for revising the 
Monitor to take the Viatron keyboard and translate to ASCII 
with a look-up table. 

The Viatron keyboard is optically encoded, has parallel 
output, and is a fantastic bargain at $20.00 from John Meshna 
[P.O. Box 62, E. Lynn MA 01904] These are new surplus 
with 73 (I think) keys. Anyway, I will pass along an updated 
version. 

Eventually hope to get TB for the 6502 (if you publish 
a 6800 version someone will translate it overnight or vice- 
versa). 

Note: I would like to hear from other 6502's in the area. 


FF4A/ 

B0 

BE 



BCS 

(REL) 

FF0A 

FF4C/ 

* 

20 

88 

FF 

MEML 

JSR 

(ABS) 

EMTY 

FF4F/ 

* 

A9 

20 


SPAC 

LDA 

(IMM) 

20 

FF51 / 

48 



0UTP 

PHA 

( IMP) 


FF52/ 

AD 

00 

FC 


LDA 

(ABS) 

FC00 

FF55/ 

4A 




LSR 

(ACC) 


FF56/ 

4A 




LSR 

(ACC) 


FF57/ 

90 

F 9 



BCC 

(REL) 

FF52 

FF59/ 

68 




PLA 

( IMP) 


FF5A/ 

8D 

0 1 

FC 


STA 

(ABS) 

FC0 1 

FF5D/ 

* 

60 




RTS 

( IMP ) 


* 

FF5E/ 

A 9 

0D 


CRLF 

LDA 

( IMM) 

0D 

FF60/ 

20 

51 

FF 


JSR 

(ABS) 

0UTP 

FF63/ 

A9 

0A 



LDA 

, (IMM) 

' 0A 

FF 65/ 

20 

51 

FF 


JSR 

(ABS) 

0UTP 

FF68/ 

60 




RTS 

( IMP) 


FF69/ 

20 

7 7 

FF 

ADDR 

JSR 

(ABS) 

FILL 

*S 

* 








FF 69 / 

20 

77 

FF 

ADDR 

JSR 

(ABS) 

FILL 

FF6C/ 

85 

FF 



STA 

(ZER ) 

00FF 

FF6E/ 

20 

7 7 

FF 


JSR 

(ABS) 

FILL 

FF71 / 

A8 




TAY 

( IMP ) 


FF 72/ 

A9 

00 



LDA 

( IMM) 

00 

FF76/ 

60 




RTS 

(IMP) 


*£ 

* 








FF 7 7/ 

20 

98 

FF 

FILL 

JSR 

(ABS) 

READ 

FF7A/ 

0 A 




ASL 

(ACC) 


FF7B/ 

0A 




ASL 

(ACC) 


FF7C/ 

0A 




ASL 

(ACC) 


FF7D/ 

0A 




ASL 

(ACC) 
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FF7E/ 85 FC 
FF80/ 20 98 FF 
FF83/ 29 0F 
FF74/ 85 FE 
FF83/ 29 0F 
FF85/ 65 FC 
FF8 7/ 60 
* 

FF88/ B1 FE EMTY 

FF8A/ 20 B5 FF 
FF8D/ B1 FE 
FF8F/ 20 B9 FF 
FF92/ C8 
FF93/ 00 02 
FF95/ E6 FF 
FF9 7/ 60 
♦ 

FF98/ 20 C6 FF HEAD 

FF9B/ C9 52 

FF9D/ D0 03 

FF9F/ AC 00 FF 

FFA2/ C9 30 

FFA4/ 30 F2 

FFA6/ C9 3A 

FFA8/ 30 08 

FFAA/ C9 41 

FFAC/ 30 EA 

FFAE/ C9 46 

FF80/ 10 E6 

FF82/ E9 07 

FFB4/ 60 

* 

FF8 5/ 4A UNPK 

FF86/ 4A 
FF8 7/ 4A 
FFB8/ 4A 
* 

FFB9/ 29 0F U hP I 

FFBB/ 69 30 
FFBD/ C9 3A 
FFBF/ 30 02 
FFC1/ 69 07 
FFC3/ 20 51 FF 
* 

FFC6/ AD 00 FC INPT 
FFC9/ 4A 
FFCA/ 90 FA 
FFCC/ AD 01 FC 
FFCF/ 29 7F 
FFD1/ C9 7F 
FFD3/ F0 FI 
FFD5/ 4C 51 FF 
* 

FFFC/ 00 FF 
FFFE/ 64 02 

* 


STA (ZER) 00FC 
JSR (ABS) READ 
AND (IMM) 0F 
STA CZER) 00FE 
AND (IMM) 0F 
ADC (ZER) 00FC 
RTS (IMP) 

LDA (IND,Y) FE 
JSR (ABS) UNPK 
LDA (IND* Y) FE 
JSR (ABS) UNPI 
INY (IMP) 

BNE (RED FF9 7 
INC (ZER) 

RTS (IMP) 

JSR (ABS) INPT 
CMP (IMM) 52 
BNE (REL) FFA2 
JMP (ABS) MAIN 
CMP (IMM) 30 
BMI (REL) FF4A 
CMP (IMM) 3A 
BMI (REL) FFB5 
CMP (IMM) 41 
BMI (REL) FF4A 
CMP (IMM) 46 
BPL (REL) FF4A 
SBC (IMM) 07 
RTI (IMP) 

LSR (ACC) 

LSR (ACC) 

LSR (ACC) 

LSR (ACC) 

AND (IMM) 0F 
ADC (IMM) 30 
CMP (IMM) 3A 
BMI (REL) FFC3 
ADC (IMM) 07 
JSR (ABS) OUTP 

LDA (ABS) FC00 
LSR (ACC) 

BCC (REL) FFC6 
LDA (ABS) FC01 
AND (IMM) 7F 
CMP (IMM) 7F 
BEQ (REL) FFC6 
JMP (ABS) OUTP 


iTINY TIM 

[SEEKS TINY BASIC 

i 

[Dear Doctor, June 22, 1976 

I am an electronics instructor and at school where I teach I 
(have a friend named TIM. Now when I first met TIM he was just a 
(little fella', you know, a chip off the block of silicon. Well, he has 
I put on some pounds with all the bytes he has been consuming. Now 
(there's almost nothing left to feed him. What we need for him is some 
[BASIC nutrition. If you know of even a Tiny BASIC meal for him 
[we would appreciate it. 

Thanks, and thanks for TIM. 

(John Bottoms 423 Knobloch Ave. 

(United Electronics Inst. Keffersonville IN 47130 

> 

(Note: TIM' is a Monitor for the 6502. 


I A GOOD 

ASSEMBLER PROPOSAL 

Dear Mr. Warren: June 27, 1976 

All of the implementations of Tiny BASIC have been 
excellent, and the authors of each version deserve to be con¬ 
gratulated on a job well done. I agree that it may be time to 
ease up on Tiny for a bit, and devote more space to other 
equally useful items. 

It seems to me that a really good assembler would be of 
great value to hobbyists. I am thinking primarily of an 8080 
assembler, but any machine would benefit from a good 
assembler. By "good" I mean one with most or all of the 
following features: 

1. Free-form source coding. 

2. Symbols up to 15 characters long. 

3. Symbol table assignable to tape cassette or floppy 

disc. 

4. Provision for both local and global symbols. 

5. Sophisticated macro expansion capability. 

6. Operation in either absolute or relocatable mode, 
assuming use of a suitable link editor for relocation. 

7. Optional output of object listing and/or diagnostics. 

8. Optional retention of symbol table for use in 
debugging. 

9. Automatic separation of procedural and data areas, 
to facilitate memory protection. 

10. Optional concordance and/or memory map listing. 

11. Provision for symbolic patching. 

12. Optional inclusion of kitchen sink (for bit bucket 
overflow). 

Sincerely, 

Jim Day 17042 Gunther St. 

Granada Hills CA 91344 


SUBSCRIBERS TO JOURNAL SENT A SECOND COPY OF 
JUNE/JULY ISSUE 

Our printers botched the first press run on DDJ, Vol.l 
Number 6. They used the wrong paper (poorer quality), and 
they had a bad print blanket on one of the pages. 

Before Picky Jim noticed it. Fast Tom (our super-duper 
mailer male) had processed the subscription issues and given 
them to the post office. 

So, when we received the properly printed copies, we 


RES (RESET) VECTOR -sent our subscribers a second copy. It involved 

IRU ( INTERRUPT) VECTOR some extra expense and effort for us, but 

that's the way we do tfrigs. 
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Lunar Lander for the 6502 

by Mark Garetz 


Editor's Note: Normally, we don't like to publish software 
listings that have no accompanying user documentation. In 
this case, however, we feel that (1) the program is simple, 

(2) the listing is very clearly annotated, (3) it's use is self- 
documenting during execution, and (4) it's presumption of a 
TIM or DEMON monitor simplifies I/O problems. Please let u 
know how you feel about it. 

Mark assures me that use of this program is super-simple, 
and fool-proof. He sez: 

"It requires a TIM or DEMON monitor starting at 7000H. 
TIM is available from MOS Technology. DEMON comes with 
the JOLT from Microcomputer Associates, Box 1167, 
Cupertino CA 95014; (408) 247-8940. 

After placing the program in memory, simply start 
execution at 0300H. 


ZERO PACE LOCATIONS 


00 BYTE THAT CONTAINS TIME 

01 BYTE THAT CONTAINS HEIGHT LO VALUE 

02 BYTE THAT CONTAINS HEIOIT HI VALUE 

03 NOT USED 

04 BYTE CONTAINS VELOCITY 

OS OUT OF FUEL PRINTED FLAG - TELLS PROGRAM O.O.F. HAS BEEN PRINTED 
06 FUEL REMAINING LO BYTE 

07 FUEL REMAINING HI BYTE 

08 OUT OF FUEL FLAG, IF-00, MEANS FUEL LEFT, -FF-OUT 

09 SIQI FLAG, -00 IF VELOCITY IS NEGATIVE, FF IF POSITIVE 

OA CONTAINS AMOUNT OF BURN, SET TO 00 NHEN FUEL OUT 

OB SCRATCH 1 

OC SCRATCH 2 


LUNAR 


LAN 



*7 *ee that you have quite a lot of experience with microcomputer 
design. Dr. Feetherstone ." 

Reprinted with permission of Digital Equipment Corporation. 



LOC 






0300 

JSR 

20 

8A 

72 

l 

0303 

JSR 

20 

8A 

72 


0306 

JSR 

20 

71 

06 

RESTART 

0309 

JSR 

20 

8A 

72 


030C 

LDA 

A9 

00 



030E 

STA 

85 

00 



0310 

STA 

65 

01 



0312 

STA 

85 

05 



0314 

STA 

85 

08 



0316 

STA 

85 

09 



0318 

LDA 

A9 

05 



031A 

STA 

85 

02 



031C 

LDA 

A9 

50 



03 IE 

STA 

85 

04 



0320 

LDA 

A9 

20 



0322 

STA 

85 

06 



0324 

LDA 

A9 

01 



0326 

STA 

85 

07 



0328 

JSR 

20 

8A 

72 


0328 

JSR 

20 

72 

07 

PRINT NEXT 

032E 

JSR 

20 

8A 

72 


0331 

JSR 

20 

12 

06 


0334 

BIT 

24 

08 



0336 

BPL 

10 

10 



0338 

BIT 

24 

05 



033A 

BMI 

30 

OF 



033C 

JSR 

20 

8A 

72 


033F 

JSR 

20 

31 

08 


0342 

LDA 

A9 

00 



0344 

STA 

85 

OA 



0346 

BEQ 

FO 

03 


INPUT BURN 

0348 

JSR 

20 

00 

05 

FUEL SUB 

0348 

JSR 

20 

2E 

05 


034E 

JSR 

20 

58 

05 


03S1 

LDA 

AS 

04 



0353 

BNE 

DO 

04 



0355 

LDA 

A9 

00 



0357 

STA 

85 

09 


HEIGHT 

0359 

JSR 

20 

B7 

05 


03 SC 

JSR 

20 

F7 

05 


035F 

LDA 

AS 

02 



0361 

BEQ 

FO 

03 



0363 

JMP 

4C 

2E 

03 

CHECKLO 

0366 

LDA 

A5 

01 



0368 

BEQ 

FO 

03 



036A 

JMP 

4C 

2E 

03 

DOWN 

036D 

JSR 

20 

8A 

72 


0370 

JSR 

20 

53 

08 


0373 

JSR 

20 

8A 

72 


0376 

JSR 

20 

12 

06 


0379 

JSR 

20 

8A 

72 


037C 

JSR 

20 

8A 

72 


037F 

LDA 

AS 

04 



0381 

BEQ 

FO 

14 



0383 

CMP 

C9 

03 



0385 

BCC 

90 

10 



0387 

CMP 

C9 

07 



0389 

BCC 

90 

06 



038B 

JSR 

20 

06 

09 


038E 

JMP 

4C 

9A 

03 

STRANDED 

0391 

JSR 

20 

A9 

08 


0394 

JMP 

4C 

9A 

03 

PERFECT 

0397 

JSR 

20 

71 

08 

TRY AGAIN 

039A 

JSR 

20 

8A 

72 


039D 

JSR 

20 

8A 

72 


OSAO 

JSR 

20 

43 

09 


03A3 

JSR 

20 

E9 

72 


03A6 

CMP 

C9 

59 



03A8 

BEQ 

FO 

OC 



03AA 

JSR 

20 

8A 

72 


03AD 

JSR 

20 

8A 

72 


03 BO 

JSR 

20 

9A 

09 


03B3 

JMP 

4C 

86 

70 

JMP BACK 

03 B6 

JMP 

4C 

09 

03 


D E R 


CRLF SUBROUTINE IN TIM 
AGAIN 

PRINT INSTRUCTIONS 

CRLF 

LDA W/00 

INITIALIZE TIME BYTE 
INITIALIZE HEIOfT LO BYTE 
INITIALIZE O.O.F. PRINTED FLAG 
INITIALIZE OUT OF FUEL FLAG 
INITIALIZE SIGN FLAG 
LDA W/OS 

INITIALIZE HEIGHT HI BYTE 
LDA N/SO 

INITIALIZE VELOCITY 
LDA N/20 

INITIALIZE FUEL LO BYTE 
LDA W/01 

INITIALIZE FUEL HI BYTE 
CRLF 

PRINT HEADINGS 
CRLF 

PRINT DATA LINE 

CHECK OUT OF FUEL FLAG 

IF NOT OUT OF FUEL THEN INPUT BURN 

CHECK IF O.O.F, HAS BEEN PRINTED 

YES BRANCH TO FUEL SUB 

CRLF 

PRINT OUT OF FUEL 
LDA W/00 

SET BURN BYTE TO 00 

BRANCH TO FUEL SUB, SKIP INPUT BURN 

INPUT AMOUNT TO BURN 

FIGURE FUEL REMAINING 

FIGURE NEW VELOCITY 

GET NEW VELOCITY 

VELOCITY-OO? NO, BRANCH TO HEIOfT 
YES. 

CLEAR SIGN FLAG 

FIGURE NEW HEIOFT 

INCREMENT TIME BYTE 

GET HEIGHT HI BYTE 

IF-00 GO TO CHECKLO 

IF NOT THEN GO TO PRINT NEXT 

GET HEIGHT LO BYTE 

IF-00 00 TO DOWN 

IF NOT THEN GO TO PRINT NEXT 

CRLF 

PRINT ON THE MOON 
CRLF 

PRINT FINAL DATA 

CRLF 

CRLF 

GET VELOCITY BYTE 

IF-00 BRANCH TO PERFECT 

IF NOT, COWARE TO 3 

IF VLO < 3, BRANCH TO PERFECT 

IF VLO \i, COMPARE TO 7 

IF VLO < 7, BRANCH TO STRANDED 

IF VLO X7, PRINT "CREAMED" 

JMP TO TRY AGAIN 
PRINT "STRANDED" 

JUMP TO TRY AGAIN 
PRINT "PERFECT" 

CRLF 

CRLF 

PRINT TRY AGAIN 
INPUT CHARACTER 
CHECK FOR "Y" 

IF "Y" GO TO JMPBACK 

CRLF 

CRLF 

IF NOT THEN PRINT CONTROL OUT 
RETURN CONTROL TO TIM 
JUMP TO RESTART 
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“Applications Software”-- 

Games in Pittman’s 6800 Tiny BASIC 


by Carl Kelb 

These games—Stars, Acey-Deucy, Trap, and Slot—were 


adapted from older versions to Tom Pittman's Tiny BASIC 
for the 6800. Note: A bell (control-G) was imbedded in the 
print statements for each *. 
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Low-Cost 6800 Systems Software & Games 


by Technical Systems Consultants' staff 
Box 2574, W. Lafayette IN 47906 

TSC is presently involved in the creation of products which 
are currently in high demand among computer hobbyists and 
other micro computer users. Up to this time there has been 
little or no software available for Motorola 6800 based systems 
other than Monitor programs in ROM. We have developed many 
programs both useful and fun which allow the system builder 
to utilize his creation to its fullest extent. The software list¬ 
ings which we offer implement a variety of user and system 
type functions. The programs have been written in 6800 
assembly language and assembled to run on Motorola and AMI 
6800 based systems and utilize I/O routines contained in the 
MIKBUG* monitor ROM. All references to these external 
routines are clearly marked, however, facilitating conversion to 
other I/O routines. The software listings include a fully com¬ 
mented source listing, a hexadecimal machine code dump, sample 
output, and complete instructions for use. Because software 
"bugs" are bound to occur regardless of the degree of testing 
we offer a limited warranty. This 90-day warranty is limited 
to replacement of the original software listing or providing a 
patch at the discretion of TSC. 

For those requiring the service, all of our routines can be 
assembled at a custom address or with user supplied I/O rou¬ 
tines for an extra charge. 

New products are constantly being developed by TSC. 

These include a Micro BASIC interpreter, a scientific floating 
point package, a business and accounting system, graphics 
games, and an 8080 emulator, among others. We also plan 
to offer some of our programs on "Kansas City" standard 
cassettes. Hardware items being developed and tested for 
the 6800 based system include a cassette interface system, 

A/D and D/A boards, a high speed arithmetic processor and 
other general purpose items. All of these products will be 
available when announced in our advertising. 

We can only offer what the hobbyists want, so let us 
know what your needs are in both hardware and software. 

'MIKBUG is a registered trademark of Motorola, Inc. 


1. HANGMAN: The old word guessing game. Easily modified 
with your own word list. Requires 640 Bytes. $3.25 

2. ACEY-DUCEY: A card game played against the computer. 
Bet and try to break the bankl Requires 1K Bytes. $3.25 

3. CRAPS: A real casino craps game. Match your luck 
against the computer and try to win money. Requires 

IK Bytes. $3.25 


9. RANDOM NUMBER GENERATOR: Here is a routine 

which is an absolute must for writing your own game 
programs. Requires 60 Bytes. $1.50 

10. MASTERMIND: Test your logical abilities; An in¬ 
tricate guessing game requiring both skill and logic. 

Requires 512 Bytes. $3.00 

11. CARD SHUFFLE AND DEAL: Two very useful 
routines. Includes a driver routine to print out 

4 hands of 13 cards each. Requires 512 Bytes. $2.75 

12. NUMBER GUESS I: Try to guess the number the 
computer is thinking of I Requires 256 Bytes. $1.50 

13. NUMBER GUESS II: A more advanced number 

guessing game. Requires 512 Bytes. $2.00 

14. HURKLE: Try to find the hiding Hurkle relying 

upon clues given by the computer. Requires 640 bytes $2.00 

15. ROVER: Find and catch the Rover with the aid 

of hints supplied by the computer. Requires IK Bytes. $2.50 

16. SWITCH: Correctly arrange a random stfing of digits 

in the fewest possible moves. Requires 512 Bytes. $2.00 

17. CHOMP: A 2 player game which resembles a two dimen¬ 
sional "NIM" game. Requires 512 Bytes. $2.00 

18. SUBROUTINE PACKAGE: A special package of very 

useful subroutines selected by the staff of TSC. This 
package could save you many hours when writing 
your own programs. $3.00 

••SPECIAL PACKAGE DEALS....Supplied in a 3-ring binder 

I. Contains programs 1,2,3,6,9,10 $13.50 

II. Contains programs 1,2,3,9,10,11,12,13,14,15, 

16,17 $18.95 

III. Contains programs in I and II plus 4 and 8 $29.50 

.SPECIAL ANNOUNCEMENT. 

At last there exists a valuable service to the computer hobbyist- 
THE PROGRAM OF THE MONTH CLUB- For only $2.00 you 
will get a one year membership. You will receive a monthly bul¬ 
letin describing the main selection as well as many alternates. 
Members will receive a 15% discount on the featured program. 
THERE IS NO OBLIGATION TO BUY ANYTHING! If you 
join now, you will receive free our Random Number Generator. 

[$1.00 handling charge for orders under $10. Add 5% for First 
Class Mail. Indiana Residents add 4% sales tax.] 


4. FLOATING POINT PACKAGE: Full floating point 
capability. 9 digits of accuracy with exponent range, 

-99 to +99. Four routines for add, subtract, multiply, 
and divide are all included. Requires 512 Bytes. $5.00 

5. SPACE VOYAGE: Similar to the famous STAR TREK 

with only a few limitations. Every game is a different 
adventure! Requires 4K Bytes. $10.00 

6. KLINGON CAPTURE: A smaller space simulation game, 
but, has many of the same surprises. 2K Bytes $4.75 

7. STOCKMARKET: Similar to the popular board game 

of the same name. Simulates real WALL STREET 
action. Requires 115 Bytes. $3.50 

8. LINE EDITOR: Allows you to create a file in memory 
and then completely edit it. Commands are: NEW 
ADD, INSERT, DELETE, SEARCH, LIST, MOVE, 

PRINT. Will run in only 512 Bytesl $4.00 


PITTSBURGH CLUB HAS 50 MEMBERS & GROWING 
FAST 

There is a club in Pittsburgh. It has about 50 members and 
is still growing; all sorts of machines and hardware; anybody 
in Western Pennsylvania, Eastern Ohio or West Virginia who is 
interested can write: 

Pittsburgh Area Computer Club 
400 Smithfield St. 

Pittsburgh, PA 15205 

Or Call: 

Eric Liber (Pres.) (412) 276-6546 Nite 
Fred Kitman (Treas.) (412) 391-3800 Day 
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Shooting Stars for 
Uiterwyk’s 6800 Micro-BASIC 


Dear Jim, (received July 29, 1976) 

My copy of DDJ is arriving right on schedule—and full of good 
stuff tool. Keep up the good work. To help you and/or PCC with 
that work I am enclosing a copy of my latest game program. This is a 
version of Shooting Stars (Alias Teaser). The program is written in 
Micro-BASIC as supplied in the June SWTPC 6800 newsletter. (This 
interpreter was written by Robert Uiterwyk and Bill Turner, and has 
provided me with many hours of enjoyment.) Since the Micro-BASIC 
allows only arithmetic comparisons, I have had to use a rather unusual 
method for determining which positions are stars and which are black 
holes. The interpreter and game will fit in 4K of memory if you 
remove all the REM statements (doesn't REM mean REMOVE anyway?). 
The game features a randomization of the universe at the start of the 
game to keep you from getting too complacent or bored if you have 
a good memory. 

By the way, Corvallis is in the Willimette Valley about 80 
miles south of Portland. It is the home of Oregon State University— 
which has a good computer center (with Super Star Trekl). Unfor¬ 
tunately, our town lacks a computer store at present—know anybody 
who wants to invest in a small business in a community with an active 
and growing-technically-oriented population? I'd work for a ridiculous 
wage. 

I am currently work on a text editor for my 6800 system 
which is very similar to the "classy" 8080 editor in your June/July 
issue. I still have a few commands let to program, but it is now run¬ 
ning with the INSERT, DELETE, APPEND, FIND, LIST, CLEAR, 

TOP, and NEXT commands active. I still have to get the CHANGE 
command on line. This is not too much of a problem at present 
since I use a TVT with a 32-character line—it's easy enough to change 
a whole line, so I left this one until last. Since I am using the cross- 
assembler on the computer center's CYBER system to write this 
program I may try to recoup some of my costs by selling the editor in 
an article where I can get some money for it. Rest assured that unless 
I change professions (I'm now a grad student in Oceanography), the 
source code for this and any other programs I find worth spreading 
around will be distributed at cost (mailing cost—not my development 
cost—this is a hobby, right?). 

Sincerely, 

Mark J. Borgerson 325 NW 9th, No. 3 

Corvallis OR 97330 

If you find that the other hobby mags are unwilling to publish the 
complete, annotated source code for your Editor, pass it along to us. 

We do publish useful-though-long program listings —Jim W. 


PROGRAMMING MOTES 
FOR "SHOOTING STARS" 

The game of Shooting Stars was originally published in the 
September, 1974, issue of People’s Computer Company (under the 
name of Teaser). It is well described in the May, 1976, Byte, so I'm 
not going to say much about the game itself here. The primary 
problem in writing the game in Micro-BASIC is finding a way to 
group the stars and black holes in the universe into the appropriate gal¬ 
axies. I have solved this problem using an array of nine numbers 
which are each the product of several prime factors. These are the 
values of the "F" array in the program. Each point in the universe is 
assigned a prime number value (the "S" values in the program). A pos¬ 
itive value indicates a "Star", and a negative value is a "black hole." 

The program can then check for stars and black holes with a simple 
arithmetic comparison (i.e., IF X> 0). Reversing stars and black holes 
is as simple as changing their signs. The program determines which 
stars are in a given galaxy by finding all the prime number factors of 
the "F" value for that position. The appropriate galaxy is then re¬ 
versed. The integer arithmetic of the Micro-BASIC interpreter allows 
checking for the factors of a number in the following manner: 


Suppose we have A = 3 
B = 12 

then (B/A)*A = 12/3 * 3 or 12 

But if B = 5 then (B/A)* A = 10 

because 12/5 = 2.4 and this is truncated to 2. 

This is the type of test which is performed in line 780 of the 
program. If the S value divides evenly into the F value the appropriate 
point in the galaxy is inverted. A FOR—NEXT loop checks and 
inverts the appropriate points in the complete universe. The same 
technique of checking for even division is used to print the carriage 
returns after each third point to produce a square matrix display (line 
890). 

The "S" values must be prime numbers to ensure that no extra 
factors creep into the "F" values which are the product of the 
appropriate "S" values for each galaxy. 

This program should run in any other type of Tiny BASIC 
which will handle-one-dimensioned arrays. You will have to change 
the RND statement (380, 390) to fit your random number generator. 

The RND statement in Micro-BASIC produces a random integer be¬ 
tween 1 and 32,762. Line 390 causes the starting universe to be 
biased tov\ard black holes; roughly two black holes for each star. The 
program can easily be converted to a scale basic interpreter by using 
the INT function when checking for factors. For example, line 780 
would become: 780 IF(INT(F<X)/S(K))*S(K) = FIX) LET S(K) = -S(K). 

If you're not using a TVT with cursor control, change line 840 
to a simple "print" or whatever form of page control you need. 

Good Luck I 

00100 PEM SHOOTING STARS IN 6800 MICRO-BASIC. 

00110 REM MARK BORGERSON 7-23-76 

00120 REM DESIGNED FOP SWTPC 6800 WITH TVT-1lICT-I 029>. 

00130 DIM F(9),S<9) 

00190 PEM THE FOLLOWING STEPS ENTER THE INITIAL VALUES OF THE 

00150 REM F AND S ARRAYS.CM ICPO-BASIC HAS NO DATA AND READ STATEMENTS) 

00 1 60 S CD--23 

00 1 70 S<2> — 3 

00180 SI31--I9 

00190 S<9>--11 

00200 S(5>-2 

002i0 S(6)--S 

00220 S<7>--13 

00230 SI8I--7 

00290 SI91--17 

00250 F<l)-I518 

00260 F(2)-13lI 

00270 F(3)-S70 

00280 F(9)*3289 

00290 FI51-2310 

00300 F<6)-1615 

00310 F(7)“2002 

00320 F<8)»1597 

00 3 30 F(9)■ 1190 

00390 REM INITIALIZE SHOT COUNTER 
00350 C-0 

00360 REM RANDOMIZE STAR AND BLACK HOLE PATTERN 
00370 FOP 1-1 TO 9 
00 3 8 0 X-RN0 

00390 IF X>20900 S<I> —SCI) 

0e909 NEXT I 

00910 PEM PPINT INITIAL “ATTERN 
00920 G0SUB 890 
00930 PEM GET FIRST SHOT 
00990 PRINT "YOUP. SHOT"! 

00950 INPUT X 

00 9 6 0 REM INCREMENT SHOT COUNTER 
00970 C-C*l 

00980 PEM CHECK FOP VALID SHOT 

00990 IF S(X>»0 GO TO 530 

00500 PPINT"Y0U CAM ONLY SHOOT STARS" 

00510 GO TO 990 

00520 REM INITIALIZE SCORING COUNTER 
00S30 P-0 

00590 REM INVERT(CHANGE SIGN) OF APPROPRIATE GALAXY. 

00550 G0SUB 770 

00560 REM CHECK SCORE BY ADDING STAP VALUES 
00570 FOP L-l TO 9 
00580 B-BtSCL) 

00590 NEXT L 

00600 REM PPINT OUT MODIFIED UNIVERSE 
00610 G0SNB 890 

00620 RBI IF B--100 ALL POINTS APE BLACK HOLES 

continued 
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00630 IF B--100 GO TO 690 

00690 REM IF B IS NEITHER -100 NOR 96 GAME CONTINUES < 

00650 IF n«>96 GO TO 440 < 

006 60 PRINT*0rOU HIM" 

00670 PRINT"YOU FIRED "JO” SHOTS." ' 

00680 GO TO 700 i 

00690 KtINT-YOU LOST" 

007 00 PRINT "TO PLAY AGAIN TVE ' RUN' • CR." 1 

00710 GO TO 950 { 

007 20 REM THE FOLLOWING SUBROUTINE CHECKS TO SEE IF THE F VALUE 
00730 REM FOP THE SHOT CAN BE EVENLY DIVIDED BY THE SVALUE 1 

00740 REM FOP EACH POSITION. IF S DIVIDES INTO F ’’ITHOtTT \ 

00750 REM A REMAINDER* THE STAR 0* BLACK HOLE IS INVERTED . 

00760 REM <ITS SIGN IS CHANGED) 1 

00770 FOR K-l TO 9 i 

00780 IF(F<X)/S<K>)*S<K)-F<X) S(K)—S<R> , 

00 790 NEXT K 

00800 RETUPN < 

00810 REM THIS SUBROUTINE PRINTS OUT THE GALAXY * 

00820 REM STATEMENT 9500 DOES A HOME UP AND ERASE OF SCREEN ON TVT ^ 

00830 REM EQUIPPED «ITH COMPUTER CURSOR CONTROL. i 

00840 PRINT"«CNTRL-P>«CNTPL-V>" * 

00850 FOP. J-I TO 9 

00860 IF SCJ><0 PRINT" ."I < 

00870 IF S<J>>0 PRINT" •"! * 

00880 RIM IF J ISN'T DIVISIBLE BY 3* SKIP CARRIAGE RETURNS. 

00890 IF J/3*3«»J GO TO 920 i 

900 R FBNT i 

010 RfCNT 

960 j» err j i 

030 RETTTRN < 

94C R m END OF SUBROUTINE AND GAME 

050 END < 

READY. \ 


A PL/6800 CROSS COMPILER 


Intermetrics, 701 Concord Ave., Cambridge MA 02138, is 
reported to have a PL/M-type cross compiler for the 6800. 



6800 TBX FOR FREE . . . 

BUT IT’S SOFTCOPY 

Dear Folks, 12 June 1976 

The receipt yesterday of DDJ [Vol. 1, No. 3], and the continued 
inability or unwillingness of Sphere to deliver a BASIC interpreter has 
motivated me to write you with some good news and some bad news. 

First, the good news: 

I am willing to place in the public domain a running version of 
TBX which I developed for my 6800 (Sphere) system. It contains all 
of the features of TBX as published in DDJ (Vol. 1, No. 2], including 
the DATA statement; plus REMarks, LOAD & SAVE (tape cassette 
commands), EDIT & CLEAR (CRT commands), and PRINT format¬ 
ting with a *:' for concatenation with no space. 

Now the bad news: 

My listing is in the same sort of shape as the TBX one you 
published—probably for the same reasons—i.e., hand-written on about 
55 IBM assembler coding sheets, hand-assembled into hex. 

Additionally, the code jumps about to patch locations, is CRT- 
oriented, and uses routines in the Sphere-supplied PROM monitor 
whenever possible. 

If you would be interested in publishing this, (and can scrape up 
the necessary volunteer labor to type it into your format) I will send 
you a copy of the listing plus a page or so of comments about the 
significant differences from TBX as you published it. Please let me 
know. 

Sincerely, 

Chuck Crayne 734 S. Ardmore Ave 

Los Angeles CA 90005 

Well, all you 6800 fans who have been yelling for software . . , 
How 'bout pitching in and gening some publishable~sharable hardcopy 
and documentation? —JCW, Jr. 


SINGLE-CHIP CONTROLLER FOR 6800 

Motorola has scheduled a single-chip controller for the 
6800 m-p for delivery around the second quarter of 1977. 
Designated the 6802, it will have 8K bits of ROM, 256 bits 
of RAM, and will include I/O capabilities. 


(ANOTHER) L.A. STORE: 

THE DATA CENTER 

Gentlepersons: May 13, 1976 

We are currently opening "The Data Center," another 
micro-computer store, in the Los Angeles area. 

Sincerely, 

Mel Norell 3400 Wilshire Blvd. 

General Manager Los Angeles CA 

Program ma 90010 


SPACE GAMES MARATHON (IN MENLO PARK, CA) 

The Community Computer Center, 1919 Menalto, 
Menlo Park, CA 94025, is having a computer marathon on 
August 20th and 21st. During the 24-hour period be¬ 
ginning at 9 PM, Friday evening, the Center will offer 
reduced rates for computer time ($1.20/hour), and will 
charge a one-time admission fee of 50 cents. There will 
be 25 door prizes each being an hour of free computer time 
at the Center. 

There will be for-fun (non-prize) competition for such 
things as most ships destroyed, longest time, etc. 


AMI 6800 EVALUATION KIT INCLUDES TINY BASIC 


American Microsystems, Inc., 3800 Homestead Rd., 

Santa Clara, CA 95051, is marketing a 6800 Microprocessor 
Evaluation Board. It includes the 6800 version of Tiny BASIC, 
a ROM-resident prototyping operating system, and a built-in 
EPROM programmer. In kit form with a PC (evidently with¬ 
out memory?), it is $295. With 512 bytes of EPROM, the kit 
is $595. A fully assembled kit with 2K bytes of EPROM is 
$950. 


SOMEONE COPIES 6800 TINY BASIC...AND PAYS, ANYWAY 

Tom Pittman, [Box 23189, San Jose, CA 95153] who is 
offering an excellent version of Tiny BASIC for the 6800 for 
$5, told us of receiving a five dollar payment from someone who 
said he had already copied the documentation and paper tape 
(from a friend) and was sending the payment "retroactively". 

FAR OUT! (As we used to say in the '60's). We applaud 
and encourage such actions by hobbyists. We feel Tom is 
charging a fair price for a good product. This case supports 
our theory that reasonably priced software will not be "ripped 
off" by hobbyists. 

We actively encourage the continuation of such ethical 
behavior on the part of hobbyists, relative to fairly-priced 
software. We believe that it will encourage Tom and other com¬ 
puter pros to continue to develop excellent software and offer 
it to the hobbyist community at reasonable prices. We applaud 
such action by vendors such as Processor Technology, Apple 
Computer, Southwest Texas Products, Digital Research, and 
others. 
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MINOL: TINY TREK- 

MORE DETAILS & A CORRECTION 

Dear Jim, July 12 , 1976 

If you are planning to publish the TINY TREK game, here are 
some additional details and corrections. 

Sincerely, 

Erik Mueller Britton House 

Roosevelt NJ 08555 

Too late! We have already published it in DDJ Vol. 1, No. 6. —JCW 

TINY TREK 
(written for MINOL) 

A Sample TVT screen update looks like this: 

1234567 
1 • K • 


2 K 

SECTOR 

6 5 

- Location of the Enter¬ 
prise in quadrant 

3 K K 

STARDATE 

76 

- Increases by one each 
display 

4 ■ • 

ENERGY 

231 

- Amount of energy 
(maximum = 255) 

5 B 

KLINGONS 

12 

- Number of Klingons 
left in galaxy 

6 E 

7 

CONDITION 

*RED* 

- There are Klingons in 
the galaxy 


7 UNIT HIT FROM KLINGON 
COMMAND? 

On the space printout, the "K" represents a Klingon ship; the 
a star; the "8", a starbase; and the "E", the Enterprise. 
The purpose of the game is to wipe out all the Klingons 


without the energy dropping below 60. 

COMMANDS 

1. Go to new sector (move within quadrant). The 
amount of energy used depends on the distance traveled. 

2. Go to a new quadrant. The galaxy is made up of an 
infinite amount of quadrants (such as the one above) which 
are generated when you move to them. You wll never see the 
same quadrant twice, and you have no control over where you 
go. The amount of Klingons in a quadrant is always less than 
or equal to the amount left in the galaxy. 

3. Fire phasers. You fire phasers to destroy Klingons. 

The amount of energy used depends on the distance away 
from the Enterprise. 

Traveling or firing through obstructions is OK, although 
you may not move to an occupied sector. 

Refuelling is accomplished by "orbiting" a starbase: 
Maneuver yourself to within one unit of it, and then move 
to adjacent sectors until your energy goes back up to 255. 

Corrections to listing previously sent: 

3 X=1 : A=0 : S=250 : T=250 

10 J=J+1 : IF A=W; G0T012 : IF J<8; G0T09 

16 (delete) 

13 ( 12,E- 1 *8+f+200 )=3:IF 150< 1; GOT017 

39 X=X+1 : IF X 8; G0T022 : PR : IF L<50 ; GOTO170 

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

ERRATA FOR COATS’ 

TVT-2 KEYBOARD LOADER 

Bob, 6/18/76 

I just received a copy of Dr. Dobb’s Journal Volume 1, No. 3. 

I was looking over my program on page 16 ("Keyboard Loader for 
Octal Code via the TVT-2"), and I noticed an error. The label GO 
should be at 006, and location 061 should contain 006. 

Keep up the good work. 

Jack O. Coats, Jr 213 Argonaut, No. 27 

El Paso TX 79912 
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MINOL Errata & Praise 

Dear Jim: July 5, 1976 

I have just received a letter from Joseph F. Gaffney 
listing, a zillion errors or typos in the MINOL listing. Below is 
a list of the corrections that should be made. Apparently, the 
listing has. been published. But I still haven’t received the 
issue or any issues after the third. Please check with the sub¬ 
scription department for me. * *ERRORS** (Most of them 

were pointed out by Joseph F. Gaffney, 321 Lyndhurst Ave., 
Lyndhurst NJ 07071.) 


Changes 

are underlined. 


GSM 

001106 

002345 303 013 001 


ACT 

003123 



003211 

CPI “C 


003206 312 371 003 



003317 320 315 003 



003327 016 000 

MVI C 0 


003333 312 345 003 

003375 303 134 003 

JMP, NXGT 


004043 303 134 003 

JMP, NXGT 

NXGT 

003134 

004005 176 

MOVA^M 

INPTXT 

004052 



004135 302 144 004 


CHEKN 

004155 303 057 004 
005062 

005256 312 276 005 

JMP, INO 

JZ, INU 


006027 376 243 
006353 311 

CPI “#” 

RET 


006053 322 013 001 

JC, LPBUB 


006056 303 041 001 

JMP, EXEC 


006101 302 066 006 

JNZ.SHME 

Sincerely yours, 


Erik T. Mueller 

36 Homestead Lane 
Roosevelt NJ 08555 


Thanks for the errata. Your subscription was entered 
on May 19th. Issues no. 4 and no. 5 were mailed a week and 
a half apart, about a month prior to your letter. I encourage 
you to complain to your local congressional reps (complaining 
to the Post Office appears to be useless). I also mailed an 
extra copy of the issue in which MINOL appeared, separately. 

-JCW 


Dear Mr. Warren, July 19, 1976 

Erik Mueller’s MINOL version of Tiny BASIC in the 
April issue is fantastic, and I’m really enjoying it! I relocated 
it to fit with my monitor (a modified ‘JAMON’ [MITS User’s 
Group]), and it’s running with a Model 33 Teletype. Some of 
the MINOL subroutines are useful in other programs as well, 
and are easily called (particularly useful is PRINTXT). MINOL 
is fun, certainly, but it is also very amazing (how can it be so 
smart and yet so small?). 

There were a few typographical errors which were easy 


to correct. Corrections (at the original addresses) are shown 
below. 

Address 

Was 

Change to 

001/350 

342 

242 

002/050 

274 

273 

002/346 

OMITTED 

013,001 

003/207 

271 

371 

003/317 

320 

302 

003/320 

OMITTED 

315,003 

003/327 

OMITTED 

016,000 

003/334 

OMITTED 

345,003 

004/005 

OMITTED 

176 

004/060 

OMITTED 

107 

004/137 

OMITTED 

004 

005/256 

OMITTED 

312 

005/257 

DISPLACED 

276,005 

006/353 

OMITTED 

311 


As the program stands, the processor will enter an 
endless loop if you try to divide by zero. This doesn’t hurt 
anything, but it does hang it up. To cure this, you might wish 


to add the following routine to test for division 
adds Error 7. 

i by zero. It 

Change: 

003/326 

315,000,004 

CALL DIV0 

DIV0 * MOVAB 

004/000 

170 

MOVE B TO A 

ORAA 

004/001 

267 

SET STATUS 

MOVAC 

004/002 

171 

MOVE C TO A; 
STATUS UN¬ 
AFFECTED 

MVIC 

004/003 

016,000 

CLEAR C 

RNZ 

004/005 

300 

RETURN NOT 
ZERO 

MVIB 

004/006 

006,067 

ERR ‘7’ 

JMP 

004/010 

303,226,004 

JMP ERR 


*This is my ‘relocated’ code. Any convenient locations 
will do. 


Yours truly, 

Phillip L. Hansford 6841 Haywood St. 

Tujunga CA 91042 


EUGENE STORE: 

THE REAL OREGON COMPUTER CO. 

Dear Bob, 4/26/76 

Indeed we are running a store and would love it if 
you mentioned us. The store opened May 8. 

Thanks, 

John Montgomery 205 W 10th 

The Real Oregon Computer Co. Eugene OR 97401 


NEW CLUB CONTACTS: VENTURA COUNTY 
COMPUTER SOCIETY 

VCCS is a Chapter of the Southern California Computer 
Society. Its mailing address is P.O. Box 525, Port Hueneme, 
CA 93041. For more direct responses, contact their Secretary, 
Fred Moeckel, 4240 Harbor Blvd. No.208, Oxnard, CA 93030. 
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Computer Music Bibliography 


by John Snell, Research Engineer, People's Computer Co. 

Box 310, Menlo Park CA 94025; 415 323-3111 

Digital circuits may be used for controlling analog syn¬ 
thesizers, direct digital synthesis, composing music, analyzing 
(or tracking several parameters of) traditional musical instru¬ 
ments and the voice, spacial movement of sounds, and pro¬ 
cessing of musical sounds (filtering, reverberation, choral 
effects, etc.). I hope the following list of articles and books 
will help some of you to develop systems which are capable 
of making music enjoyable even by master musicians. This 
list is relatively short, and includes only a "taste" of relevant 
topics not specifically about digital music. For a more compre¬ 
hensive, well-organized listing see the bibliography from 
Electronotes (a fine electronic music periodical edited by 
Bernie Hutchins). 

J. Allen, "Computer Architecture for Signal Processing," 

IEEE. Vol. 63, No. 4; April, 1975. 

W. Apel, Havard Dictionary of Music, Halliday Lithograph, 1969. 

J. Backus, The Acoustical Foundations of Music, W.W. Norton, 

1969. 

J.K. Baker, "The DRAGON System—An Overview," IEEE, Vol. 
ASSP-23, No. 1; Feb., 1975. 

S.C. Bass, and B.J. Leon, "Designers' Guide to Digital Filters," 
EDN, Jan. - June, 1974 (6 issues). 

J.W. Beauchamp & H. Von Foerster, editors. Music by 
Computer, Wiley, 1969. 

J.W. Beauchamp, "Analysis and Synthesis of Cornet Tones 
Using Nonlinear Interharmonic Relationships," JAES, Vol. 23, No. 10; 
1975. 

J.W. Beauchamp, "A Computer System for Time-Vafiant Har¬ 
monic Analysis and Synthesis of Musical Tones," Music by Computers, 
1969. 

J.W. Beauchamp, "Additive Synthesis of Hermonic Musical Tones" 
JAES, Vol. 14, No. 4, p. 332; 1966. 

L. Beranek, "Digital Synthesis of Speech and Music," IEEE 
Transactions on Audio, Vol. AU-18, No. 4; Dec., 1970. 

S. Bertram, "Frequency Analysis Using the Discrete Fourier 
Transform," IEEE Transactions on Audio and Electroacoustics, Vol. 
AU-18, No. 4; Dec., 1970. 

8.A. Blesser, K. Baeder, & R. Zaorski, "A Real-Time Digital 
Computer for Simulating Audio Systems," JAES, Vol. 23, No. 9, 
p. 698; 1975. 

B.A. Blesser, "An Investigation of Quantization Noise," JAES, 

Vol. 22, No. 1, p. 20; 1974. 

B.A. Blesser, & F. Lee, "An Audio Delay System Using 
Digital Technology," JAES, Vol. 19. No. 5, p. 393; May, 1971. 

E. Blom, editor. Grove's Dictionary of Music and Musicians, 

St. Martin's Press. 

D. Bohn, editor. Audio Handbook, National Semiconductor 
Corp., Santa Clara, Cal.; 1976. 

R.W. Burhams, "Digital Tone Synthesis," JAES, Vol. 19, 

No. 8; Sept., 1971. 

R.W. Burhams, "Single-Bus Keyboard Control for Digital 
Musical Instruments," JAES, Vol. 19, No. 10, p. 865; Nov., 1971. 

R.W. Burhams, "Simplified Educational Music Synthesizer," 

JAES, Vol. 19, No. 2, p. 127; Feb., 1971. 

R.P. Ceely, "A Composer's View of MITSYN," AES Preprint 
No. 811 (M-l ), Oct., 1971. 

H. Chamberlin, "Fourier Series Waveform Generator, Part 1," 

EN, Vol. 5, No. 39, p. 2; May, 1974. 

J.M. Chowning, J.M. Grey, L. Rush, & J.A. Moorer, Computer 
Simulation of Music instrument Tones in Reverberant Environments, 
Stanford University Dept, of Music Report No. STAN-M-1; June, 1974. 

J.M. Chowning, 'The Simulation of Moving Sound Sources," 
JAES, Vol. 19, No. 1, p. 2; Jan., 1971. 

J.M. Chowning, 'The Synthesis of Complex Audio Spectra by 
Means of Frequency Modulation," JAES, Vol. 21, No. 7, p. 526; 

Sept., 1973. 

J.M. Chowning, "Stanford Computer Music Project," NW, 

No. 1; 1972. 


W. Cochran, J. Cooley, D. Favin, H. Helms, R. Kaenel, W. Lang, 
G. Mating Jr., D. Nelson, C. Rader, P. Welch, "What is the Fast 
Fourier Transform," IEEE, Vol. 55, No. 10, p. 1664; Oct., 1967 

R. Crochiere, & P. Penfield, Jr., "On the Efficient Design of 
Bandpass Digital Filter Structures," IEEE, Vol. ASSP-23; 1975. 

M. G. Crosby, "Carrier and Side-Frequency Relations with 
Multi-Tone Frequency or Phase Modulation," RCA Review, Vol. 3; 

1938. 

D.R. Curtis, "A Monolithic Voltage-Controlled Amplifier 
Employing Log-Antilog Techniques," JAES, Vol. 24, No. 2; 

March, 1976. 

D. De Kold, "Binary Division Produces Harmonic Fre¬ 
quencies," Electronics, Dec., 1972. 

J.L. Divilbliss, 'The Real-Time Generation of Music with a 
Digital Computer," JMT, No. 8, p. 99; 1964. 

J. Dubnowski, R. Schafer, & L.R. Rabiner, "Real-Time Digital 
Hardware Pitch Detector, IEEE, Vol. ASSP-24, No. 1; Feb., 1976. 

J.L. Flanagan & L.R. Rabiner, editors. Speech Synthesis, 

Dowden, Hutchinson, & Ross; 1973. 

Aw Forte, Tonal Harmony in Concept and Practice, Holt, 

Rinehart, & Winston; 1962. 

N. V. Franssen & L. Van der Peet, "Digital Tone Generation 
for a Transposing Keyboard Instrument," Philips Tech. Rev., 

No. 31, p. 354; 1970. 

M.D. Freedman, ‘Technique for Analysis of Musical Instrument 
Tones," Ph.D. dissertation. University of Illinois, Urbana; 1965. 

M.D. Freedman, "Analysis of Musical Instrument Tones," 

JASA, No. 41, p. 793; 1967. 

M.D. Freedman, "A Method for Analyzing Musical Tones," 

JAES, Vol. 16, No. 4, p. 419; Oct., 1968. 

S. Freeny, "Special-Purpose Hardware for Digital filtering," 

IEEE, Vol. 63, No. 4; April, 1975. 

R. Gtbel, "A Parallel Arithmetic Hardware Structure for Re¬ 
cursive Digital Filtering," IEEE, Vol. ASSP-22; Aug., 1974. 

J. Gabura & G. Ciamaga, "Computer Control of Sound 
Apparatus for Electronic Music," AES preprint No. 520; 1967. 

S. Gill, "A Technique for the Composition of Music in a 
Computer," Computer Journal, Vol. 6, No. 2, p. 129; July, 1963. 

J. M. Grey, An Exploration of Musical Timbre, Stanford Univer¬ 
sity Dept of Music Report No. STAN-M-2; Feb., 1975. 

P. Grogono, "MUSYS: Software for an Electronic Music Studio," 
Software—Practice and Experience, No. 3, p. 369; 1973. 

H.L.F. Helmholtz, On the Sensations of Tone as a Physiological 
Basis for the Theory of Music, translation-originally written in 
German in 1863—and additions by A.J. Ellis, Dover, N.Y.; 1954. 

W. Henke, Multiple Interactive Tone Synthesis System, 

Research Laboratory of Electronics, M.I.T.; Oct., 1971. 

L. Hiller & L. Isaacson, "Musical Composition with a High- 
Speed Digital Computer," JAES, Vol. 6, p. 154; July, 1958. 

L. Hiller, "Computer Music," Scientific American, p. 109; 

Dec., 1959. 

L. Hiller, "A Review of Decca Recording DL-9103, 'Music 
from Mathematics'," IEEE, Vol. 51, No. 3, p. 538; March, 1963. 

L. Hiller, "Musical Applications of Electronic Digital Com¬ 
puters," Gravesano Review, pp. 26-28; Nov., 1965. 

C. Hovey & D. Seamans, "A Polyphonic Keyboard for a 
Voltage-Controlled Music Synthesizer," JAES, Vol. 23, No. 6, p. 459; 
1975. 

K. Huehne, "Programmable ROM’s Offer a Digital Approach to 
Waveform Synthesis," EDN, Aug., 1972. 

B. Hutchins, "B-004 Sourcelist of Electronic Music and Musical 
Engineering," EN, 1975. 

B. Hutchins, Musical Engineer’s Handbook, (EN address) 1975. 

B. Hutchins, ‘The Frequency Modulation Spectrum of an 
Exponential Voltage-Controlled Oscillator," JAES, Vol. 23, No. 3, 
p. 200; 1975. 

B. Hutchins, "Application of a Real-Time Hadamard Transform 
Network to Sound Synthesis," JAES, Vol. 23, No. 7, p. 558; 1975. 

B. Hutchins, "Digital Harmonics 1, Waveshaping 2," EN, Vol. 2, 
No. 12, p. 5; Sept., 1972. 

B. Hutchins, T. Mintner, & C. Anderton, "Digital Harmonics 2," 
EN, Vol. 2, No. 13, p. 12; Oct. 1972. 

B. Hutchins, "Analog Delay for Musical Engineering," EN, Vol. 7, 
No. 56; Aug., 1975. 
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IEEE, Vol. 63, No. 4, special issue on digital signal 
processing; April, 1975. 

F. Itakura, & S. Saito, "Digital Filtering Techniques for Speech 
Analysis and Synthesis," in Conf. Rec., 7th Int. Congr. Acoustics, 

Paper 25C No. 1; 1971. 

Ey. Jansson, & J. Sundberg, "Long-Time-Average-Spectra 
Applied to Analysis of Music," Acustica, Vol. 34, No. 1; Nov., 1975. 

L. EJ.W. Jolley, Summation of Series, Dover, N.Y.; 1961. 

P. Knowlton, "Capture and Display of Keyboard Music," 

Datamation, P. 56; May, 1972. 

S. Kriz, - "A 16-Bit A-D-A Conversion System for High Fidelity 
Audio Research," itEE Symposium on Speech Recognition, p. 278; 
April, 1974. 

P. Lehman, "Harmonic Structure of the Tone of the Bassoon," 
JASA, Vol. 36, No. 9, p. 1649; Sept., 1964. 

V. Lesser, D. Fennell, L. Erman, & R. Reddy, "Organization of 
Hearsay II Speech Understanding System," IEEE, Vol. ASSP-23, No. 1; 
Feb., 1975. 

T. Letowski, "Difference Limen for Nonlinear Distortion in 

Sine Signals and Musical Sounds," Acustica, Vol. 34, No. 2; Dec., 1975. 

H. Lincoln, editor. The Computer and Music, Cornell 
University Press; 1970. 

J. Link, Theory and Tuning: Aron’s Meantone Temperament 
and Marpsurg’s Temperatment “/" Tuners Supply Co., Boston; 1969. 

B. Lin, & A. Peled, "A New Hardware Realization of High 
Speed Fast Fourier Transformers," IEEE, Vol. ASSP-23, No. 6; 

Dec., 1975. 

H.C. Longuet-Higgins, & M.J. Steedman, On Interpreting Bach 
in Machine Intelligence VI; B. Meltzer, & D. Michie, editors, 

Edinburgh University Press, Edinburgh; p. 221; 1971. 

D. Luce, "Description of a Real-Time Multipartial Waveform 
Analyzer-Synthesizer," AES preprint No. 611; 1968. 

D. Luce, "Dynamic Spectrum Changes of Orchestral Instru¬ 
ments," JAES, Vol. 23, No. 7; 1975. 

D. Luce, 8t M. Clark, "Physical Correlates of Brass Instrument 
Tones," JASA, Vol. 42, p. 1232; 1967. 

M. Mathews, The Technology of Computer Music, M.l.T. Press, 
Boston; 1969. 

M. Mathews, et. al., "Computers and Future Music," Science, 

Vol. 183, No. 4122; Jan. 25, 1974. 

N. Mathews, 'The Digital Computer as a Musical Instrument," 
Science, Vol. 142, p. 553; 1963. 

M. Mathews, & J. Kohut, "Electronic Simulation of Violin 
Resonances," JASA, No. 53, p. 1620; 1973. 

C. A. McGonegal, L.R. Rabiner, & A.E. Rosenberg, "A Semi¬ 
automatic Pitch Detector," IEEE, Vol. ASSP-23, No. 6; Dec., 1975. 

N. J. Miller, "Filtering of Singing Voice Signal from Noise by 
Synthesis," Ph.D. thesis; University of Utah, Dept, of Computer 
Science; May, 1973. 

NJ. Miller, "Pitch Detection bv Data Reduction," IEEE, Vol. 
ASSP-23, No. 1, pp. 72-78; Feb., 1975. 

F. R. Moore, & M. Mathews, "Grove—A Computer Program for 
Real-Time Music and Sound Synthesis," Communications of the ACM, 
Vol. 13, No. 12; Dec., 1970. 

J.A. Moorer, 'The Optimum Comb Method of Pitch Period 
Analysis of Continuous Digitized Speech," IEEE, Vol. ASSP-22, No. 5, 
p. 330; Oct., 1974. 

J.A. Moorer, "Music and Computer Composition," Communica¬ 
tions of the ACM, Vol. 15, No. 2; Feb., 1972. 

J.A. Moorer, On the Segmentation and Analysis of Continuous 
Musical Sound by Digital Computer, Stanford University Dept, of 
Music Report No. STAN-M-3; May, 1975. 

J.A. Moorer, The Synthesis of Complex Audio Spectra by 
Means of Discrete Summation Formulae, Stanford University Dept, of 
Music Report No. STAN-M-5; Dec., 1975. 

J.A. Moorer, On the Loudness of Complex Time-Variant Tones, 
Stanford University Dept, of Music Report No. STAN-M-4; Feb., 1975. 

NUMUS West, No. 4; 1973. (computer music issue) 

T.H. O’Beirne, "Computer Program Which Plays Music by Micro¬ 
tones," Computer Journal, Vol. 13, No. 4, p. 350; 1970. 

A.V. Oppenhfim, 8t R.W. Schafer, Digital Signal Processing, 
Prentice Hall; 1975. 

W. Piston, Counterpoint, W.W. Norton Publishers. 

W. Piston, Orchestration, W.W. Norton Publishers. 

G. Plitnik, & W. Strong, "Digital Filter Technique for Syn¬ 
thesis of Bassoon Tones," JASA, No. 47, p. 131; 1970. 

R. Plomp, 'Timbre as a Multidimensional Attribute of Complex 
Tones," Frequency Analysis and Periodicity Detection in Hearing, 
adited by R. Plomp & G.F. Smoorenburg; A.W. Sijthoff, Leiden; 1970. 


L. Rabiner & B. Gold, Theory and Applications of Digital 
Signal Processing, Prentice-Hall, N.J.; 1975. 

L. Rabiner & C. Rader, editors. Digital Signal Processing, 

IEEE Press; 1972. 

J.C. Risset 8i M. Mathews, "Analysis of Musical Instrument 
Tones," Physics Today, Vol. 22, No. 2, p. 23; 1969. 

J.C. Risset, "Computer Study of Trumpet Tones," Bell Tele¬ 
phone Lab, Murray Hill, N.J.; 1966. 

P. Samson, "Digital Signal Synthesizer," Systems Concepts, 

San Francisco, Cal. 

P. Samson, "Digital Synthesizer—Brief Functional Description," 
Systems Concepts, San Francisco, Cal. 

P. Samson, "Digital Synthesizer—Programming Specifications," 
Systems Concepts, San Francisco, Cal. 

S. Saunders, "FM The Easy Way," Carnegie Mellon University 
Computer Science Dept & Xerox PARC; 1974. 

R.A. Schaefer, "Digital Generation of Equal Temperament," 
IEEE, Vol. AASP-23, No. 4; Aug., 1975. 

M. Schroeder, "Natural Sounding Artificial Reverberation, 

JAES, Vol. 10, p. 219; 1962. 

M. Schroeder, "Models of Hearing," IEEE, Vol. 63, No. 9; 

Sept., 1975. 

R. Schumacher, "Self-Sustained Musical Oscillators," paper 
delivered at the 91st meeting of the Acoustical Society of 
America; April, 1976. 

J. Sennott, "Efficient Digital Conversion of Audio Signals," 

AES preprint No. 970 (M-4); Sept., 1974. 

W. Slawson, Syntal II; A Speech Oriented Computer Synthesizer 
Revisited, Dept, of Music, University of Pittsburgh, Pa. 

W. Slawson, "Vowel Quality and Musical Timbre as Functions 
of Spectrum Envelope and Fundamental Frequency," JASA, 

No. 43, p. 87; 1908. 

G.W. Small, "Synthesis of the Musical Scale Using Non-integer 
Frequency Division," JAES, Vol. 21, No. 4, p. 261; May, 1973. 

G.W. Small, "Rate-Feedback Binary Counters in Musical Scale 
Generation," JAES, Vol. 21, No. 9, p. 702; Nov., 1973. 

L. Smith, "Score—A Musician's Approach to Computer Music," 
JAES, Vol. 20, No. 1; Jan./Feb., 1972. 

L. Smith, "Editing and Printing Music by Computer," JMT, 
p. 292; Fall, 1973. 

S. Smith, "Computer Music in 1972," Computers and Automa¬ 
tion, Oct., 1972. 

G. Steinke, "Experimental Music with the Subharchord Subhar¬ 
monic Sound Generator," JAES, Vol. 14, No. 2, p. 140; April, 1966. 

S. S. Stevens & H. Davis, Hearing—Its Psychology and Physiology, 
Wiley, N.Y.; 1938. 

T. G. Stockham, Jr., "A-D and D-A Converters: Their Effect on 
Digital Audio Fidelity," AES Preprint No. 834 (D-1), Oct., 1971. 

W. Strong & M. Clark, "Synthesis of Wind-Instrument Tones," 
JASA, Vol. 41, p. 39; 1967. 

W. Strong, 8> M. Clark, "Perturbations of Synthetic Orchestral 
Wind-Instrument Tones," JASA, No. 41, p. 277; 1967. 

R. Talambiras, "Digital-to-Analog Converters: Some Problems in 
Producing High Fidelity Systems," Computer Design, Vol. 15, No. 1, 
p. 63; Jan., 1976. 

J.C. Tenny, "Sound Generation by Means of a Digital Com¬ 
puter," JMT, No. 7, p. 24; 1963. 

H. M. Tremaine, Audio Cyclopedia, Sams, N.Y.; 1969. 

D.E. Walker, 'The SRI Speech Understanding System," IEEE, 
Vol. ASSP-23, No. 5, Oct., 1975. 

L. Wedin & G. Goude, "Dimensional Analysis of the Perception 
of Instrumental Timbre," Scand. Jour. Psych., No. 13, P. 228; 1972. 

S. White, "On Mechanization of Vector Multiplication," IEEE, 
Vol. 63, No. 4; April, 1975. 

T. Winograd, "Linguistics and the Computer Analysis of Tonal 
Harmony," JMT, Vol. 12, No. 1/p. 2; 1968. 

J. Zingheim, "Introduction to Computer Music Techniques," 

EN, Vol. 6, No. 42, p. 1; Aug., 1974. 


ABBREVIATIONS USED, AND ADDRESSES 

ACM Association for Computing Machinery 

Acustica, S. Hirzel, Stuttgart 1, Birkenwaldstr, 44, 
Postfach 347, Germany. 

AES Audio Engineering Society 

ASSP IEEE Transactions on Acoustics Speech and 

Signal Processing 
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Communications of the ACM 

1133 Avenue of the Americas, NYC 10036 

Computer Design 

Box A, Winchester MA 01890 

Computer Journal 
British Computer Society 
29 Portland Place 
London, England WIN 4AP 

Computers and Automation [now called Computers 
and People] 

Berkeley Enterprises, Inc. 

815 Washington St, Newtonville MA 02160 
Datamation 

Technical Publishing Co. 

1301 South Grove Ave., Barrington IL 60010 

ED Electronic Design 

50 Essex St., Rochell Park NJ 07662 
EDN EDN Magazine 

270 St. Paul St., Denver CO 80206 

EN Electronotes 

203 Snyder Hill Rd„ Ithaca NY 14850 

IEEE Institute of Electrical and Electronics Engineers 

345 E 47 St., NYC 10017 

JAES Journal of the Audio Engineering Society 
60 E 42 St 

Lincoln Big, Room 929 
NYC 10017 

JASA Journal of the Acoustical Society of America 

American Institute of Physics 
335 E 45 St., NYC 10017 

JMT Journal of Music Theory 

Yale School of Music 
Yale University 
New Haven CT 06520 

NW NUMUS West 

Box 135, Mercer Island WA 98040 

Perspectives of New Music 
Box 231, Princeton NJ 08540 

Science 

American Association for the Advancement of Science 
1515 Massachusetts Ave. N.W. 

Washington DC 20005 

Scientific American 
415 Madison Ave., NYC 10017 


AMBIGUITY ABOUT ADVERTISING 

The "Do You..." editorial in the preceeding issue men¬ 
tioned the fact that we don't accept commercial advertising. 
This was in apparent contradiction to the "Advertising" note 
printed inside the front cover, as well as to the obvious fact 
that we carry articles about commercial products. To clarify 
this point: 

The "Advertising" policy inside the front cover has been 
corrected to reflect our current position. The preceeding 
policy was a tentative one, chosen when we first began. 

We had been automatically reprinting that information in each 
issue and neglected to note that it was inaccurate (blush). 

We do, and will continue to, carry articles about 
commercial products and services. We are not paid for 
this, however. It is provided as information for our readers. 
These articles often concern items that are unusually good 
deals for hobbyists (and thus worth special mention), or 
items being offered by very small companies that are too 
small to afford the hefty advertising rates charged by the 
other publications. 

Incidentally, you might note that we try to include ad¬ 
dress, telephone, and single unit pricing in these articles 
(when we know them); information often missing from 
paid-for advertisements. 


IT WAS NOT 
A “POLISH JOKE” 

There was a "digital calculator" cartoon on page 18 of the 
April, 1976, issue of DDJ that included text: "Made in Hong Kong . . . 
Polish versions also available." Our production manager, who is an 
outstanding publications production person but not a computer 
phreaque, questioned our including a cartoon with an apparent racial 
slur. We explained the rather in-group pun that was involved, and put 
his mind at rest. It occurred to us that, although no one else has com¬ 
mented on the cartoon, it might be appropriate to explain the pun: 

Handheld calculators use either infix or postfix processing for 
accepting a sequence of data and arithmetic operators. If infix pro¬ 
cessing is used, there must be some explicit means for indicating the 
sequence in which operations are to be performed. Commonly, paren¬ 
theses are used (e.g., 3 x (4 + 5) indicates that the + at the right is 
to be performed before the x at the left). 

Postfix processing, however, is a very classy parentheses-free 
system in which the order of data and operator entry determines the 
order of operations (e.g., 4 5 + 3 x produces the same result as the 
preceeding infix-coded example). The latter example says, Store 4 then 
Store 5 then Add last two elements stored and store the result then 
Store 3 then Multiply the last two elements stored. Postfix processing 
is one of the major concepts utilized in information processing by 
digital computers. It possibly rivals the concept of an electrically 
stored program, or the application of Boolean algebra to digital 
circuitry in its importance to computers. 

Why all this monologue on postfix processing? Because, more 
often than not, computer professionals refer to this as "Polish postfix" 
or simply "Polish" processing. It is so-named because its inventor was 
a Polish logician named Lukasiewicz. So, you see, if anything, the 
cartoon's pun was really a racial compliment. 



CLASSROOM USE OF HAND-HELD CALCULATORS 


The November 1976 issue of the ARITHMETIC TEACHER, 
published by the National Council of Teachers of Mathematics, will 
focus on instructional uses of hand-held calculators. Copies of this 
issue will be available for distribution at a special price of 50 cents 
each under the following conditions: 

1) . The minimum order is 100 copies. 

2) . All 100 copies must be sent to a single address. 

3) . Orders must be in the NCTM Headquarters Office by 

31 August 1976. 

4) . NCTM will pay the shipping charges if full payment is 

received with the order. 


To place an order, or for further information, contact Charles 
R. Hucka, Director of Publications Services, NCTM, 1906 Association 
Drive, Reston, Virginia 22091, or call (703) 620-9840. 



REPORT ON ELECTRONIC HAND CALCULATORS IN EDUCATION 


The body of the Final Report on the National Science Foundation 
supported project, "Electronic Hand Calculators: The Implications for 
Pre-College Education," is now available from the ERIC Information 
Analysis Center for Science, Mathematics, and Environmental Education, 
1200 Chambers Road, The Ohio State University, Columbus, OH 43212. 
The 350-page complete Final Report will be available later in 1976 from 

DON’T PRINT ITEMS IN DDJ 
THAT APPEAR ELSEWHERE 

Dear Dr. Dobb, 

Please concentrate on infromation not available elsewhere—if 
PCC moves toward "blue sky," DDJ should move toward practicality: 
Draw a sharp line and find out what your readers really want. MOST 
OF ALL: don:t waste space on something that has already been 
printed nationally—we have that. 

James R. Zimmerman 7835 Querida Lane 

Dallas TX 75248 


August, 1976 
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SMRT Will Hurt 

by Leroy Finkel 

(reprinted from PCC Vol. 4, No. 6) 




EDITOR’S NOTE: In general, we are trying to avoid duplicating 
articles in PCC and DDJ, since our subscribers overlap. This 
information is sufficiently important, however, that we believe 
it warrants as widespread publicity as possible. 

We believe that in and for the foreseeable future, home com¬ 
puter users will need use of the phone system. They will need 
it, not for traditional time-sharing, but for accessing large data¬ 
bases with their personal computers. 

Since the phone system is the only public carrier that is 
reasonably available to home computer users, a government- 
licensed monopoly, it behooves us to assure that it meets our 
needs with reasonable economy. 

On July 1, 1976 Pacific Telephone will implement a new phone 
tariff in major cities in California, on all business telephone service, 
called Single Message Rate Timing. SMRT, as it is known, will 
assess a supercharge of approximately 1 cent per minute on all 
calls over five minutes. That means that the dial-up, time-sharing 
setup that you presently enjoy for a cost of $7.50 a month, or 
thereabouts, to make local computer calls could increase to as much 
as $80 a month, based on a 6-hour day usage. HELP! 

SMRT has come to California. How long will it be before it ZAP’s 
you? How does SMRT work? For any call that exceeds 5 minutes 
a one message unit supercharge will be added to the bill for each 
5 minutes after the first five minutes. Since one message unit 
currently costs Californians 5.75 cents, that means that a previously 
"free" 30 minute call will cost 28.75 cents under SMRT; a sixty 
minute call, 63.25 cents. Projecting hours into days, a school that 
uses dial-up service for 3 hours a day, 20 days a month can expect 
additional phone charges of $36.00 each month; a six hour day, 

$72.00 for EACH TERMINAL IN OPERATION. Can your budget 
afford that? 

The affects of SMRT could make you reconsider your 
hardware acquisition, location and use decisions. 

SMRT makes local microprocessors in each school look 
like a real wise decision. Think about it! 

In our area, the phone company has computer printouts projecting 
the implications of SMRT on your bill. Ask to see this information, 
it is scary. In all honesty, I must admit that this is one new phone 
charge that does make sense. Those of us that use dial-up service for 
computer data, all day long, are not using the equipment “as intended.” 
Therefore, we ‘tie-up’ valuable equipment for long periods without 
paying our fair share of the costs. SMRT will even all this out.... 
and then some! 

THINGS TO DO 

There are many things you can do to avoid or minimize the affects of SMRT. 

Your greatest problem will be getting all the right answers to your questions 
(We have not provided all the answers, just some suggestions.) 

CAVEAT EMPTOR. Do not expect to get all the “right” 
answers from the local phone company staff. They provide 
a limited array of services in the area of data communications. 

The right solution for you may not be in their array. You 
must ask Telco competitors about services they offer that fill 
the void of services provided by Telco. 


FIGURE 1 


Your present phone-terminal-to-computer link probably like that shown 
in Fig. 1. Local costs will vary, but generally our costs break down like this: 

At Terminal site - Dial-up business line $7.50/month 

At Computer site-Business phone line(not shown 7.50 
Data Access Arrangement(DAA) 5.50 

Phone costs per terminal 20.50/month 

Add modem and acoustic coupler rental ($15@) 30.00 
(may be purchased for $300 each) 

Total communications costs per terminal $50.50/month 

This is the type of configuration that SMRT will really hurt. But, such 
a dial-up system has some real advantages to the user: Terminals can be used 
from any location where there is a standard dial-up telephone(home included); 
you can ‘oversubscribe’ your system and users schedule themselves or compete 
for open phone lines. 

Alternative No. 1 Probably the cheapest way to change your phone set-up 
to minimize the affects of SMRT is to convert all outside phone lines to run 
through your school or district PBX switchboard, (assuming you have one.) 

If you do not have a PBX, now may be the time for the school system to get 
one. Such a move should greatly reduce your normal monthly phone charges 
and because the system is “internal” via the PBX, no SMRT charges will be 
added to your bill. Schools can be located anywhere. SMRT charges are avoided 
as long as everything runs through the PBX. Flexibility continues as before. 

The only problem we have discovered is that there may not by space on your 
PBX to accomodate additional lines. Each computer line requires TWO PBX 
extensions (one at computer, one at the terminal). But do check this 
alternative out. We can’t estimate how much, but can guarantee you sub¬ 
stantial dollar savings. 

Alternative No. 2. The phone company will likely suggest a Lease Line running 
from each terminal directly to the computer (picture a pair of wires running 
directly between the two sites). Lease lines are charged a fixed monthly fee 
for 24 hour usage that is based on distance from point to point. For the 
short distances we needed (no more than 12 miles), lease line costs ranged 
from $14 to $42 per month per terminal. Add to this a Telco modem at each 
end for $50/month (No DAA needed). 

Lease lines avoid SMRT costs, and, depending on distances, should save 
you substantial money. However, you lose the flexibility of dial-up from any 
phone and it is unclear how you can “oversubscribe” a lease line communication 
system. 

Alternative No. 3. Instead of using two Telco modems for $50/month, you can use 
lease lines as suggested in Alternative 2 but buy or lease modems from a company 
other than the phone company. Such modems may cost as little as $200 each and 
may lease for as little as $25 /month (for both). If you already own modems and 
acoustic couplers as part of a dial-up system, your present equipment MAY be 
usable with lease lines. Some will not be usable on lease lines. Contact 
your equipment supplier to see if your hardware is convertible for use on lease 
lines. We found our equipment was usable after a minor field modification 
made to our connecting cables. 

Alternative No. 4 In the long run, the least-cost method to provide for 
multiple terminals at one site is to connect ONE phone lease line between computer 
and terminal site. (Fig.3) To this one line you connect all your terminals (19 
teletypes,claims one firm- 12 is more real) - using a special modem called a Frequency 
Division Multiplexer (FDM). The FDM allows multiple terminals to share one 
phone line by varying the frequency at which the data is transmitted. Teletypes 
at 10 CPS and 30 CPS terminals can share the same line via the FDM’s. At 
each terminal you need an FDM with another FDM at the computer end to 
“unscramble” the data. The FDM units cost about $450 each, more than the 
standard lease line modems. But you only need one phone line. Therefore, your 
initial cash outlay may be greater, but in the long run you will save money be¬ 
cause phone costs are reduced dramatically. 

Terminals can even be located in different classrooms using FDM’s. There is even 
the possibility of using ONE lease line connecting a number of schools and a 
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FIGURE 3 


number of terminals. Technicians clam this Multi-Point lease line is not any 
more of a problem from a maintenance standpoint than a single point-to-point 
set-up. Thus, more phone money can be saved. 

FDM capability is NOT available from the phone company at this time. Don’t 
expect them to respond too warmly to your questions about this effective way 
to share lease lines and save money. 

So now what? If this article serves no other purpose than to confuse you, we have 
accomplished something! Data communications has to be the most confusing 
topic we have investigated. Each call we made raised new confusion and new 
questions. Each “situation” at each new terminal site created a new set of 
problems, with a whole new set of answers. 

What is the answer? It all depends on 

Where you are in the greater US 
Your computer 

What equipment you already own 
how much money you have 

Should you spend big money NOW to saVe big money later 
Should you spend less money now and have a 
bigger phone bill forever... 

and 


SOLID STATE SALES 
SLIPS ORDER FOR 9 MONTHS 

Dear Editor, April 3, 1976 

I think it is worth telling about one supplier who is 
very remiss. I sent an order to Solid State Sales last July, for 
about $70 worth of electronic components. They sent roughly 
a third and backordered the rest. When October came and I 
had not received the balance I wrote them, with no reply 
received. My reminder in Decmeber brought a promise of 4-5 
weeks delivery. When that passed I wrote again, in March. I 
have just received another promise of 4-6 weeks delivery. They 
have now had my money for nine months-l think maybe they 
ought to start paying interest. At any rate, if they can't 
supply the stuff they ought not to send out those enticing 
advertisements. 

5009 Guide Meridian 
Bellingham WA 98225 
206 734-9424 


Kendall Stambaugh 


oooooooooooooooooooooooooooooooooo 

SAN FRANCISCO COMPUTER STORE OPENS 

The Computer Store of San Francisco, affiliated with 
Byte, Inc., opened its doors for business in the second week 
of July. It is located at 1093 Mission Street; (415) 431-0640. 


It used to be fun 
To add one and one. 

But it's no longer plain 
What result to obtain 
They say it could even be none. 

-unknown 

ooooooooooooooooooooo 

SOURCES OF 

ENERGY SOFTWARE SOUGHT 

Dear Dr. Dobb, 

I am trying to combine low cost computers, and alter¬ 
native sources of energy. As a start, I'm collecting programs 
about energy use. Any programs or ideas, in any language, 
that readers could donate would be appreciated. If I get 
enough of a response, these will form the basis for a book. 

Possible topics: Solar Parabolic Reflectors, Windmill 
Design, Thermal Loss, and Storage; Units Conversion (BTU, 
KW-HR), Battery Charge and Discharge, Flywheel Momentum, 
etc. 

Keep up the good words. 

Rich Roth 1052 Clark Ave 

Mountain View 

ooooooooooooo CA 94040 

| A COMMENT ON THE DIGITAL GROUP 

I Dear Dr. Dobb (alias Jim Warren?) July 15, 1976 

I have (had?) a Digital Group 8080 system, which after 
being built didn't work quite right, and I had to send it back 
) for de-bugging. It didn't care to read in the cassette tape, an 
initialization process needed to give it life. The still-born has 
| been away for a month now, with no word from the doctor 
'yet (it's under the care of Dr. Sudding and his staff - very 
(competent I understand), but we're very hopeful. 

Your journal and concept is the best. I have the D.G.'s 
version of TBX-TVCOS and would dearly love to see it run, 
ibut alas, (sob) I wait.... 


(Christopher Hovey 


ESD/OC 
San Fran.APO 
CA 96369 


oooooooooooooooooooooooooooooooooo 

BAD SERVICE REPORT 
ABOUT THE DIGITAL GROUP 

Dear PCC, June 30* 1976 

Beginning to get bad vibes from The Digital Group. 
Purchased their television character generator cassette inter¬ 
face board. The Original character generator chip gave inverted 
characters on video monitor. The replacement was no good at 
all. On June 29th, I called about a replacement for the chip, 
and I requested that the chip be tested before being shipped. 
A Gus Calabrese stated that "They were swamped with orders 
and couldn't possibly get around to shipping the replacement 
for another two to three weeks." 

I can understand their being quite busy, but I don't 
think that they should abandon any kind of customer service 
to previous purchasers of their equipment. 

Thank you. 

Robert L. Gerald 102 Coventry Dr. 

Lakewood NJ 08701 


August, 1976 
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LOU FIELD’S RESPONSE TO THE EDITOR’S 
NOTE TO SCCS MEMBERS IN THE MAY ISSUE 


WHAT THIS WORLD NEEDS IS A GOOD . . . 


The May issue of the Journal carried a note that was essentially 
critical of Lou Fields, the current Vice President of the Southern 
California Computer Society, and their potential next President. As 
is PCC policy, equal space (in fact, much more space) is being pro¬ 
vided for the response. 

In response to Jim Warren's note to the members of the Southern 
California Computer Society: 

In reply to your letter May Dr. Dobb’s this is following my con¬ 
versations by phone conversation with you and Bob Albrecht (after 
you wrote your letter but before I saw it — it arrived on the 22nd of 
July) 

1. Your letter is unfair, inaccurate, and at best intemperate. If you 
really wanted to be constructive you could have called me first — or 
at least consulted Bob Albrecht who made the arrangement with me. 

2. The facts are that I did not call to place an order. Bob called 
Ward Spaniol and Art Childs re: distribution of your products. He was 
told it was SCCS policy to handle no such material including its own 
magazine. Interface. They referred him to me since I had made arrange¬ 
ments for some other publications. I feel it in the best interests of the 
members to have magazines at meetings. Bob then called me and asked 
if he could send some (on consignment). I was not familiar with all 
the material but suggested he send what he thought was appropriate. 

Just before the meeting, 12 cases of papers arrived. I could not fit 

it all in my apartment or car. 

3. On the day of the April meeting, I brought what I could fit into 
my car felong with the many supplies for the meeting). 

Jim arrived at the meeting unannounced and proceeded to make a 
45 minute presentation on Dr. Dobb’s. The members were fascinated 
with his excellent talk, however it would have been better and more 
considerate if the Program Committee had been consulted about it so 
that the talk could have been scheduled, announced, and not have so 
disrupted two other excellent speakers. 

Seeing the interest, I apologized to Jim because I thought I hadn't 
brought Dr. Dobb’s (in fact I had and they were later uncovered and 
available). It was the seeming lack of the pre-shipped Dobb’s which I 
believe may have really upset Jim. 

4. Recognizing that the PCC was donated (but marked one dollar) I 
asked the staff to stamp them in some way so that they could not be 
inadvertently sold. A few (perhaps 12-20) were stamped as mentioned 
(in type approximately the size of a headline on the May letter). If I 
had been intending these for my own uses, I would have distributed 
them all this way. The newsletters were shipped to me, but no slight 
was intended and Jim made no mention of it at the time. 

5. Though these items were on consignment as confirmed with Bob 
and Jim during my telecon, I have sent you a total of $259.75 as well 
as the remaining material. I trust you will refund the difference. 

6. This unfortunate indident is perhaps the most dramatic example I've 
seen of the need for an ombudsman (consumer advocate) service. 

The SCCS will, I hope, soon offer this, so that some reasonable in¬ 
quiry can be made of the facts before damaging, insulting and unfair 
material it distributed for which no timely or effective rebuttal is 
available. 

7. I think your technical work is worthwhile, clever, imaginative, and 
creative. It is my heartfelt with that all of these good virtues will 
soon be matched with responsibility, accuracy, and a respect for the 
feelings, reputation, and good name of others. 

I, too, am working very hard to bring the knowledge and exper¬ 
ience of computing to our friends. I would like to hear directly 
what the readers think of this matter. 

Louis G Fields, 11662 Sunset Blvd Suite 2, Los Angeles CA 90049 
(213)478-0388 

Vie stand by our original May note. 1. Bob read and agreed with 
that note, prior to its publication. 2. The for-sale materials were not 
sent on consignment This was a legitimate misunderstanding in the 
original phone conversation. It was very explicitly stated, however, 
m a later conversation (referred to in point 5). 3. I had been in¬ 
vited to fly down and attend the meeting by Ward Spaniol and Art 
Childs. By agreement with Art, who was running the Announcements 
Period between the two major speakers, I spoke briefly about the 
Journal. Due to my own longwindedness and a flood of questions, 

I took almost 15 minutes. Others with other announcements both 
preceeded and followed me, thus it is unlikely that I disrupted the 
morning or afternoon speakers. 4. Stamping the give-aways as being 
complimentary copies was a good idea. The copy I have, however, 
was stamped with two different stamps, one stating ‘Compliments of 
Louie G. Fields’ and the other being a 7-line stamp with Lou’s name 


Dear Dr. Dobb , May 1, 1976 

As I see it, the hobbyist could use three different 
publications. 

1. a monthly news magazine similar in content to the 
present PCC. This would be written for the average hobbyist 
who just wants to know what's going on in general terms 
without being inundated by a mass of technical detail. It 
could include: 

Reprints of articles of general interest from the club 
newsletters. 

News items related to home computers. 

Articles on social implications of computers (although 
Creative Computing seems to be doing this pretty well). 

Letters of general interest. 

Suggestions, gripes, comments, and blue-sky stuff. 

General information on new hardware, software, etc. 

Listings of useful or novel applications programs or 
computer games. 

Indices of selected non-technical or semi-technical articles, 
etc. from other publications. 

Classified ads. 

2. A monthly or quarterly technical journal similar to 
DDJ. This would be written for the hard-core hobbyist who is 
grimly determined to cram all the features of OS-360 into his 
homebrew machine. It could include: 

Schematics from the club newsletters. 

Indices to selected technical articles, etc. from other 
publications. 

Letters of technical content. 

Listings, hopefully legible, of useful non-applications 
software. 

3. An annual catalog or directory of reference-type 
information. This could include: 

Computer clubs. 

Hobbyist-oriented publications (e.g., BYTE). 

Computer stores and distributors. 

Manufacturers of computers, kits, and other hardware. 

Brief descriptions and prices of all current stuff of use 
to hobbyists and commercially available. 

Jim Day 17042 Gunther St. 

Granada Hills CA 91344 

We're tryin'. Let us know, in a year, if you think we've 
succeeded. -JCW. 




being the largest and in boldface print. 5. As of July 29th, we have 
received 1259.75 and publication returns with a wholesale value of 
$70.60. We assume that the remaining $29.40 will be forthcoming. 

We also assume that the publications were sold for their retail value 
and the resulting profit was handled in a manner acceptable to 
the SCCS. If any excess payment is received, it will be immediately 
refunded. 6. We agree that there should be consumer advocates. We 
can think of many more dramatic examples of their need than this. 

7. Rather than avoid controversy, we prefer to present statements 
from both sides (or all sides), and let our readers make up their own 
minds. 

This particular controversy, however, has taken up enough space. 
THE END. 


t 
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realizable fantasy 

Computer Control of 
Music Tapes for Your Home Stereo 


by Jim Warren, Jr., Editor, DDJ 


Do you use tape recorded music in your home music 
system? Do you have a number of bands or “cuts” record¬ 
ed on a single tape? Wouldn’t it be dandy to be able to 
play only desired cuts without having to manually hunt for 
each one, and then have the tape automatically rewound 
when a side is finished? You can do it with your personal 
computer; a project uniquely appropriate for home computing. 

How you can use the system: Mount the desired stereo 
tape on the tape transport. Tell your computer which bands 
are to be played. You may instruct that they be played in 
a different sequence than they appear on the tape, and you 
may have any cut(s) played more than once. Tell your 
computer whether or not to rewind the tape when finished. 
Then, do nothing but enjoy the concert of selected pieces 
until the computer is finished with the tape. The computer 
will use the fast-forward / fast—reverse facilities of the tape 
transport to move between selected cuts that are nonse¬ 
quential. 

The following notes outline how such a system can be 
implemented at nominal cost with currently available com¬ 
ponents. 

Pertinent points about how a good tape system can 
work: The tape transport can move the tape forward, 
fast forward, reverse and/or fast reverse, and can stop the 
tape. Playback and recording can only be done during the 
“forward” mode. The read/write head is retracted from the 
tape during “fast” modes. A position counter is provided, 
but is based on rotation of a tape spindle rather than linear 
tape motion (that is, a counter increment represents much 
less tape length at one end of a tape than it does at the 
other end). There are beginning-of-tape/end-of-tape (BOT/ 
EOT) sensors that operate either by sensing a metalized 
strip attached to each end of the tape, or by photo-elec- 
trically sensing a reflective or transparent leader/trailer strip 
on each end of the tape. Recording is performed by first 
erasing with an erase head, and then recording with a read/ 
write head. The erase head and the read/write head are 
adjacent, spaced well under an inch apart. 

The usual format for a tape (Figure 1) is for there to 
be a BOT leader, followed by several seconds of unrecorded 
or “blank” tape, followed by some number of bands or cuts 
of music — each separated by several seconds of blank tape, 
and finally terminated by some length of blank tape followed 
by the EOT trailer. 


* A realizable fantasy is a project that has not yet been done, but 
it's time to do it. That is: (1) It's interesting, entertaining, and/or 
useful. (2) It's feasible for hobbyists in that it can be done in a 
reasonable amount of time, at reasonable expense, and does not re¬ 
quire great expertise (except, perhaps, that which can be furnished 
in the design article). (3) It is well within the limits of current 
technology and current techniques. Send us your realizable fan¬ 
tasies, so that we may share them with others. 


The system design: Most of the tape transport func¬ 
tions are obviously binary. The tape is/is not stopped. The 
tape is/is not in “forward” mode. The tape is/is not in fast 
reverse mode. The system is/is not in record mode. The tape 
is/is not at BOT or EOT. The counter can easily be made 
binary by having tape spindle rotation cause a strobe every 
turn or half turn or quarter turn, etc. Your computer can 
then accept these strobes and maintain its own position 
counter. Note that the position counter and BOT/EOT sens¬ 
ing are independent of whether the read/write head is retract¬ 
ed; i.e., they are independent of whether the tape is being 
moved in “fast” mode. 

Given the number of audio cassette units being used for 
mass storage of digital data on home computers, it should 
be obvious that we can record digital information, as well 
as analog -- music (or voice) -- information on tapes. In 
fact, both digital and analog information can be intermixed 
on the same tape. All that needs to be done is to encode 
the digital information in such a manner that it can easily 
be discriminated from the analog information. (Quick! One 
of you analog types. Send the implementation details in a 
fool-proof encoding scheme for this context - digital signals 
on the same tape as music signals.) 

Thus, digitally-encoded identifiers can be recorded in 
the blanks preceeding the music bands. (Figure 2). By 
recognizing and then reading that identifier, the computer can 
determine which band is about to pass over the playback head 
and can switch it to your hi fi system or skip it, depending 
on your instructions to the computer. 

Since the read head is retracted during fast tape motion, 
it is not possible to read band identifiers while skipping 
bands in fast-forward or fast-reverse mode. Therefore, the 
position counter must be used to approximately position the 
tape to a desired cut. In order to do this, the computer 
must know the position counter value for each cut. When 
a tape is initially recorded, such information is accumulated 
and then placed in a “Tape Directory” at the beginning of 
the tape (Figure 3). Your computer can then read in the 
Directory whenever it begins to play a tape. 

Hardware details: Your computer must have control 
over the system. It must be able to select tape motion: 
forward, fast-forward, fast-reverse, and stop. It should also 
be able to control whether the signal from the read head 
is allowed to go to the hi fi system, and should control 
whether a music signal can reach the record head during 
initial tape recording. And of course, it must also be able 
to control the recording of digitally encoded information 
on the tape. 

Your computer must also be able to monitor all 
outputs from the tape system. It must be able to see BOT/ 
EOT conditions. It must be able to monitor tape spindle 
motion via a rotation-periodic pulse or strobe. It must be 
able to monitor the analog signal coming from the read head 
so that it can maintain its constant vigil for digitally en¬ 
coded information. It should also be able to monitor re¬ 
cording signals being sent from the hi fi system to the tape 
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recording head. Finally, it would be desirable for it to be 
able to sense whether the “write lock” tab has been punched 
out of the rear of a mounted tape cassette. 

Software details: Two basic software modules are in¬ 
volved: A tape initialization module, and a tape playback 
module. 

The tape initialization module functions as follows, 
interacting closely with the human user. The user will 
mount a blank tape on the transport, at least partially re¬ 
wound, and tell the computer the maximum number of 
bands he expects to record on the current side of that 
tape. The computer will look for BOT. If BOT is not 
seen, it will do a fast-reverse until BOT is sensed; then stop. 
It will then switch to “record” mode with no signal going 
to the record head, and go forward until BOT is no longer 
sensed, indicating the end of the leader and the beginning 
of the recording area of the tape. At this point, it will set 
its tape position counter to 0. It will continue to go forward, 
erasing the tape as it proceeds, for the amount of tape 
space it will later need to record a Directory for the maxi¬ 
mum number of bands (already specified). It will then 
record a digitally encoded “1” to indicate that Band 1 is 
about to appear on the tape, stop the tape leaving it in 
“record” mode, and inform the user that it is ready for 
the first cut of music. 

The user may then begin recording. He must signal 
the computer when to start recording and when a cut has 
been completed. When he signals that recording is to begin, 
the computer will place the tape transport in “forward” 
mode, and switch the hi fi output into the record head. 
Whenever the user signals the end of a cut, the computer 
will disable hi fi input to the record head (to avoid any 
possible “noise”), digitally record the number of the next 
cut on the tape (which also serves an an “end” flag for 


the preceeding cut), and make note of the value of the po¬ 
sition counter for later use in the Directory. 

There should be several end-of-cut signals available 
for the user. One signal will indicate that the current cut 
is completed and that the next cut is immediately forth¬ 
coming, as is the case when continuously recording-a multi¬ 
ple-band phonograph record. In this case, the computer will 
record the cut number and quickly switch back to hi fi 
input for the record head, leaving the tape in forward mode 
and record mode. 

A second signal will mark the end of the current cut, 
but will indicate that there will be some delay before the 
next cut is ready for recording. The computer will respond 
by halting the transport after recording its next: cut number. 
The start signal used for the first cut on the tape can 
then be used when the user is finally ready to continue re¬ 
cording. 

A third signal specifies that recording for that tape is 
completed. In this case, after recording the “next cut” num¬ 
ber (which serves only as the “end” flag for the preceding 
cut), the computer will disable recording, fast-rewind the 
tape untO BOT, enable digital recording, move forward until 
BOT disappears, and record the Directory. The Directory 
will contain a sequence of entries indicating the values of the 
position counter the beginnings of each of the cuts. 

Nitty gritties: While recording the digital cut numbers, 
the computer should monitor the hi fi output to, if possible, 
detect any music that begins prior to the computer complet¬ 
ing the recording of the cut number. In this case, it should 
inform the user of a possible loss of the first part of the 
music. 

Whenever the tape is moving forward, the computer 
should monitor the EOT flag and should output the appro¬ 
priate error message if EOT is reached. 

Software control over recording should take into 
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account the distance between the record/playback head and 
the erase head, whenever it is appropriate to do so. 

The tape playback software module functions in a 
fairly obvious manner. First, it must accept a command 
sequence from the user, specifying which bands are to be 
played. When the computer notes the termination of this 
command sequence, it will then disable tape output to the 
hi fi system, hunt for the beginning of the tape, move 
forward and input the directory, setting the tape position 
counter to 0 at the beginning of the recording area of the 
tape. 

To play the desired cuts, it looks at the next cut (or 
first cut, initially) to be played, looks in the directory that 
it now has in memory for the position counter value, and 
compares the desired value to the current value of the po¬ 
sition counter. If the counters are significantly different, 
it uses the fast mode to position the tape. It positions 
the tape to a few counts preceding the desired count, then 
switches to forward motion and monitors the playback head 
output -- which, thus far, remains disconnected from the hi 
fi system. When the computer sees the digitally encoded 
cut number, it compares it to the desired cut number, and 
(presuming a match) switches the playback head output to 
the hi fi system as soon as the cut number has passed. 

The computer then begins continuously monitoring 
the signal from the playback head, looking for the next 
digitally encoded cut number (that will indicate the end of 
the cut being played). As soon as it sees the first part of 
a digital encoding, it disables the output to the hi fi to 
avoid having the listener hear glibble. It continues to pro¬ 
cess the user’s command sequence in the obvious manner. 

Available hardware: Though we assume that there 
are several tape systems that provide the necessary capa¬ 
bilities for the described interface, we will detail the only 
one about which we have explicit information. 

Triple I, a division of the Economy Company located 
at Box 25308 (1901 N. Walnut), Oklahoma City, OK 
73125, (405) 528-8444, manufactures three models of the 
Phi-Deck cassette tape transport. The least expensive vers¬ 
ion has a single, fixed speed for recording and playback 
and is quite adequate for this project. The mamma trans¬ 
port is a variable-speedi unit (which really isn’t useful in 
this context), and the daddy transport is also a variable- 
speed unit with a King Kong motor on it. Other than for 
the variable-speed facility and the motor size, all three 
transport subsystems offer the same capabilities. 

The standard speed for the fixed-speed transport is 
1-7/8” per second. Other speeds are available via a drive- 
pully change. All transports have fast-forward/fast reverse 
modes that can run the length of a 60-minute audio tape 
in less than 30 seconds. Engaging and disengaging the 
record/player head and the pinch roller is accomplished 
with a DC motor, rather than a solenoid. The transports 
have three other motors: take-up, rewind, and capstan 
drive. 

Our understanding from the local Triple I represen¬ 
tative is that there are two stock options for recording/ 
playback heads that come with the system: a 4-channel 
analog head, or a 2-channel digital head. The purchaser 
may choose either of these; their cost is included in the 
price of the unit. Alternatively, the buyer may choose to 
have the factory mount and align any other standard head 
that he may wish to furnish. There is no charge for fac¬ 
tory installation of any standard head. Thus, the buyer 
can have as high a quality head as he can afford. 

Available system features include: tape position 


strobe, BOT and EOT sensing, “Side A” sensing, write- 
lock tab sensing, “cassette in place” sensing, and, of course, 
a PC board that facilitates digital control over all of the 
tape transport facilities. 

Pricing is great for the experimenter: Triple I has a 
special introductory (one per customer) package for 
$189.00. It includes two fixed-speed Phi-Decks (normally 
$94.50 each), either one of the stock heads, an erase head 
(normally $2.50), all of the sensors (normally $1.25 to 
$7.50 each), the tape position strobe (normally $7.95), 
and the control board (normally $99.50). That’s not all, 
though. Since this introductory package is for prototyping 
and experimentation, it also includes a box that provides 
manual remote control over the system (normally $89.00), 
and an AC power adaptor (normally $7.50). Similar 
introductory packages are available using the variable- 
speed unit ($199.00 for the package), and the super deck 
($299). Shipping charges are prepaid if the package price 
is sent along with the order. 

Notes: Although these packages provide all of the 
electronics for control and sensing of the system, they 
contain no read/write electronics. That is, the wires come 
out from the record/playback head, are terminated at some 
wire-wrap posts on the edge of the PC board, and it’s up 
to the user to take them from there. Incidentally, these 
are fully-assembled systems; they are not kits. 

Although these packages contain two transports and 
one control board, the board is not designed to control 
two transports. The packages were designed to allow 
engineering prototyping in which one team builds a 
transport into a larger system which another team simul¬ 
taneously develops the controls, software, additional 
electronics, etc. 

Bells and whistles: There are some options available in 
this computer controlled system that have not yet been 
mentioned. We will mention them only briefly to whet 
your appitite. 

The design that has been outlined implicitly 
assumes that cuts are identified only by number, and 
that the user will specify cuts to be played by entering 
their numbers in the desired sequence. There is no 
reason to be so primitive, however. With appropriate 
additions to the tape initialization software module, and 
the playback software module, one could easily, input a 
name for each cut or piece of music. This information 
could be stored in the directory along with the tape posi¬ 
tion number. Appropriate software could then list an 
index to the recordings on a given tape, and such record¬ 
ings could be chosen to be played by entering their 
names or cut numbers. 

Primitive tape editing is another feature that could be 
added simply by expanding the software. More compre¬ 
hensive editing facilities would be possible if two trans¬ 
ports were under computer control. 

Thus far, this discussion has concerned the control 
of a music system. The cuts, however, could as easily con¬ 
tain spoken information instead of music “information.” 

For instance, it could contain instructions, questions, and 
answers. Coupled with devices for human-response input 
(keyboard, joy stick, push buttons, etc.), it would be 
ideal for many types of CAI (Computer-Aided Instruction) 
applications. 

The design that has been specified assumes that the 
record/playback head is retracted from the tape whenever 
the tape is being transported in “fast” mode. If this is 
not the case — if the head remains in “read” contact 
with the tape, even when the tape is being moved at high 
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speed — then it may be possible to avoid the need for a 
directory of -lit position numbers, for the computer 
should be able to locate a desired cut simply by watching 
for the cut number to appear as the tape is racing across 
the read head. Such an alternative would provide some 
interesting timing or encoding problems, since the cut 
number would be recorded at one speed, but read at a 
quite different (and probably varying) speed. 

Qosing notes: This has been a design article; not an 
implementation article. We encourage you to send in 
follow-up articles, detailing your specific implementations, 
once you have them operational. The slogan is, “Let us 
stand on one another’s shoulders, not on one another’s 
toes.” 

We are publishing this now, rather than holding it 
in order to fill out the details and nitty gritties, for 
several reasons: Most importantly, we wish to get this 
idea out into the public domain — before someone else 
stumbles on it, and rushes off to the patent office. We 
are also publishing it in this somewhat incomplete form 
because these realizable fantasies are as much your pro¬ 
jects as they are ours. We assume that you gain as much 
enjoyment from invention as you do from construction. 

We have left room for your own invention — for you to 
contribute your own good ideas and additions to this pro¬ 
ject. We hope that you will share them with us, so that 
we may share them with everyone else. 

And, a final thought: Has your spouse been com¬ 
plaining about the money and time you have spent on 
your weird little computing machine? Have your friends 
been asking, “Yeah, but what can you do with it?” If 
so, perhaps this project will quell their unkind remarks. 

Be the first one on your block with a computer-controlled 
stereo system! 


DENTAL PERSON REQUESTS 
DATA ON OUR OVERBYTE CONTROL 

Dear Jim, 7-25-76 

Saw John Craig’s report of your new publication in 
73 Magazine. 

Would you please send me a copy of Dr. Dobb’s 
Journal of Computer Calisthenics & Orthodontia. 
Orthodontia?? That part of the title caught my eye. 
Thanks. 

Dr. Jim Smith, Orthodontist 111 N. Regency Dr. 

Drs. Lauder, Smith & Gordon Bloomington IL 61701 
Orthodontics, Ltd. (309) 662-5331 


HAVE AN OFFICE IN YOUR HOME? IT’S 
ABOUT TO LOSE ITS TAX DEDUCTIBILITY 

We understand that the Senate Finance Committee 
has reported out a tax “reform” amendment which will, 
effectively, prohibit your deducting expenses incurred in 
maintaining an office at home . . . even if you are a 
completely independent consultant with no office else¬ 
where. If you have an opinion on this matter, you 
should write your Senator and Representative immedi¬ 
ately. (In fact, you could use your computer and Selec- 
tric to type “individual” copies for all the key Congress¬ 
men.) 


APPLICATION NOTES GIVE EXCELLENT 
INTRODUCTION AND COMPREHENSIVE 
DISCUSSION OF FLOPPY DISC DRIVES 

We understand that PERTEC, 9600 Irondale Ave¬ 
nue, Chatsworth, CA 91311, has two Ap Notes that pro¬ 
vide a complete and detailed discussion of floppys in a 
form that is understandable to the floppy novice (novice 
floppyite?). Their titles are “Soft Sector (Hard Sector) 
Formatting for FD400 Flexible Disk Drives,” however 
our information is that they provide a really complete 
discussion of floppy drives that is essentially applicable 
to any model from any manufacturer. 


PC CARD HOLDS 60 MEGABYTE REMOV¬ 
ABLE MAGNETIC STORAGE AT LESS THAN 
HALF THE PRICE OF DIGITAL CASSETTES 

Micro Communications Corp., 80 Bacon St., Waltham, 
MA 02154, (617) 899-8111, is manufacturing a tiny tape car¬ 
tridge drive, small enough to be mounted on a PC board. 

It takes a wee, endless-loop tape cartridge that has a maxi¬ 
mum capacity of about half a megabit. The drive will run 
at 3”/second. The tape is capable of 2400 flux-changes/ 
inch. Thus, using ratio encoding involving three flux 
changes per bit, one can obtain 800 BPI, and 2400 baud 
transfer rates. That would load a 16K byte program in 
less than a minute. 

Little Hidden Gotchas: MCC only manufacturers 
the drive and cartridges. The buyer must supply power 
(12v), motor speed control and analog R/W electronics, as 
well as the digital interface. But, the price is right: In 
5000-piece quantities (all right, which of you end-users is 
about to turn into a manufacturer?), the drives run from 
around $22@ with a 100-hour toy motor to $36@ with a 
1000-hour Swiss motor. And, certified tape cartridges in 
that quantity run $1.80 to $2.20@ depending on length. 
Incidentally, the cartridges weigh less than a half-ounce 
apiece. Two can be mailed, First Class, for 13 cents (this 
month). 


MOTOROLA COMPETITOR FOR THE Z-80 

Motorola is reliably rumored to be working on their 
6809, which supposedly will give Zilog’s Z-80 some stiff 
competition. More details when we have ’em. 


GAMES AND WAR 

We hear “from a reliable source” that the Army has 
awarded $25,000 to a computer games company for devel¬ 
opment of war games equipment. 

Also, a year or so ago, the Journal's Editor (who is a 
long-time computer consultant) was contacted concerning 
a systems position in developing a project at the Hunter- 
Liggett Military Reservation south of Monterey, California. 
They were installing multiple PDP-lO’s plus about ten 
PDP-ll’s (as remote data concentrators for sensors in the 
field), for the single purpose of monitoring war games on 
the reservation. The system sounded most exciting. How¬ 
ever, the application—including the incredible cost that was 
implied—made the project “uninteresting” to our Editor. 
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A Realized Fantasy: Unlimited 
Speech Synthesis for Home Computers 

A Survey of Computer Speech Synthesis Systems. 

Including a 


by Jim C. Warren, Editor 

Intelligible, useful, voice synthesis by home computers 
is now available to hobbyists at reasonable cost. This means 
that, not only can your computer talk to you and your 
spouse (who, admittedly, may not want to hear it), but it 
can also talk to your pre-reader and beginning-reader chil¬ 
dren. Thus, besides being fun and useful in a general con¬ 
text, your home computer can also become a significant 
educational tool for young children. 

There are several manufacturers of computer speech 
synthesis subsystems, two of which are marketing specifically 
to hobbyists, and one of which is worthy of specific attention. 

The best system we know of for hobbyists-i.e., 
financially feasible—is nearly available from CompuTalker 
Consultants, Post Office Box 1951, Santa Monica, CA 
90406; (213) 392-5230. This brand new product has an 
introductory price of $395 assembled. (Note: There is a 
significant possibility that this price will be available only 
for a short time and will then increase, as seems to be 
characteristic of vendors to the hobbyist community. Once 
the demand for a good—or bad—product grows to where 
personnel must be hired to handle the increased workload, 
prices often must be raised to pay for the added wages, 
plant facilities, etc.) 

The first Computalker model is an assembled unit 
that mounts on a hobby-standard-bus board (that is, it 
plugs into an Altair/IMSAI/Polymorphic/etc. bus). The 
unit includes the PC board, two pre-assembled and tested 
CT-1 Synthesizer modules, and less than a dozen IC’s for 
buffering, decoding, DAC, etc. The bus interface requires 
nine 8-bit, output ports. The block of nine ports is relo¬ 
catable via switches on the board. The following seven 
ports should be reserved for future facilities. The unit 
requires +8V at a maximum of 250 mA (regulated on 
the board to +5V), and ± 16V at 85 mA (on-board regu¬ 
lated to ± 12V). The audio output is via an RCA-type 
phone jack or directly wired to the board. It supplies a 
IV output, peak-to-peak, into a 10K ohm load resistance. 

Units that will plug into other, non-hobby-standard buses 
are being designed, including interfaces to the GA-16 and 
DEC PDP-12. 


$395 Kit 

question about the speed that would be required in an 
8080 for real-time—on the fly—speech synthesis. At that 
time, it appeared that, for real-time synthesis, an 8-bit hard¬ 
ware multiplier might be required for calculation of the 
byte sequences that cause words to be synthesized. Check 
with Lloyd Rice for more definitive information. Under 
any circumstances, the system can still be used, however. 
One simply generates the desired byte sequences; places 
them in memory; then transfers them to the output 
locations as rapidly as desired. This way, no complex cal¬ 
culations would be required during the actual speech output, 
For such non-real-time operation, however, about a kilo¬ 
byte of buffer space is required for each second of speech. 
Of course, another alternative is to use a faster processor 
such as the 4 megacycle Z-80 about to be available from 
CroMemCo (please see DDJ, Vol. 1, No. 7). A processor 
that is faster than your old, plain-Jane 8080 might allow 
real-time synthesis calcuations without the need for 
hardware multiplication. 

There is much more that could be said about this 
unit, including details of how it works, but that is the 
topic of future—and past—articles. We refer you to two 
articles by Lloyd Rice: The first one appeared in the 
April, 1976 issue of Dr. Dobb’s Journal, “Hardware & 
Software for Speech Synthesis.” The second one, though 
written earlier, appeared in the August, 1976, Byte, 

“Friends, Humans, Countryrobots: Lend Me Your Ears.” 

Incidentals: Lloyd Rice has been working in the area 
of speech synthesis for some time. He holds a B.A. in 
linguistics, and is currently working with the research com¬ 
puters in the Phonetics Lab at UCLA. 

CompuTalker is another one of those very small 
companies that has developed an exciting product for the 
hobbyist community. The product has been developed, as 
much for the love of the project and the gadget, as for 
the purpose of making money. We are very impressed with 
Lloyd’s expertise in the area of speech synthesis. We are 
also very impressed with his ethical standards and are quite 
sure that he will back his product and “do right by his 
customers.” We tend to be much more impressed by peo¬ 
ple who are doing something because it is fun and exciting, 
than we are by those who are doing something to make 
money. We believe Lloyd fits the first category and rec¬ 
ommend him and his product to you. 


During actual speech output, each output location or 
port must be loaded at least twenty times per second. If 
desired, the ports may be loaded as often as 1000 times 
per second. Good-quality speech synthesis requires that 
each of the nine ports be loaded about 100 times per 
second (presuming the locations are 8-bit bytes). 

The user may develop the software entirely on his 
own, or he may purchase the driver software from Compu¬ 
talker for about $35-$40. A good write-up with extensive 
information on phonetics and speech mechanics will be 
included. The driver software will take less than 8K 
bytes for an 8080. Software for the 6800, 6502, etc. is 
planned for the near future. 

At the time this article was written, there was some 
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The second system being marketed to hobbyists is 
the Model 1000 from AI Cybernetic, Box 4691, University 
Park NM 88003; (505) 526-6842. First of all, we under¬ 
stand from people who have heard this system that it’s 
intelligibility is marginal. Some tend to feel that this sys¬ 
tem, rather than training the computer to speak, requires 
that the listener be trained to understand—an alternative 
which is opposite to our views concerning man-machine 
interfaces. Secondly, this unit is priced higher than the 
CompuTalker unit; the Model 1000 costs $425. The unit 
does, however, plug into a hobbyist-standard bus, and its 
advertisements imply that it requires considerably less soft¬ 
ware support. We suggest listening to a unit, before you 
commit to a purchase. We also suggest careful queries con¬ 
cerning “on the fly” real-time speech synthesis and mem- 
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ory requirements for production of reasonable sentences. 

Incidentally, we would be pleased to publish more 
positive statements concerning this equipment. We are 
interested in comments from end-users (as opposed to 
vendors) who own and have experience with the units. 

The third system that is of potential interest to 
hobbyists is from Votrax, 4340 Campus Dr., No. 212, 
Newport Beach CA 92660; (714) 557-9181. (This is the 
address for their Regional Manager, John McDaniel; not 
for their home offices. However, John has expressed an 
active interest in the possible hobby market.) The last 
word we had was that Votrax was considering making 
their unit available in kit form for under $1000 (see DDJ, 
Vol. 1, Nos. 2 & 5). Their system has been in the field for 
several years, being marketed as a turn-key system, ready to 
plug into big IBM systems for use in voice-answerback 
applications. In their commercial form, they run around 
$3000-up, unit quantity. They are considering stripping out 
all the turn-key garbage—such as audio amplifier, volume 
control, power supply, fancy cabinet, etc.—and peddling 
the guts for a much more consumer-tolerable price. If they 
do, the kit-form would consist of four heavily potted, 
highly proprietary boards along with the necessary instruc¬ 
tions for interfacing, adding power, providing input, and 
using the output. The four boards contain hardware pho¬ 
neme generators. We have heard the units “speak ”; they 
are quite intelligible and provide reasonably good-quality 
speech. They also require only very limited and simple-to- 
use software support. We will say more if/when Votrax 
tells us that they are going to market a reasonably priced 
kit. If they ever do, we expect to strongly recommend 
their well-proven and easy-to-use unit. 

There are two other speech synthesis systems worthy 
of, at most, very brief mention here—primarily for the sake 
of completeness. 

The first is a custom LSI component that has a 
limited and fixed vocabulary. This contrasts with the pre¬ 
ceding systems which allow English speech synthesis limited 
only by the capacity of the computer’s memory to store 
the byte-strings that specify the words and sentences. This 
LSI component was developed by Dr. Forrest Mozer, a 
physics professor at the University of California, Berkeley. 
The custom chip was implemented by Silicon Systems, 

Inc., in Santa Ana, CA. It will generate 24-64 complete 
words. It has been used in a “talking hand calculator” of 
particular value to the blind. This calculator is made by 
Telesensory Systems, Inc., 1889 Page Mill Rd., Palo Alto 
CA 94304; (415) 492-2626. It uses a TMS1000 micro¬ 
processor from TI, and the entire unit sells for $395. 

The second system is a voice response system for the 
PDP-8, PDP-11, and NOVA computers that uses a “solid- 
state speech synthesizer.” It is available from Interface 
Systems, Inc., 462 Jackson Plaze, Ann Arbor MI 48103, 
and sells for $6,750 to $47,500. Need we say more? 

One final “maybe” system: We have heard that some 
crowd calling themselves “Master Specialties” is peddling 
voice synthesis equipment, but we have been unable to find 
out their location, the details of their product, or their 
pricing. Anyone know where they are—or know anything 
else about them, for that matter? 


CROMEMCO NEW ADDRESS 

CroMemco has moved from Los Altos. Their new 
address is 2432 Charleston, Mountain View, CA 94043, 
(415) 964-7400. 


VIDEO TERMINAL TECHNOLOGY DOES 
HAVE A PHONE! 

After publishing the article on the 64-character 
by 48-line TVT for $499.95 [DDJ, Vol. 1, No. 6], 
we received a dozen or so requests for the vender’s 
phone number, which we had neglected to include in 
the article. Here it is: (408) 255-3001 or (408) 734- 
2244, ext. 5179 (ask for Ralph Butler). 


RELIABLE 110 CHAR PER SEC PRINTER 
(34 CHARS/LINE) FOR $298, UNIT QUAN¬ 
TITY 

Victor Comptometer Corp., Components Dept., 3900 
N. Rockwell St., Chicago, IL 60618, (312) 539-8200 has 
a Model 130 matrix printer that prints about eleven times 
as fast as a TTY. The printer has been around for about 
two years; over 150,000 of them are now in use. It car¬ 
ries a one year parts and labor warranty to the original 
purchaser. In single-unit quantity (1-9), the price is $298; 
100-unit quantity is priced at $ 183.25@. It takes roll 
paper from 2-9/32” to 3-14” wide by up to 220’ long. 

The user must supply power for motors and sole¬ 
noids. The user must also supply solenoid print signals 
and paper feed control, but, then again. . .micros do that 
so well. Characters can be either 5x7 or 9x7. The 130 
will only print 34 characters per line, but, at that price 
and speed, maybe it’s worth it to tape two pieces of 
paper together to get 68 characters on a line. 


A DOT-MATRIX PRINTER WITH 80-COLUMNS 
FOR AROUND $305??? 

We are currently tracking down the details on a 
printer rumored to become available from Practical Auto¬ 
mation, Inc. (address info when we get it) in about the 
middle of September, designated the DMTP-6, which will 
handle 8V£” paper, print 80 characters per line, and be 
priced slightly above $300. Our guess is that the price 
is for OEM quantities, however, who knows. . . 


PHILADELPHIA HOME COMPUTER SOCIETY 

At last Philadelphia has its own computer society. Started 
as the result of a letter in Byte, the initial meeting drew 
over 80 interested individuals. So far we have had demon¬ 
strations of Sphere and the Digital Group computers. Plans 
are for field trips to the Moore School of Electrical Engineer¬ 
ing (birthplace of the ENIAC) and to nearby MOS Technol¬ 
ogy. Our newsletter, The Data Bus, provides meeting informa¬ 
tion as well as articles on hardware and software, book reviews, 
letters, cartoons, etc. Interest is mushrooming and all of us 
here have visions of computer grandeur. 

Dick Moberg 404 S. Quince St. 

Philadelphia, PA 19147 


MARIN COUNTY COMPUTER GROUP 

Hobbyists in the Marin County area of Calif¬ 
ornia gathered for the first meeting of a new hobby 
group on July 21st. For information about this new 
group, contact the Byte Shop Computer Store, 509B 
Francisco Blvd., San Rafael, CA, (415) 457-9311. 
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ENGLISH-TO-PHONETICS TRANSLATOR FOR 
PHONEME SPEECH SYNTHESIZERS 


AN EXCELLENT 

BUY & SELL NEWSLETTER 


Joe Mockus 


Automatic Translation of English Text to Phonetics by Means of 
Letter-to-Sound Rules. 

Honey Sue Elovitz, Rodney W. Johnson, Astrid McHugh, and John 
E. Shore. 

Naval Research Lab Washington DC 21 Jan 76. 101p. NRL-7948 
AD-A021 929/5WC Hardcopy $5.50/Microfiche $2.25 

[available from National Technical Information Service, 5285 Port Royal Rd. 
Springfield, VA 22161] 

Speech synthesizers for computer voice output are most useful when 
not restricted to a prestored vocabulary. The simplest approach to un¬ 
restricted text-to-speech translation uses a small set of letter-to-sound rules, 
each specifying a pronunciation for one or more letters in some context. 
Unless this approach yields sufficient intelligibility, routine addition of 
text-to-speech translation to computer systems in unlikely, since more 
elaborate approaches embodying large pronunciations dictionaries or 
linguistic analysis require too much of the available computing re¬ 
sources. The work described here demonstrates the practicality of 
routine text-to-speech translation. A set of 329 letter-to-sound rules 
has been developed. These translate English text into the International 
Phonetic Alphabet (IPA), producing correct pronunciations for approx¬ 
imately 90% of the words in an average text sample. Most of the 
remaining 10% have single errors easily correctable by the listener. 

Another set of rules translates IPA into the phonetic coding for a 
particular commercial speech synthesizer. This report describes the 
technical approach used and the support hardware and software de¬ 
veloped. It gives overall performance figures, detailed statistics showing 
the importance of each rule, and listings of a translation program and 
a program used in rule development. 


A NERVOUS SYSTEM 
FOR THE HUMAN RACE 


There is a very useful little typewritten news¬ 
letter available, that is explicitly concerned with want 
ads for computer hobbyists, both for buyers and 
sellers. It is called ON-LINE, and is published by 
D.H. Bettle, 24695 Santa Cruz highway, Los Gatos 
CA 95030. It is published every third Wednesday, is 
sent by First Class mail, contains 6 to 12 pages in 
each issue, and has a very fast turn-around—all ads 
received as late as the preceeding Saturday are in¬ 
cluded in the issue for that month. The publisher 
states that they put out 17.3925 issues per year, but 
we assume that is merely an approximate figure. 
Subscriptions are $l/four issues, or $3.75/18 issues 
(= one year), or $7/36 issues. 

For those wishing to advertise, there are both line 
rates and word rates, and there are reduced rates for 
ads running in multiple issues. There are also much 
lower rates for non-commercial ads than for commer¬ 
cial ads. As far as we can tell, there are no display 
ads; it’s all text, which means much more meat in 
much less space. 

We highly recommend this publication to those 
interested in buying or selling goods for the com¬ 
puter hobbyist. 

USED EQUIPMENT 
INFORMATION BROKER 

The Computer Equipment Information Bureau, 

Box 163, Boston MA 02117; (617) 247-2290, has 
listings of used computer equipment. The listings are 
free to buyers, and are available to sellers for a fee. 

R. Ferrera is the President of the Bureau. 


Good morning, June 10, 1976 

We here are working on a plan for a series of "information 
stores" that would require computerization for large-scale 
information flow. Our plan involves store-front access points, 
an open catalog of information available, and economic self- 
sufficiency through both mass marketing of information and 
"per-bit" charges for both input and output information. 

Ultimately, the plan would involve utilization of the infor¬ 
mation for specific problem-solving assignments, on-going 
studies of attitudes and values, selective dissemination of in¬ 
formation and analysis to political figures and others likely to 
be influenced toward implementing the public good, and 
much more. 

The plan has been compared to giving the human race a 
nervous system complete with a brain. 

Please send us any information you can that relates to this 
task, and let us know if you would like to get more involved 
in what we are doing. 

Sincerely, 

Robert A. Moskowitz 403 W. School House Lane 

Philadelphia PA 19144 


BUSINESS WEEK NOTES HOBBYISTS 

The July 12 issue of Business Week carried a full-page 
article about the computer hobbyist movement. They also 
devoted 7 pages, essentially, to microprocessors, in a major 
article in their July 5th issue: "The Smart Machine Revolution 


BLIND RUMOR: A FLOPPY DISC 
SUBSYSTEM FOR ABOUT $1K 

We heard the rumor that one of the companies that is 
marketing to the hobbyist community is putting the final 
touches on a floppy disc interface for Diablo's Model 12 disc 
drive. We also heard that the disc will store about three 
megabits, formatted, and that Xerox (Diablo's after-birth 
parent company) will be selling the unit for around $1000. 

We checked the story with the rumored company, and 
were told that there would be an announcement "soon." 
Since we think this company is one of the "good guy" 
crowds, we are going to abide by their plea that we not 
disclose the about-to-be manufacturers. 

We do have a question, however: Why should anyone 
bother to wait for this system, when they can get one of 
Digital Systems' floppy units—right now, off the shelf, 
assembled and burned in—for $1095 (or $995 in quantities 
of 10)? Digital Systems' unit is already out in the field, has 
an excellent reputation from its users, uses a top-notch 
Shugart drive, and-perhaps the best thing of all-runs 
Kildall's CP/M, the DEC System-10-like floppy disc operating 
system that has been in production and instructional use for 
over two years. [See DD], Vol. 1, No. 7, for additional 
details.] 


LOTTA FLOPPIES 

Shugart, the manufacturers of one of the best- 
reputed floppy disc drives available in a highly com¬ 
petitive market, has shipped over 30,000 of their 
drives. 
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CASSETTE REPOSITORY, TRAC, OTHER LANGUAGES, 

CP/M, AND PROCESSOR TECHNOLOGY PRAISE 

Dear Jim, July 20, 1976 

1) Many hobbyists may now be starting to do some heavy 
stuff in assembly language. With things like the Tarbell cassette, 
the capacity is now there to be able to store the 100K or so 
needed for a fair-sized program. However, a lot of hobbyists are 
stuck for a means of hard copy. Even if they have a teletype, 
not many people care to wait the 3 hours necessary to list a 
program of the aforementioned size. Such a listing can be a very 
useful thing to have. What am I getting at? We need a place 
where we can send our cassettes (it almost has to be cassette; I 
shudder to think of someone trying to handle 2 miles of tape. 

In any case, getting such a tape would entail the same problems 
as getting a listing) or maybe floppy discs to get a listing of them. 
Whoever does it could charge a nominal fee and you could get 
back a lineprinter listing. I don't know if anyone could feasibly 
provide this sort of service, but if it is possible, it'd be nice. Of 
course, you'd have to standardize the format of your cassette- 
but then, standards are necessary. 

Speaking on the subject of standards, I think DDJ would 
make a good forum for discussion of such things. If we're ever 
going to really share stuff, we're going to have to tackle this prob¬ 
lem. 

2) Regarding TRAC: I'm sorry to hear that Calvin Moores 
is such a nut on the subject of copyrights. TRAC looks like such 
a fascinating language (from what I read in T. Nelson's Computer 
Lib). One thing I did notice in Computer Lib is that "Moores 
stands ready to accomodate . . . experimenters who wish to try 
their hands at programming a TRAC processor. An experimenters 
license may be obtained for use of the copyright material for a 
few dollars . . ." 

I'm not sure whether this means you can try your hand at 
writing a TRAC interpreter for your own use, or whether this only 
means if you find a system that runs TRAC, you can write pro¬ 
grams for it. Did you notice anything about this in your deluge 
of paper from him? 

3) I'm very interested in your idea for small Pascal, even 
though I've never heard of it. But then, almost anything would 
be better than BASIC. One thing I'd like to see is some sort of 
list-processing language. BASIC is primarily oriented towards 
numbers, when a good deal of computer applications deal with 
text. That's where TRAC would be nice. 

4) I recently visited a person who had CP/M (the much 
heralded floppy disk operating system) up and running. I was 
quite impressed. One thing that wasn't mentioned was that the 
system also includes an assembler. I also hear there is a com¬ 
piler BASIC up to running with the system. I didn't get too much 
of a look at it, but I've been given the opportunity to learn to use 
it, and with this guy's permission. I'll send in my comments. 

5) A word of praise here for Processor Technology's VDM. 
I've had a chance to compare Polymorphic's video board with the 
VDM (from a user point of view). When I first saw the Polymor¬ 
phic's board it had the problem of white garbage being displayed 
on the screen (I understand that a fix has since been sent for 
this). I've seen no problems with the VDM. It is a very high 
speed device. 

The thing that really makes the VDM so nice is the soft¬ 
ware. Processor Tech is really supporting this device. Their 5K 
basic, for instance, has the VDM driver built right in. 

That driver is in itself interesting. It allows you to clear 
the screen and turn the cursor on and off, as it should, but it 
also allows you to change the rate of output. While the VDM 
is being outputed to, pressing one of the digits 1 through 9 on 
your keyboard changes the speed of output. 1 is equal to about 
2 characters per second, and 9 is a maximum of 2000 lines per 
minute. In addition, the output can be stopped at any time by 
depressing the spacebar. Any other character pressed then 
resumes output. 

This driver also works very nicely with MITS BASIC. 

All in all, the VDM is a fine product. It makes program 
development. 

6) Comments on Processor Tech's 5K BASIC: To start 
with, it's not really 5K BASIC: it needs 6480 bytes (decimal). 

It does have the feature of allowing more than one program in 
memory at a time; it does by the MEM command. When this 
command is issued, BASIC asks for a starting and ending ad¬ 
dress. Your program is put in this zone. It also asks you if 
the program is loaded. Note that BASIC does not concern 
itself with addresses. It blindly trusts you to give it address 
which are within your available memory. You also have to 


NEW HOME COMPUTING RAGS 

In the event that you have blindly bypassed the full-page 
ads in a number of ad-carrying magazines, two new hobby 
periodicals are in the offing: 

Personal Computing, bi-monthly, $8/yr ($6/yr before 
Sept.1976), first issue October-November, Benwill Publ. Corp,, 
167 Corey Rd., Brookline, MA 02146 

Microtrek, monthly, $10/yr, first issue: September, 1976 
Schneider Publ., Inc., Dows Bldg., Cedar Rapids, Iowa 52401 
[Iowa???] 

Both will be your usual, run-of-the-mill, exciting hobby rags, 
filled with display ads, articles, letters, etc. Personal Computing 
is touting an interesting twist: each issue will carry a full- 
color, poster-sized computer graphic...a center-fold for computer 
phreaques. Betcha neither one of 'em will ever devote 15 or 
20 pages to complete documentation & annotated source code 
listings of systems software, though [toot of own horn]. 


WE WILL TRY TO GIVE THE INFORMATION THAT YOU 
WANT 


Ever get excited over a widget that's advertised as costing 
"only $1195", only to find out that price is for 100 units to 
OEMers and excludes some essential component? We have. 

We find it quite irritating to read an advertisement or 
article in a trade magazine or commercial [ad-carrying] mag 
that avoids giving crucial information and forces us to call 
or write for the desired details...and often an additional 
sales pitch. The other day, we suddenly realized that we 
could systematically correct that problem as far as Journal 
articles were concerned. Since we aren't paid for publishing 
product information, we are not constrained by advertisers' 
desires. 

Therefore, to the extent possible, we will make it a 
policy to publish desirable product data such as: single-unit 
price, address, phone, availability, warranty, limitations, etc. 

We won't always succeed...particularly in the case of "hot 
stuff" that comes to us just before going to press...but we 
will try. 


keep the programs separate. 

BASIC also has the TSAU and TLOD (or TLOAD - I'm 
not sure) commands which allow user-written cassette (or 
disc) loading programs to be accessed. 

It also allows assembly language subroutines to be 
accessed via the CALL and ARG functions. ARG(x) passes 
the argument x (as a 16-bit integer) to the subroutine. Y = 

CALL (7000) assigns Y the value returned by the subroutine 
at 7000 decimal. 

This BASIC has all the features of "standard" BASIC, 
with the exception of strings. It includes READ-DATA.FOR- 
NEXT loops, SIN-COS-TAN functions, as well as the LOG and EXP 
functions. 

I do have one objection to it: when you press CR 
(without putting anything on the line), it gives you a bad syn¬ 
tax error. 

Well, I've rambled on fo' quite a while now, and so 
I'll quit here. 

Computer power for the people! 

Paul Holbrook 6104 Craterlake Ct. 

(alias Cap'n Quirk) Pleasanton, CA 94566 
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A FREE CATALOG OF MINICOMPUTER ACCESSORIES 

A catalog of computer supplies, accessories, connectors, 
cables, etc. is available "for the professional minicomputer 
user" from Minicomputer Accessories, Catalog Sales Dept., 
[1015 Corporation Way] P.O. Box 10056, Palo Alto, CA 
94303, (415) 969-5678. 


FEW FAULTY LSI-ll's FOUND 

DEC (Digital Equipment Corp.) shipped more than 3000 
LSI-ll's in about six months. In that period, only 63, (2%) of 
them were returned as defective. DEC tested those that were 
returned and, in only 20 (0.6%) cases, agreed that the micro¬ 
computer was in fact, defective. 


AN INTERVIEW WITH THE INVENTOR OF THE PDP-11 


The May, 1976, issue of a trade magazine called Research/ 
Development carried an interesting 5-page interview with Gordon 
Bell: "Computers-Past, Present and Future". It presented some 
quite interesting historical information about computer develop¬ 
ments, particularly about the work done at Digital Equipment 
Corporation. It also illustrated some of the viewpoints and 
background of Dr. Bell, DEC'S V.P. of Engineering, and a very 
well known computer engineer and researcher. 


NEWSMANSTOWN, PA SYSTEMS GROUP: 
SORTIARII 

Gentlepeople, 28Apr76 

We are an embryonic, two-man company located in a 
relatively backward section of Pennsylvania. Our principal 
interest is in hardware maintenance and software support for 
personal and very small business applications. We're also 
interested in industrial controller systems. Our house machine 
will be a Sphere system with 36K core, and a line printer. 
Sincerely, 

David J. Beard Rd. 1, Box 192C 

Sortiarii Newmanstown PA 17073 

Minicomputer Systems & Applications (717) 949-6848 


NYC STORE: 

HOBOKEN COMPUTER WORKS 

Dear Dragon People, 12 May 1976 

The Hoboken Computer Works is another small, 
friendly computer store in the metropolitan New York area. 

A stroke of luck (and a memorable name) put us right on 
the front page of the New York Times last week. 

... I can't end this note without expressing my person¬ 
al appreciation for what PCC has been doing for the last few 
years. Obscurantism, ego-tripping, and elitism have dominated 
the world of computers for too long. Even though I note 
lingering evidence of these nasties in some of the letters 
published in PCC, I think you're doing a marvelous job of 
opening up these musty rooms to a little fresh air. 

Yours, 

Bob Radcliffe 56 - 2nd St. 

Hoboken Computer Works Hoboken NJ 07030 


PLESSEY DOES RIGHT BY HOBBYISTS 

A major manufacturer offers significant 
discounts to hobbyists on memory 
& a 1000 cps tape reader 

Plessey Memories and Plessey Microsystems is the 
first large manufacturer, traditionally marketing its 
products to major industrial purchasers, that is 
making its very significant GSA (U.S. General Ser¬ 
vices Administration), and Educational discount 
schedules available to hobbyists. 

They offer a 1000 char-per-second paper tape read¬ 
er, including electronics and buffering, to hobbyists 
(and Educational, and GSA customers) for $340. The 
1-4 quantity price to their industrial customers is 
$425. This 1000 cps reader has several quite interest¬ 
ing features. For one thing, it uses a capstan/pinch- 
roller to move the tape, rather than a much more 
wearing sprocket feed. For another, their phototran¬ 
sistors are infrared-sensitive to provide maximum 
coupling efficiency, and the light sources are LED’s 
that never need adjustment. 

They also offer a core memory module that is 
directly usable with National’s IMP-8, IMP-16, PACE, 
and SC/MP micros, and can obviously be interfaced 
to most other microprocessors realtively easily. The 
fact that it is core means that it is nonvolatile ; your 
programs stay there when the power goes away. 

These units are available to hobbyists, educators, and 
the feds for $1085 for a 16K module, organized as 8K 
16-bit words. To industrial customers, Plessey’s price 
is $1500 in single-unit quantites, and $1365 in 10-14 
quantity. They are really “doing right” by hobbyists. 

The core memory modules require a controller. 
Plessey markets their controller card (already assem¬ 
bled, of course) to hobbyists, etc. for $360 ($500 to 
industry, unit quantity). This controller is rather 
flashy: it provides for memory expansion, data save, 
write protection, and address partitioning. Units are 
available 30 days ARO (After Receipt of Order). 

Incidentally, Plessey policy is to not publish prices, 
but rather, to give quotes for specific orders to 
specific customers. The Plessey rep was less than over¬ 
joyed about our plan to publish these prices . . . but 
then again, the Journal is here to best serve its 
readers; not the vendors. Don’t spread the good word 
about Plessey pricing too far, though. Otherwise, 
some of their greedier industrial customers might 
apply some unpleasant pressure. 

We applaud Plessey for their fair-minded decision 
to market their products to the hobbyists on the same 
price schedule they use for educational customers. We 
believe it is a logical policy, and is certainly a policy 
that benefits the home computer user, who derives 
no financial gain from his or her system. If you also 
approve, why not drop them a note of thanks. 

Plessey, 1674 McGaw Ave., Irvine CA 92714, has 
22 national and international sales offices. 


HOT IDEA 

Why doesn’t someone interface an LSI-11 bus to a 
hobby-standard (Altair/IMSAI) bus? Then people 
would be able to take advantage of the potency of an 
LSI-11 processor, and the economy of hobbyist sub¬ 
systems and peripherals? 
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PROPOSAL: A BOARD TO EXPAND 8080 
INSTRUCTIONS 


Dear Jim, August 13, 1976 

We plan to make a Hobbyist-Standard (Altair/I MSA I com¬ 
patible) card which will add new commands and addressing modes, 
some of which will match or better the Z-80 commands. 

We would like your opinion on what is desirable. Some 
of the possible extensions are listed below. If some variation 
seems more appropriate, as an addition or as a substitution, please 
mention this. Notes about any other function you wish added 
will be appreciated. 

Of course, the more we put in, the more it costs. And 
there is the basic question is it worth it, since existing soft¬ 
ware would have to be modified to take advantage of it. 

Please respond to: 

Walt Ferris 2311 Middlefield Rd. 

Palo Alto, CA 94301 
<415) 321-1231 

Editor’s suggestion: Rank-order your preferences from most- 
desired to least-desired, and indicate the maximum you would 
pay for each facility (in kit form, and in assembled form). "J.W." 

POSSIBLE NEW COMMANDS THRU “80F”. 

1. Block Move. 2 byte op-code, parameters such as starting 

addresses and ending address are in memory. Speed: 

2 or 3 clock cycles per byte vs 21 for Z-80. 

2. Block Search for one character. 2 byte op-code, 1 byte 

operand to search for, other parameters in memory. 
Speed: 1 clock cycle per byte vs 21 for Z-80. 

3. Block Search for a character string, of programmable 

length, say up to 16 bytes. 2 bytes op-code, 
parameters in memory. Speed: 1 clock cycle per 
byte of area searched. Address found is left in 
memory. 

4. Block search for any of up to 16 different bytes. You 

program a table in memory; when one is found it 
jumps to a programmed address. 2 byte op-code. 

Speed: 1 clock cycle per byte of area searched. 

5. Program-relative Addressing for all 8080 jumps, calls and 

memory-accumulator instructions. 2 byte op-code. 

Jumps and calls have 2 byte displacement, +32K 
bytes range, and speed of 16 clock cycles vs 12 for 
Z-80. The mem-acc group could be either 1 byte or 
2 byte displacement. 1 byte gives +127 byte range. 
Speed would be 17 clock cycles for 2 byte, 13 for 
1 byte. 

6. Indexed Addressing for all 8080 jumps, calls and memory- 

accumulator instructions. Index registers are in memory; 

1 propose 3 and the maximum is 4 with a 2 byte op¬ 
code. With a 3 byte code it is unlimited. The index 
registers are 2 byte and the displacement (operand) is 

2 byte. Speed: 16 or 17 clock cycles. 

If we reduced displacement to +16K we could use 
one bit to specify yes or no to auto-increment. If 
we reduced displacement to + 8K, we could use the 
two bits to specify: 

Indexed, 2 byte operand 
Indexed, auto-increment, 2 byte operand 
Indexed, auto-decrement, 2 byte operand 
Indirect, use index register, 1 byte operand. 

7. Two-byte memory-accumulator commands (base page or 

zero page type). 1 byte special op-code. 1 byte 
operand which has to specify both operation and 
address; thus we can have 8 operations and 32 


Z-80 DETAILED IN ELECTRONICS 

The August 19th issue of Electronics contains an excellent 
and comprehensive article detailing the features and capabilities of 
Zilog's Z-80 [see DDJ, Vol. 1, No. 7, for article on Z-80 based 
hobby kits]. The article was written by M. Shima, Federico Fag- 
gin, and R. Ungermann, three of the principals in Zilog. Inciden¬ 
tally, Faggin used to work at Intel, where he designed all Intel 
micros from the 4004 through the 8080. 


GERMAN COMPANY ENTERS KIT MARKET 

Siemens AG, a West German electronics manufac¬ 
turer, has introduced a computer kit for around $200. 

It uses a SAB 8080A micro, and includes a 256 word 
EPROM, some static RAM, a clock generator, and other 
minor tidbits. 


[GIGGLE TIME] 4040 SYSTEM WITH IK OF 
RAM IS PRICED AT $1,195.00 

International Microsystems, Inc. (address presumed 
unwanted by hobbyists) is trying to peddle an assembled 
microcomputer for $1,195.00. That’s a reasonable price 
until you find out that all it has is a 4040, IK bytes of 
RAM, sockets for IK of PROM, a simple front panel, a 
simpler system monitor, and a “Test PROM” program 
. . . and that’s all. 


COMPUTER CHESS TOURNAMENT 

Entries are being solicited to the Seventh U.S. Computer 
Chess Championship to be held October 19-21, 1976 in con¬ 
junction with the ACM Annual Conference in the Hyatt 
Regency Hotel, Houston, Texas. A four round Swiss style 
tournament is planned with the first round on Tuesday, 
October 19 beginning at 8 p.m., and the final round on 
Thursday, October 21 at 8 p.m. The field will be limited 
to 12 teams. David Levy, International Master from England, 
will serve as tournament director. 

For further information and for an application form, 
write to Dr. Monroe Newborn, School of Computer Science, 
McGill University, Montreal, Quebec, H3C 3G1, Canada. 


addresses or 16 & 16. Speed: 12 cycles vs 13 for 
STA or 7 for ADD. 

Programmable interval timer with associated programmable 
vector address when that interrupt comes. 2 byte 
op-code. The parameters could be in memory or be 
operands. There could be 3 or 6 channels. Man¬ 
agement would be a problem. 

We could have a memory address go high if each 
timer was in use; or we could have an automatic 
dispatcher if the parameters were in the operands, 
and have the memory address go high if all the 
timers were in use. 

9. Hardware Random 9-bit number; could have also a ran¬ 

dom decimal number, or a random packed decimal 
number. 

10. Hardware multiply, etc., etc. 

11. What else? 


8 . 
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SIGNETICS 2650 PROTO BOARD FOR $190 

A new hardware development tool for microprocessor- 
based systems that allows a user to configure an accurate 
prototype with a minimum of design effort is now available 
from Signetics. Called the Adaptable Board Computer (ABC), 
the prototyping tool matches the accuracy of a development 
system built from scratch with the convenience of a pre¬ 
assembled prototyping card, according to David Uimari, 
Microprocessor Product Marketing Manager. 

The ABC system consists of a printed circuit board 
with circuitry designed to meet a broad range of proto¬ 
typing requirements; a 2650 microprocessor; 1000 bytes of 
ROM that includes PIPBUG, a Signetics-developed loader, 
editor and debug program, 512 bytes of RAM; both serial 
and parallel input/output ports; and a dual monostable on¬ 
board clock. 

Even without adding components, other options 
can be selected by the user by simply moving jumper 
wires. These options include replacing either the ROM or 
the RAM with PROM, implementing asynchronous oper¬ 
ation, adding external clock input, interrupt vector, and 
RS232 or TTY serial input/output. 

Additional memory or control features, unique input/ 
output circuits and the like, can be added by connecting 
selected components to the existing circuitry with jumper 
wires or wiretap connections. Room for new components 
is provided on the board, with plated through holes in 
place. 

The Signetics ABC system is available in either 
card form or as a kit. The card, which is completely 
assembled and tested, is priced at $275 in unit quantities. 

The kit, which comes complete with all ICs, resistors and 
capacitors, is priced at $190. Both versions are available 
from stock throgh Signetics and its authorized distribu¬ 
tors. 

For further information on the Adaptable Board 
Computer contact Signetics, 811 East Arques Ave., Sunny¬ 
vale, CA 94086, (408) 739-7700. 




There are 2 n possible combinations of data in an 
n-bit RAM and 2n x 2 n cycles required to test them. 
It would take only two seconds to test all of the 
patterns in a 16-bit RAM at one microsecond per 
cycle, and about three days to test a 32-bit RAM. 
But, earliest man, working day and night since his 
birth around 450,000 years ago, could not have 
tested even 1% of a 64-bit RAM's possible pat¬ 
terns. Care to think about the 4K RAM? 

-From a Fairchild propaganda leaflet 


256K BYTE CORE MEMORY FOR $6500 

Dataram Corp., Princeton-Hightstown Rd., Cranbury, NJ 
08512, (602) 799-0071, is offering a 14'.' x 16" board con¬ 
taining 128Kx18 magnetic core memory with 650ns access and 
1.5jjs cycle for $6500 for a single unit and $5070 for 25 units. 
They say their sales are only on an OEM basis, but I betcha 
they'd sell 'em to someone who'll buy 'em. 

And, the nice thing about core is it remembers, even 
when the power dies in the middle of a six-hour program 
development session. 


8K MEMORY INCLUDES BATTERY BACKUP 

Seals Electronics, Box 11651, Knoxville, TN 37919, is 
offering an 500ns access time, 8K memory board that plugs 
into a hobbyist-standard* bus and includes battery backup 
to maintain memory contents when power is turned off 
(by you, or by accident). Its priced at $295/kit or $394 
assembled, plus $2 for shipping. You can use B of A, 
MasterCharge, or 75% C.O D. 

* Up to this point, most people have been refering to the 
default-standard bus that is very widely used in the hobbyist 
community as an "Altair/IMSAI bus". We think its more appro¬ 
priate, now, to call it the "hobbyist-standard bus". 


65K BIT CCD's FROM T.l. 

Texas Instruments expects to offer prototypes of a 65K 
bit CCD (charge-coupled device) memory chip by the beginning 
of 1977. It will have a serial/parallel/serial (SPS) loop con¬ 
figuration, using 32 2K - bit loops. 


65KB CCD's FROM FAIRCHILD...SOONER 

Fairchild expects to deliver 65K CCD chips even sooner; 
beginning fabrication in September and offering samples to se¬ 
lected customers in October. These memory chips, numbered 
CCD465, also use an SPS organization, and have traded speed 
for low cost, low power and high density. Average bit-access 
time will be half a millisecond; worst case will be one ms... 
comparable to most fast discs and drums. 


64K CCD BOARD FOR $1500+ BY END OF YEAR 

BISI, 410 N.E. 72nd, Seattle, WA 98115, (206) 524-4101 
[and Vancouver, B.C.], has recently distributed preliminary in¬ 
formation on a 64K byte CCD (Charge-Coupled Device) 
subsystem. It is to function as a BORAM (Block-Oriented Ran¬ 
dom Access Memory; one reads or writes an entire block of 
bytes for each data transfer); a disc replacement. The proto¬ 
type has been used for about two months in a burroughs system, 
replacing a head-per-track disc and is said to have had essentially 
no failures. 

BISI is targeting for October availability, but sez end-of 
year for sure. The subsystem will plug into a hobbyist-standard 
bus and will require three boards. The CCD board (about $1500) 
the controller board, and the DMA board (no prices suggested on 
the latter two boards). They will probably be available only as 
assembled, burned-in,subsystems, and will have a 90-day warranty. 

Right now, that's still too expensive for hobbyists palates, 
but you can be certain that the cost will drop dramatically in two 
years (or much less), as CCD's become more plentiful and cost- 
competitive. 
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UNIVERSITY OF CALIFORNIA REQUESTS 
SUGGESTIONS ABOUT STAND-ALONE 
COMPUTERS FOR ITS 120,000 STUDENTS 

The University of California is soliciting advice from vendors 
of computer equipment and programs. This is an opportunity to 
consult with us in advance rather than tell us what we should have 
done after the fact. We are earnestly seeking your best thinking 
prior to considering the publication of a Request for Proposal 
which will establish our direction for the near future. This docu¬ 
ment is not a Request for Proposal (RFP) but rather an invita¬ 
tion to share with us your ideas and recommendations whether 
they be basic or "blue sky." Your response to the Request for 
Information (RFI) is voluntary and does not commit either you or 
the University. 

The University wishes to dramatically improve the system of 
delivering computing capability to the 120,000 students on the 
nine campuses and associated sites. Instructional capability has 
been provided through both batch and timesharing services utiliz¬ 
ing existing large computers housed in a computing center located 
on each campus. In the last two years, several of these centers 
have installed timesharing minicomputers which allow for the 
connection of several (typically, 16 to 32) remote terminals, 
through which the student may write programs in BASIC or 
access prewritten programs provided by an instructor ("Course¬ 
ware"). These minicomputer-based timesharing systems have 
proven to be very effective and they have the capability of expand¬ 
ing the services to meet academic needs. Such systems are flexible 
enough to meet a very large percentage of the needs of a very 
large percentage of the students. 

We feel that, now, with the changes being brought about by 
improvements in chip technology and the corresponding explosion 
in microcomputer capability, even lower cost solutions may be 
possible without giving up anything in capability. With any time¬ 
sharing system, unless all terminals can be hard-wired, there will 
be additional costs (beyond the computer and the terminals) for 
modems and communications lines. Technology has been producing 
orders of magnitude improvements in price/performance of com¬ 
puters, but communications costs are rising. Therefore, it seems 
prudent to search for solutions regarding delivery of computing 
which do not depend vitally on communications. Such a model 
might be found in a single-user machine with the following design 
goals: 

Desirable Features 

Interactive programming capability in some language such as 
BASIC or APL. The implementation should include the advanced 
features of the language. 

User space approximately equivalent to that provided in 
multi-user timesharing systems. 

User-removable read/write storage capability with "reason¬ 
able" retrieval times, (diskette, cassette, videodisk, etc.) 

Both character and graphics capability on some screen 
medium. Appropriate software (firmware) extnesions to deal with 
graphics. 

Full typewriter or teletypewriter keyboard facility. Addi¬ 
tional controls for cursor positioning for alphanumeric as well as 
graphics use. 

Some form of course-writing software/firmware such as 
PILOT or DIALOG. 

Editor program for preparation of programs to be executed 
on another computer. 

Provisions for attachment of communications interface. This 
should provide two functions: 

1. Easy interface to a host computer. 

2. Ability to service input data streams from other devices such 
as laboratory experiments. 

Extension Capability 

Additional or alternative language capability. 

Software/firmware for word processing applications. 

Color screens for graphics. 

Provisions for attachment of high-quality impact printer of 
reproduction quality as output from word-processing applications. 


Physical and Packaging 

Two physical versions. The first might be built into a desk or 
tabletop and would be consdiered non-portable. The second would 
be able to be carried by one person for short distances at least. 
Thus, this version would be "portable." The first version could 
be located in groups of five or more in a monitored room, while 
the second could be used in individual offices and classrooms. 

Since the majority of the machines would not have attached 
printers, an additional system type with the capability of produc¬ 
ing hardcopy from the screen image would be needed. It would 
have the ability of printing a page at a time, on request of the 
user, from his removable storage medium. Both graphic and 
character printing would be required. This machine could be 
another version of the One-on-One with special software/firmware 
or an entirely different peice of equipment. 

All equipment would operate from standard 110v 3-wire 
circuits. No special electrical circuits are to be needed. 
Maintainability 

The system would be modular in design, allowing for board 
replacement to correct any failure. Adequate stocks of spare 
boards for each campus should be available. Board repair would 
be done by the vendor. 

Alternatives 

Although this is primarily a request for information for a 
single user system, the University does not wish to prejudge the 
thoughts and development that many vendors may have already 
devoted to the delivery system problem. Since our desire is to 
have the most cost-effective solution possible within the state of 
the art, a discussion of the pro and con of the above suggested 
approach compared with other possibilities would be most help¬ 
ful. For example, a little more software or firmware might pro¬ 
duce a cost-effective solution that might use a small number of 
keyboard devices clustered around a single processor. But the 
questions of file handling, of portability, and communications 
costs would need to be addressed as a minimum. 

Another possible alternative might sllow sharing of disk 
storage and common, read-only firmware while providing a micro¬ 
processor with each local unit. 

If you possess original ideas which might not satisfy the 
requirements anticipated in our possible RFP, the response to the 
RFI would be your opportunity to influence our determination of 
constraints to be incorporated into the RFP, so that your particu¬ 
lar configuration would be eligible for consideration. This is 
important, since it is expected that only those responses to the 
RFP which satisfy State qualifications therein will be accepted, 
i.e., no alternative proposals. Any concept which might run the 
risk of having to be in the alternate proposal category should be 
presented as a'response to the RFI, not the RFP. 

While there is no monetary renumeration for responding to 
this document, efforts expended should provide plans and text- 
material needed for your response to the anticipated RFP. Hope¬ 
fully, the uniqueness and enormity of our problem will be suf¬ 
ficiently tantalizing to serve as an inducement to stimulate your 
thinking. 

Responses to this RFI should be returned by October 1, 

1976. 

Questions 

Technical questions should be addressed to: 

Charles W. Stevenson 
Manager, Computer Planning 
Systemwide Administration 
University of California 
Room 192, University Hall 
Berkeley, CA 94720 
(415) 642-0393 

Procurement matters will be handled by: 

Robert Brilliant 
Purchasing Agent 
University of California 
2405 Bowditch Street 
Berkeley, CA 94720 
(415) 642-0881 
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“MUST" READING FOR ANY NOVICE CONSIDERING PURCHASING A KIT 

BROTHERHOOD, SYMPATHY & EMOTIONAL RELEASE FOR THOSE WHO ALREADY HAVE KITS 

Personal Computers: 

A Bit of Wheat Amongst the Chaff 

A Critique on “Little Hidden Gotchas” 


Found in a Multitude of 

by Jef Raskin 

Box 511, Brisbane CA 94005; (415) 467-4674 

Let it be known: the computer for everyman is not here. 
Yet. Caveat Emptor! The tempting price tags you see in 
the ads are a mere drop in the wallet. These are not 
Heath kits - you need a good bit of understanding of 
electronics and some about software to use them. Either 
that or a lot of patience and good learning habits, or a 
friend who knows what you don’t. Of course, you could 
wait until Heath does come out with one [which should 
happen by the time you read this.—Editor]. 

Having bought and built the two biggest names in 
the personal microcomputer field, the Altair 8800 and the 
IMSA1 8080, I know that there is much to praise. Both 
machines now run perfectly, reliably, and perform within 
their specifications as well as any computer I have worked 
with. They are dependable. I have purchased memories 
from Processor Technology, Dutronics, Solid State Music 
and Cromeco, a total of 52 Kilobytes, and all have oper¬ 
ated, once debugged, without error, week after week. 

The same is true for my IMS parallel I/O board, the 
M1TS SI0 and 2-SIO serial boards, the PT Video board 
and so on. They all work. But, very few of them would 
have worked if I had not had prior electronics and com¬ 
puter experience. 

Before I go on to details, I should mention that I 
write from the point of view of someone who wants to 
use the computers in various applications; not learn about 
computers per se. I chose the kits because they are 
cheaper than anything else currently available (which 
means until approximately next week) in the way of true 
general purpose computers. If you want to be forced to 
learn about hardware the hard way, the inadequate docu¬ 
mentation (and just plain bad writing) that comes with 
almost all the personal computing products and the poor 
workmanship and parts of a few, will make you prema¬ 
turely wise, and give you a bad disposition. 

I will begin with an exception: the Cromemco Byte- 
saver. The quality of the printed circuit is up to the best 
commercial practice. The assembly manual did not lie 
once, and their software documentation was quite adequate, 
including a complete how-to-use-it for the novice and a 
source listing of the “bytemover” program. It is a study 
in How To Do It Right. Component locations are labeled 
on the board. A solder resist pattern keeps the wobJbly 
hand from building bridges where none are colled for. 

The board was straight and true, and well laid out. It 
worked the first time, and caused us no frustration what¬ 
ever. 

On the other hand we have some amazing areas of 
incompetence and oversights. Never in my years of com¬ 
puting have I seen an assembler which omitted any items 
from the computer’s instruction set. Yet Processor Tech- 


Kits 

nology ’s [PT] Software Kit No. 1 omits, for example, the 
POP PSW instruction. It will just not assemble it. This 
explains the otherwise mysterious SP EQU 6 in the source 
listings of the Bytemover and in Tarbell’s listings. They 
must have used the same assembler. You needn’t under¬ 
stand assembler to understand the problem. An assembler 
is primarily a program that takes memorable abbreviations 
and translates them into the more easily forgotten num¬ 
bers the machine feeds on. There is supposed to be a 
mnemonic for each instruction that the machine can use. 

A mere check of the instruction list published by (say) 
Intel would have discovered the fact that some were 
missing from the assembler. That such a check was not 
made is indicative of the malaise that the personal com¬ 
puting industry is suffering: Lousy quality control. 

Quality control must be worked at. I always work 
on computers with my friend, partner and critic, Doug 
Wyatt, another professional computer nut. Whatever I do, 
from circuit design to documentation to soldering 100 
pin connectors into mother boards (yechl), he checks. 
Whatever he does, I check. We use a magnifying glass, 
a dictionary, anything that will help uncover errors. And, 
surprise, our stuff works the first time and keeps on 
working! RULE: You can’t catch all your own errors. 

The Dutronics 8KLST memory shows good quality 
control. It can be assembled according to the instructions 
and work, right off. Though 9 of the memory chips had 
problems (well, pretty good quality control) the 180 or so 
others were fine. While perhaps a step down from Cro¬ 
memco’s sheer professionalism in board layout, documen¬ 
tation and QC (quality control), Dutronic’s instructions 
were clear and current for the board, and the schematic 
was useful and easy to follow. I wonder this: If one or 
two companies can do it right and stay competitive, why 
can’t the others? Is it because the consumers are letting 
them get away with it? 

A Kind Word for the Palo Alto (California) Byte 
Shop is in order here. The nine bad chips were 
instantly replaced with new ones--of course, we had 
bought the memory boards there. And with service like 
that we’ll be back. Not all the computer stores have 
been so helpful, unfortunately. 

The Oliver Audio Engineering OP-80 A paper tape 
reader is a very handsome unit. The instructions were 
not up to the same high aesthetic standards. For exam¬ 
ple, you are told to bend the wire guides that align the 
paper tape with the read head. But they come pre-bent. 
Nothing wrong with that (it does make the kit a lot 
easier), but it seems to me that if Oliver (or whoever) 
goes through the considerable to bend the wires for each 
kit (and very accurately, by the way), is it asking too 
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much that a new page of instructions be typed as well? 
Then, too, we find comments such as “ . . . and align 
the sensor as shown below.” And we are never shown 
below or anywhere else. We are told “Install Jl.” 

Let’s see. Jl is not on the parts list. On the sche¬ 
matic? Nope. There the little bugger is, on the parts 
layout! 

I had problems of this sort with almost every kit. 

A typical kit’s parts list would tell you that there are 
4 74L04’s, the schematic would call them U34, U21, U8 
and U5; the layout diagram would have them labeled 
ICS, IC19, IC32 and IC26; the printed circuit board 
itself would be unlabeled altogether. And, to add insult 
to insult, three of them will be placed with pin one 
facing left and the last one with pin one facing right. 

Better be awake when you assemble this one. A fla¬ 
grant example is the Processor Technology “3P+S” board, 
to which I shall return later. On this board the chips 
actually occur in all four possible rectangular alignments. 
This is pretty poor for a board that is mostly jumpers 
anyway. But back to our typical kit. I should mention 
that there was a little slip of paper which fell out when 
I opened the plastic bag. It said that the 74L04’s were 
actually numbered WT87-9-6221. And just for you 
hackers who solder in your chips, there is an erratum 
(as usual placed at the end of the manual) saying that 
U21 is shown backwards on the parts layout. While 
fuming, remember that you will not only have to un¬ 
solder the thing but that you will have to figure out by 
tracing the schematic and the lands on the board whether 
U21 corresponds to IC5, IC19, IC32 or IC26 on the 
parts layout and, since the schematic is for REV 02 
and the board is labeled REV 03 and the parts layout 
has no REV number at all, you can’t tell if the change 
is still necessary. For newcomers, REV usually means 
“Revision.” 

While I have not run into all these problems simul¬ 
taneously on any one board or kit, they all have occurred 
in real life (if playing with computers is real life). Inciden¬ 
tally, I always use sockets. 

And Caveat Emptor to you if you want three 
parallel ports and a serial port, and you but the PT 
“3P+S” board [3 parallel + 1 serial I/O board]. It works 
fine, to be sure (remember that I began by saying that 
everything does, finally, work) but if you truly need an 
8-bit port, then you will need an extra bit or so for “hand¬ 
shaking.” For example, say a keyboard puts out eight data 
bits. When these are all ready for the computer, the key¬ 
board sends out a signal (usually called the strobe ) which 
tells the computer that a new character is on the data 
lines. Do I hear you ask: “Why can’t the computer tell 
that a new character is there byjust noting when the 
character changes?” Well, just consider the South American 
llama. A computer can’t tell the first “1” from the second 
“1”, and would think you had typed “lama” thus changing 
a beast into a priest. Surprising what computers can do 
these days. Anyway, you need the strobe so you take a bit 
from another port and use it for that handshaking signal. 
Since the second parallel port needs handshaking, you take 
another bit or so from the third port and use it for that 
function. And since the serial port also requires control 
bits and etc., you steal a few more bits . . . Anyway, the 
“3P+S” is a good solid and flexible 2P+S with a control 
port. And, indeed, the instructions (quite extensive, but 
poorly organized), and the schematic all make it clear that 
the third parallel port was intended from the beginning as 
a control port for the others. Once again, marketing, wins 


out over technical accuracy. Most other brands of serial 
I/O boards do include a parallel handshaking port without 
calling themselves, say, a 2SIO+P. 

Now, a kudo for Processor Technology is in order. 
Their Video Display board (VDM-1) was easily built (even 
if it’s got lotsa parts) because the instructions are clear. The 
construction manual even had a good step-by-step checkout 
procedure. It seems to be a product of a different, and 
better, company. And out PT memories all worked per¬ 
fectly in my Altair. Not so in my IMSAI. The memory- 
protect would come on and off capriciously. There is no 
hardware protect switch on the early IMSAIs. Since I am 
not a hardware hacker (ha!) and am entirely above enter¬ 
ing long programs from the switches, I found the memory- 
protect feature less than useless, and unwired the feature 
from my Altair. The Processor Tech memories were ren¬ 
dered perfectly reliable in both machines by replacing the 
7400 used as the meory protect latch with two jumpers. 
This also gave me five spare 7400’s. 

The Processor Tech Altair motherboard is another 
example of lack of care. The fundamental intent was good, 
and the board works, but there is much wasted board 
space, and a pile of bothersome jumpers. This was due to 
too slavishly copying the original MITS board. The bus 
terminator regulator installation is a kludge. Included with 
the motherboard kit were two delrin rods with saw slots 
in them, meant to hold the various daughter boards up¬ 
right. There was an interesting oversight in their design. A 
good way to bend a stiff rod is to cut a series of slots 
part-way through the rod perpendicular to its long axis. 
These slots, intended to hold the boards up, in fact cause 
the rods to arc neatly away from the boards they are 
supposed to hold. This gives a new computer meaning to 
the word “floppy.” 

The Tarbell cassette interface is a prime example of 
good ideas followed by sloppy implementation and negli¬ 
gent documentation. A fault invisible to the naked eye— 
plated-through holes that weren’t—plagued both my boards. 
While some updated documentation I have seen gives a few 
more hints than I got with mine, nowhere are we told, for 
example, that to use the interface, data must be preceded 
by a start byte (3C) and then a sync byte (E6) and then 
comes the data. You can dope this out from the example 
program given and from following through the schematic 
and reading your IC manuals but that should not be 
necessary. You can’t be sure from the sample program 
alone, by the way, that these details are necessary to run 
the board. They might be needed, as far as you can tell 
from the given program, by the particular algorithm being 
used, or perhaps by some other software that Tarbell uses 
somewhere else. Here, too, the assembly drawing did not 
have part values marked, necessitating much flipping back 
and forth from page to page during assembly. / get the 
impression from most kits that the instructions were never 
tested on persons unfamiliar with the device. 


A pet peeve: Cassettes have little tabs to break out if 
you don’t want the stuff on them written over. Not one 
tape pre-recorded by a manufacturer, including the BASIC 
from MITS that I paid for, had the write-protect tabs 
knocked out. Another pet peeve: Some manufacturers’ 
printed circuit boards have a specially shaped land where 
pin 1 of each IC fits. The peeve is this: those who don’t. 

A further peeve: The placing of modification and errata 
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sheets at the end of the documentation. 

And here’s a handful more of horror stories; little 
things that make computers seem much more frustrating 
than they need be. Like the un-numbered pages in so many 
instruction manuals. The IMS PIO board manual is com¬ 
pletely unpaginated. Since I’ve mentioned this manual, let 
me show you how a bit of thoughtlessness on the part of 
the writers cost me a few hours. On page 12 (if you write 
in the page numbers yourself) you are told how to wire the 
address jumper sockets. Good. There are two, the one on 
top is called C8, and the one on the bottom, B9. I must 
be dumb, because I wired the top socket on the board as 
shown for C8, and the bottom socket as shown for B9. 
Wrong. The diagram is schematic in nature, and the 
sockets are not that way at all. If I had bothered to check 
my assembly drawing or memorized the labels for each IC 
position I would not have been so harried. B9, shown on 
the bottom in the illustration is, of course, above C8 on 
the board. 

I think these problems stem from this: the people 
who know best what their equipment is intended to do 
seem to know it so well that they can’t tell new users what 
is going on. Certainly Mr. Tarbell designed his board with 
the idea that a code of 3C was required to get it started. 

But the sentence that would have made this knowledge 
public: “The board must be sent a byte containing 3C 
(in hex) to start it and then a byte E6 (in hex) to syn¬ 
chronize it before sending data.”, does not occur. Similarly, 
if the PT “3P+S” board advertisements and manual stated, 
“This board contains the hardware for one serial port and 
two parallel ports with a separate status and control port 
for them,” I would have had fewer complaints. If the 
manufacturers would test their assembly and user manuals 
on a few people not familiar with the design of the module, 
they would quickly find out how to improve their style. 
And, if we users would stop buying badly kitted equip¬ 
ment, and demand well-written manuals, we’d get improved 
kits and better written manuals. 

The current software situation is even worse. But 
that is a topic for another time. 

A WORD ABOUT THE AUTHOR 

Jef Raskin has been playing with computers since late in 
grammar school. Not that he was often late. He has been Director 
of a small computer center at U.C., San Diego, and taught such 
courses as computer programming, computer animation, computer 
music at San Diego, as well as a number of other colleges, univer¬ 
sities, and in his basement where he has had both an Altair and an 
IMSAI running. He is well known for his heretical belief that 
people are more important than computers, and that computer 
systems should be designed to alleviate human frailties, rather than 
have the human succumb to the needs of the machine. 

Editor’s Note: Further lurid comments by Jef may be 
found on page 8 of August, 1976, Datamation. 


A TIP ON SOLDERING FROM JIM DAY 

A new type of solder, designed to prevent the dissolving 
of printed circuit traces during soldering, has been devel¬ 
oped by Multicore Solders, Westbury, NY 11590. Called 
Ersin SAVBIT, this copper-loaded alloy also reduced the 
pitting of copper soldering iron tips. As every computer 
hobbyist knows, it can be a real nuisance to have to file 
a soldering iron tip every few minutes. (Iron-plated tips 
don’t pit as easily, but cost more.) 


IMSAI OWNERS - BEWARE OF THE MEMORY 
CLOBBERING PHANTOM! 

You’re perking along and suddenly the machine 
blows up. Careful autopsy of the wreckage reveals that 
a string of memory locations has been zapped to 00 or 
02 or 06. And this is happening several times a week. 
The phantom strikes! I have spent nearly a month 
chasing this bug and have found that the culprit is the 
deposit one-shot (U-17) on the front panel. It gets 
triggered while the machine is running by noise on the 
power line which passes right by the one-shot timing 
capacitors - a major design boo-boo. There are several 
approaches to fixing this bug: You can disconnect the 
power switch somewhere else. This may still leave you 
vulnerable to really large noise spikes. You can install 
a pi filter on the power line (two 8 uH 5 amp inductors 
in series with each side with two .03 uF capacitors 
across) or you can disconnect the A input of the one- 
shot and connect it instead to the Q output of the Run/ 
Stop flip-flop. That is, clip pin 9 of U-17 from ground 
and jumper it to pin 5 of U-22. This effectively inhibits 
the one-shot by holding the A input high while the 
machine is running. This last seems to work for me. 

Let me know how yours is doing. 

Pete Cornell Box 1290 

Los Altos, CA 94022 
(415) 948-8269 


TARBELL COMPLAINTS 

We are starting to hear a disturbing number of 
complaints about the Tarbell cassette interface. These 
are disturbing (1) because a number of hobbyists 
appear to be having problems with the units, (2) be¬ 
cause we think the design principles of the Tarbell 
unit are sound and the speed is highly desirable, and 
(3) because we believe that Don Tarbell is sincerely 
trying to offer a good product at reasonable cost. Our 
distinct impression is that Don is one of the “good 
guys”; he is not greedy, and is not trying to rip off 
the hobbyists by intentionally selling imperfect 
equipment. 

If you are having problems, we suggest that you 
write or phone him, directly. Tell him what the 
problem is. If you feel you know a solution, please 
pass it along to him (and to us; we’ll publish it if we 
feel it appropriate to do so). Our impression is that 
Don will make every effort to “do right” by his 
customers. 

To contact him: Don Tarbell, 144 Miraleste Dr. 

No. 106, Miraleste CA 90732; (213) 832-0182. 

[Don, We would be delighted to publish any 
reasonable reply you may wish to forward.] 


BIBLICAL MATHEMATICS 

We hear that Noah told the animals in his ark 
to multiply, and two snakes refused to do so because 
they were adders. Noah overcame this objection, how¬ 
ever. He quickly placed the snakes on a rough-hewn 
wooden table and told them to follow his command, 
for, as we all know, adders can multiply by using a 
log table. -Snickered around PCC 
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HIDDEN GOTCHA FOR 
16K BASIC DOCUMENTATION 


SOURCES FOR 8080 FLOATING POINT ROUTINES 
& A STRUCTURED ASSEMBLER: ML 80 


Gentlepersons: August 16, 1976 

Anyone planning to use the 16K BASIC for the 
8008 should be warned that the publication men¬ 
tioned in Dr. Dobb’s Journal , Vol. 1, No. 3, p. 4, 
does not include a listing. For more details, see the 
Micro-8 Newsletter, Vol. 1, No. 10, p. 15. 

Sincerely yours, 

Robert F. Miles 


PALO ALTO TINY BASIC CONVERTED 
TO INTEL-STANDARD MNEMONICS 

We published complete details of Li-Chen Wang’s 
Palo Alto version of Tiny BASIC in our May, 1976 
issue. This included a well-documented source listing 
for the program. The assembler mnemonics (abbrevia¬ 
tions for machine instructions) that Wang used, how¬ 
ever, were not those used by Intel and by many of 
the 8080 assemblers that are available. Those desiring 
a listing of Palo Alto Tiny BASIC, coded in Intel 
mnemonics, may contact Roger Rauskolb, 3766 Cass 
Way, Palo Alto CA 94306; (415) 493-1501x3608. If 
the demand isn’t too great, he will furnish such 
listings. If the number of requests becomes more than 
he wishes to handle, we will consider publishing his 
translation in the Journal— however, we are not eager 
to do so, since there is so much other good stuff 
awaiting publication. 


CONTRA COSTA COUNTY 
CLUB STARTING UP 

The following person is organizing a computer 
club in the area of Contra Costa County, California. 
Contact him if you are interested in this club—the 
fourth computer hobby group in the San Francisco 
Bay area. 

Eric Bergman, 3188 Kingsley PI, Lafayette CA 
94549; (415) 283-6256. 


A BYTE LOSES SOME BITS 
IN SAN FRANCISCO 

A1 Cherin of the Computer Store of San Fran¬ 
cisco (1093 Mission St., 94103; (415) 431-0640), 
phoned us on August 20th to tell us that his Store 
is now independent of Byte, Inc. He sez he is now 
dealing directly with his sources such as IMS Associ¬ 
ates, Processor Technology, etc. (rather than routing 
his product purchases through the Byte, Inc. 
franchise). 


HOMEBREW IBM OFFICE SELECTRIC 
INTERFACE DESIGN 

Want to use a standard, IBM Selectric I office type¬ 
writer to obtain superb quality computer hard-copy? 
Page 218-220 of Don Lancaster’s TV Typewriter 
Cookbook tells how to do so with a few solonoids 
and some simple, non-impairing mods to the 
typewriter. 


Dear Fleet-foot dentists: June 26, 1976 

May I suggest the following source for floating point routines 
for 8080 systems. 

Cope, S.N., Floating-point Arithmetic Routines and Macros for 
an Intel 8080 Microprocessor, Oxford Univ, 1976. This is avail¬ 
able in the public domain through NTIS, 5285 Port Royal Rd., 
Springfield, VA 22151. Order number N76-11756 as micro¬ 
fiche for $2.25 or paper copy for $4. The routines take 335 
bytes total, give 4Vi digit precision and are relatively fast. Add 
in 0.25 ms, multiply or divide in .75 ms, and square root in 
1.77 ms. These are typical times, maximums are slightly higher. 
The NTIS announcements are beginning to carry assorted micro¬ 
processor oriented reports now that funding and research/pub¬ 
lication lead times have been passed by processor availability. 

While it seems to have a bit of overbyte, their AD-A020055 
($2.25 in fiche, around $8 in paper) reports on ML-80, a PL 
360-like language for the 8080. It needs 16K to run however. 

Sincerely, 

Darrel J. Van Buer and 1516 Electric Ave.,Apt.R 

Hymie, the computer Venice, CA 90291 

(213) 823-6016 

P.S. Hymie is not an acronym. He is named in honor of the 
CONTROL robot. 


INTERRUPT-DRIVEN PASCAL 
AND AN OFFER TO HELP 

Dear Jim, 

I am very interested in a project for a micro version of 
PASCAL. I think the I/O interface of an interactive program¬ 
ming system is even more important than the actual lan¬ 
guage structure. PASCAL'S I/O system lends itself to the kind 
of things I think are needed. In particular it should be 
possible to have interrupt-driven input initialized without wait¬ 
ing for completion. This makes possible real- time programs 
such as Star Trek where entries can be made while the action 
continues. This is essential for the whole class of real-time 
games. 

My interest is in the 6800 primarily. Let me know if I 
can provide any help in your PASCAL project. 

Dr. Brian W. Johnson 1525 Westlake 

Plano TX 75074 

Can you help? Sure! Much is needed: tutorials describ¬ 
ing how to program in a block-structured language, a brief 
historical article, notes on the advantages of PASCAL over 
other block-structured languages such as ALGOL and PL/I, 
well-documented sample programs and games written in 
PASCAL, a detailed comparison of PASCAL with BASIC 
including examples, and much, much more . . . LOTS to do! 

Incidentally, PASCAL as Wirth originally designed it, 
did not have anything especially unusual or exciting for I/O. 

In particular he did not concern himself with interrupt-driven 
I/O. Per Brinch Hansen did, however. Brinch Hansen extended 
Wirth's original design into "Concurrent PASCAL," which is 
(1) explicitly designed to handle parallel processing problems, 
and (2) is implemented on PDP-11's. —JCW 


I wish to express a certain disgruntlement with some 
of the gargoyles that have been constructed on the 
cathedral of LISP. 

—John McCarthy, speaking at a Menlo Park SIGPLAN meeting. 
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How to Make 

the 6800 Resident Assembler 


Work in Your System 


by Tom Pittman 

(Reprinted with permission from the Homebrew Computer 
Club Newsletter) 

These two programs were designed to co-reside in 8K 
of RAM with 762 bytes of workspace remaining 
for edit buffer or symbol table. If you have 
more, your workspace is thus larger. Also, both the 
editor and assembler are designed to be able to use the 
other’s program space for additional workspace if desired. 
Figure 1 is a memory map of the system. The first two 
pages (locations 100-2B5) in these two programs are the 
same, and contain all of the I/O routines for both. If 
location 300 is non-zero, the Editor will use the assembler 
program space for additional buffer. The Editor is 
designed to use all available contiguous memory, but the 
Assembler will limit its symbol table to memory below 
2000, or below the contents of 301-302. 

The key to the I/O routines is a “transfer vector” 
starting in location 0100. The are 19 or so JMP 
instructions in this vector which permit access to all of 
the routines, so that the entry to the routines do not 
depend on their sizes. By careful analysis of these rou¬ 
tines I have made the following determinations. 

The I/O routines are designed to work with a Tele¬ 
type ASR33 or Silent 700 with cassettes, where the same 
data is used for both printed and tape copy. The paper 
tape reader on the terminal may be controlled either by 
X-ON/X-OFF or by a relay connected to an I/O line on 
the computer. The punch is controlled by TAPE/TAPE- 
or the program is instructed to make separate punch 
passes. There are two versions of the I/O routines, one 
for MIKBUG which uses a PIA for the TTY interface, 
and one for EXBUG, which uses an ACIA. MIKBUG is 
a crummy operating system (it was designed as an evalua¬ 
tion program), and Motorola is pretty tight about giving 
out information on EXBUG except with the sale of an 
Exorciser, so unless you have one of these in your system 
you are probably better off rewriting the I/O. 

The tape I have seen was done for EXBUG, and 
since it is most likely to be the same as your copy, the 
following remarks apply to that version. 

There are 31 references to upper memory in the 
I/O routines (none in the main part of the assembler and 
editor; I checked). Of these, there are four references to 
FF02 (locations 018B, 01CD, 023F, and 025F); this is 
apparently a flag to indicate whether the terminal is a 
Silent 700 or not, with 00=not. All four are TST instruc¬ 
tions, which may be altered to test any zero memory 
location. There are two references to FF62 and one to 
FF53 (0154, 023C, and 0271), which seem to be related 
to the EXBUG I/O flags; they may be NOPed out (three 
NOPs will replace each reference). 

It is assumed that location FCFD contains some 
kind of constant for the paper tape reader control; this is 
fetched in locations 01DE and 0205. Bit 5 of this byte 
should be 0, and bit 6 should be 1 if RTS of the ACIA 
is used for reader control, and zero otherwise; bits 0, 2, 


FFFF 

FFOO 

FCOO 

FOOO 

2000 

1D06 

1640 

0300 

02B6 

013F 

0100 


RAM (EXBUG) 


I/O 

EXBUG 


ADDITIONAL 
WORK RAM 


FOR EDITOR 


ASM SYMBOL TABLE OR WORK RAM 


EDITOR 


ASSEMBLER 


BUFFER STORAGE 


I/O ROUTINES 


JUMP TABLE 


TEMP STORAGE ROOM 


Figure 1. (EXBUG) Resident Assembler And Editor 
Memory Map 


and 4 should be ones. It may be convenient to NOP out 
these two fetches, and replace the opcodes of the respec¬ 
tive following instructions with LDA A immediately 
(instead of AND A). Note that bit 5 enables interrupts, 
which may not be desired, so No. 15 should be used 
instead of No. 35. 

The ACIA is assumed to be at locations FCF4-FCF5. 
Two references to its control register are used to turn the 
paper tape reader on and off (locations 01E3 and 020A). 
Two references to the input data register (locations 0212 
and 0215) occur to clear out any remaining input after 
turning off the reader. Location 0287 checks the status 
register for imput during a timeout loop, and 028D reads 
the data character when it comes. If your ACIA is in a 
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different location, you may later the addresses in these 
instructions. 

There are seven subroutines in EXBUG which are 
called from these I/O routines. Of these, four directly 
must have correspondence in your system. They input 
a single character from the ACIA, output a single charac¬ 
ter, and exit to the monitor or operating system; they 
are summarized in Table 2. 

Table 2 also shows the calls for composite opera¬ 
tions. These, however, may be encoded easily to rely 
only on the single character imput and output func¬ 
tions. The discussion to follow describes how these 
functions may be encoded in an arbitrary system. 

Assume that your operating system provides a 
single call each for one character input “INPUT”, and 
one character output “OUTPUT”. We also assume that 
if your terminal requires nulls between the CR and LF 
that your operating system will detect the CR and insert 


* Type CR & LF 


F021 

LDA A 

#OD 

Carriage return 


JSR 

OUTPUT 



LDA A 

#OA 

Line feed 


JMP 

OUTPUT 


* Type String 



F024 

JSR 

F021 

First type CRLF 

F027 

LDA A 

0,X 

Get character 


INX 


Increment to next 


CMP A 

#04 

Is it end? 


BEQ 

EXIT 

Yes. 


JSR 

OUTPUT 

No, type it. 


BRA 

F027 

Go get another. 

EXIT 

RTS 


Quit when done. 

* Input & Output Links 


F015 

JMP 

INPUT 


F018 

JMP 

OUTPUT 


F9CF 

JMP 

OUTPUT 



Figure 2. I/O Linkages to substitute for EXBUG 


* File/Terminal I/O separator 


INPUT 

TST 

RDRON 

Check if File Input 


BEQ 

TERMIN 

No, Terminal. 


BRA 

FILEIN 

Yes, file. 

OUTPUT 

CMP A 

#11 

Reader-On Control? 


BEQ 

XON 

Yes. 


CMP A 

#12 

Tape-On? 


BEQ 

TAPE 

Yes. 


CMP A 

#13 

Reader Off? 


BEQ 

XOFF 

Yes. 


CMP A 

#14 

Tape Off? 


BEQ 

NT APE 

Yes. 


TST 

PCHON 

Is “Punch” on? 


BEQ 

TERMOUT 

No, Terminal. 


BRA 

FILEOUT 

Yes, file. 

XON 

INC 

RDRON 

Turn on “reader” = 1 
input. 


RTS 



XOFF 

CLR 

RDRON 

Turn off file input. 


RTS 


TAPE 

INC 

PCHON 

Turn on file output. 


RTS 


NT APE 

CLR 

PCHON 

Turn off file output. 


RTS 



Figure 3. Suggestion for Terminal/File separation 


the necessary nulls in the output call. If you have 
separate devices for file input and output which do not 
go through the terminal I/O, the beginning of INPUT 
and OUTPUT will be complicated sufficiently to dis¬ 
tinguish file I/O from terminal I/O as described a little 
later. 

Figure 2 is a sample program to provide the 
functions supplied by EXBUG. The various entries 
are labeled in the listing by the address in EXBUG 
which provides the same function (see Table 2). Nor¬ 
mally you would include these routines in your oper¬ 
ating system monitor, and patch jumps to them from the 
I/O linkages in lower memory. If you do this, you 
probably also wish to modify the references to upper 
memory described earlier to point to your own AClA. 

For a completely generalized I/O system, you need 


LOCN FUNCTION 

0100 Beginning of Assembler 

0103 Beginning of Editor 

0106 Initialize I/O flags in F2, F5, F6 

0109 Output character in A to Punch, adding 
LF to CR 

0100 Punch character string pointed to by 
X, ended by 04 

01 OF Input (buffered) character from reader 

to A 

0112 Read a line into input buffer; first char to A 

0115 Type character in A, adding LF to CR, conv 

Tab to space 

0118 Input character (from keyboard) to A 
01 IB Input character to A (with no echo?) 

01 IE Type text string on new line 

0121 Type text string pointed to by X, ended by 04 

0124 Type CR & LF 

0127 Punch 32 Nulls for leader 

012A Turn on Punch (if not already on) 

012D Turn off Punch 

0130 Jump to monitor (exit from program) 

0133 Jump to 01 IE 

0136 Jump to 0121 

Table 1. I/O Routines Jump Table 


CALL CALL FUNCTION 

FROM TO 

0157 F015 Accept input character from terminal 

0177 F018 Type character to terminal (or punch) 

01A5 

01E8 

020F 

0130 F564 Monitor exit 

01D4* F9CF Output character to ACIA 

01D9* 

0246* 

024B* *these calls are skipped if location 

0250 FF02 (or its substitute) is = 00 

0255 
025C 
0266* 

026B* 

01 IE F024 Type string on new line 
0121 F027 Type string 

0124 F021 Type CR & LF 

Table 2. Assembler and Editor calls to EXBUG 
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QUIBLETS ABOUT TINY BASIC AND THE JOURNAL 


to set up separate calls for I/O on the terminal-console 
and I/O on the data file. Operating system commands can 
then be used to designate different devices as file or 
terminal, so that for example, you can assemble from 
cassette or paper tape, edit from one device to another, 
etc. Figure 3 shows how two flag bytes in RAM some¬ 
where (labeled PCHON and RDRON) can be used to 
direct a single stream of output to either the terminal or 
the output file, and conversely to accept a byte from either 
the terminal or the input file. Note that this routine traps 
the Teletype Tape controls to select the data stream, and 
does not pass these controls through to the output. If 
you are going to do this, you should delete references to 
the ACIA from the I/O routines in lower memory (see 
Table 3), and insert the following instruction in the input 
routine in lower memory: 

01EF JSR FILEIN 

Note that the monitor subroutine FILEIN (as all good 
monitor routines) should not alter the Index register or 
the B accumulator. On return, FILEIN leaves the Carry 
flag set to one to indicate an end-of-file, otherwise the 
carry is cleared. In the case of an end-of-file, the A 
should still contain some appropriate character (I real¬ 
ize this is not the proper way of designing a system--so 
complain at Motorola) such as hex 1A (Control Z, which 
is not the ASCII EOF, but is used by these programs as 
an EOF character). 

It should be noted that most of this information was 
inferred by analysis of the dis-assembled software, and 
lacks some of the insight afforded by true annotated 
assembly listings. Therefore, no warranty is made for the 
accuracy of the interpretations presented here. I have 
attempted to verify my findings, and it does seem to work. 
Please let me know if you find any differences or excep¬ 
tions to this analysis. 


LOCN 

0154 

023C 

0271 

018B 

01CD 


INSTRUCTION 
INC FF53 
INC FF62 

CLR FF62 

TST FF02 


FUNCTION 

?? 

Exbug Punch-on flag 
turned on 

Exbug Punch-on flag 
turned off 

Silent 700 flag (0=off) 


Dear Bob, July 1, 1976 

Some comments on D.D.J.C.C.&O.UM! First, Tiny BASIC 
itself: Basically OK (I'm sorry about that. . .really I am) but it 
lacks some flexibility because you don't have floating point math 
and a few simple functions like sin and cos. Look at it this way- 
with Tiny BASIC extended you are halfway there to writing 4K 
BASIC. . .25% of the way to 8K BASIC. In my opinion it is a 
vnsste of a $1000 machine to be running just TB on it, when if 
you just added another $100 or $200 you could be running some 
superior software. Of course there is the problem of getting the 
software cheap too, so I may be wrong to say that. 

Since I am sure everyone is patting everyone else on the 
back what with D.D.J.C.C.&O, I guess you can hear some criti¬ 
cism. You may have made a mistake by introducing a new news¬ 
letter and taking stuff out of P.C.C. The way I got interested in 
home computing was by reading all about assembler and machine 
code and hardware in P.C.C. If you take it out, you may be 
isolating high school people playing games on big systems from 
home computer people, since the high level language programmers 
won't bother with a newsletter for home system people. Fur¬ 
thermore there are now two newsletters, not one, and you know 
how bad it is to pay for all that stuff. Maybe you could offer 
a special rate when people subscribe to both at once, or send a 
free issue to people who subscribe to P.C.C. for the first time. 

This may, on the other hand, work out OK since you will 
now have room in P.C.C. to explain stuff like assembler, machine 
code, and hardware in P.C.C. and not just list it or mention it. 
[Yes!] 

Who is this Dr. Dobb character anyway? [A visitor from 
the planet Pern.] 

One last item: I've seem BASIC take a lot of knocks 
lately, what with people saying,"BASIC is a very inefficient lan¬ 
guage and it doesn't suit the needs of the home computer user 
and besides it is hard to learn and who said we need it anyway 
and there must be a better language for games etc., etc., etc." 
but I have yet to see any concrete stuff in the way of ideas for 
a better language. Besides, you don't see people clamoring for 
FORTRAN or COBOL for their home systems! Or how about 
JCL! Think, if you were designing the ideal language what 
would you put in it? Well, first we need something to print 
stuff on the terminal so we’ll use a PRINT statement and then 
we need to be able to jump from one spot to another so we’ll 
use a GOTO. I guess maybe PL/M or something might be 
better but if all the software brains in all the computer software 
factories can't come up with anything better, knowing that their 
users will pay millions of dollars for it, why should some people 
who mess around with this stuff in their spare time think they 
can? Sorry to get crabby like this (again) but you know how it 
is. 

Steve North 7 Deerhaven Lane 

Newfoundland, NJ 07435 


023F 

025F 

>5 99 

99 99 


LOCN 

FUNCTION 

01DE 

LDA A FCFD 

Fetch reader control 
type flag 

00F0-1 

Temporary storage for Index register 

0205 

01E3 

99 99 

STA A FCF4 

Turn on RTS in ACIA 

00F2 

Input Buffer non-void flag 

020A 

LDA A FCF4 

Turn off RTS in 

ACIA 

00F3-4 

Input Buffer pointer 

0212 

0215 

LDA A FCF5 

99 99 

Discard pending input 

00F5 

Input flag (no timeout if set) 

0287 

LDA A FCF4 

Test for input during 
timeout loop 

00F6 

Punch Flag 0=print only 

028D 

LDA A FCF5 

Input character in 

ACIA 

00F7 

Input flag ?? 

Table 3. 

Data References 

to Upper Memory 

Table 4. 

References to Page 0 by I/O Routines 
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A 6502 Disassembler from Apple 


by Steve Wozniak & Allen Baum 

Apple Computer Co., 770 Welch Rd., No. 154 
Palo Alto CA 94304; (415) 326-4248 

DESCRIPTION 

This subroutine package is used to display single or 
sequential 6502 instructions in mnemonic form. The sub¬ 
routines are tailored to disassemblers and debugging aids, 
but tables with more general usage (assemblers) are in¬ 
cluded. The subroutines occupy one page (256 bytes) and 
tables most of another. Seven page zero locations are used. 

FEATURES 

Four output fields are generated for each disassem¬ 
bled instruction: 1) Address of instruction, in hexadecimal 
(hex); 2) Hex code listing of instruction, 1 to 3 bytes; 

3) 3-character mnemonic, or “???” for invalid ops (which 
assume a length of 1 byte); and 4) Address field, in one 
of the following formats. 

Format Address Mode 

(empty) Invalid, Implied, Accumulator 
$ 12 Page zero 

$1234 Absolute, Branch (target printed) 

#$ 12 Immediate 

$12,X Zero page, indexed by X 

$12,Y Zero page, indexed by Y 

$1234,X Absolute, indexed by X 

$1234,Y Absolute, indexed by Y 

($1234) Indirect 

($12,X) Indexed Indirect 

($12),Y Indirect Indexed 

Note that unlike MOS TECHNOLOGY assemblers, 
which use “A” for accumulator addressing, the APPLE 
disassembler outputs an empty field to avoid confusion and 
facilitate byte counting. 

USAGE 

The following subroutine entries are useful. 

DSMBL Disassembles and displays 20 sequential instruc¬ 
tions beginning at the address specified by the 
page zero variables PCL and PCH. For example, 
if called with $D2 in PCL and $38 in PCH, 20 
instructions beginning at address $38D2 will be 
disassembled. PCL and PCH are updated to con¬ 
tain the address of the last disassembled in¬ 
struction. Must be called with 6502 in hexa¬ 
decimal mode (‘D’ status bit clear). All proces¬ 
sor registers are altered (except S—stack pointer). 
Uses INSTDSP and PCADJ. 

INSTDSP Disassembles and displays a single instruction 
whose address is specified by PCL and PCH. 

Must be called in hexadecimal mode. All pro¬ 
cessor registers (except S) are altered. Uses 
PCADJ3, PRPC, PRBLNK, PRBL2, PRNTAX, 
PRBYTE, and CHAROUT. 

PRPC Outputs a carriage return, 4 hex digits corres¬ 
ponding to PCH and PCL, a dash, and 3 blanks. 
Alters A, clears X. Uses PRNTAX and 
CHAROUT. 

PRNTX Outputs the contents of X as two hex digits. 
Alters A. Uses CELAROUT. 

PRNTAX Outputs two hex digits for the contents of A, 


then two hex digits for the contents of X. A 
is altered. Uses CHAROUT. 

PRNTYX Same as PRNTAX except that Y and X are 
output. Alters A. Uses CHAROUT. 

PRBLNK Outputs 3 blanks. Alters A, clears X. Uses 
CHAROUT. 

PRBL2 Outputs the number of blanks specified by the 
contents of X (0 for 256 blanks). Alters A, 
clears X. Uses CHAROUT. 

PRBL3 Outputs a character from the A register fol¬ 
lowed by X-l blanks. In other words, X speci¬ 
fies the total number of characters output. (0 
for 256 blanks). Alters A, clears X. Uses 
CHAROUT. 

PCADJ (PCLJPCH) + 1 + (contents of page zero variable 
LENGTH) -*Y & A (low order byte in Y). For 
example, if PCL = $D2, PCH = $38, and 
LENGTH = 1 (corresponding to a 2 byte instruc¬ 
tion), PCADJ will leave Y = $D4 and A = $38. 
X is always loaded with PCH. 

PCADJ2 Same as PCADJ except that A is used in place 
of LENGTH. 

PCADJ3 Same as PCADJ2 except that the increment 
(+1) is specified by the carry (set = +1, 
clear = +0). 

RUNNING AS A PROGRAM 

The following program will run a disassembly. 

Supplied on APPLE-1 r 9F0 200 8 JSR DSMBL 

cassette tapes. ^ 9F3 4C1FFF JMP MONITOR 

First, put the starting address of code you want dis¬ 
assembled in PCL (low order byte) and PCH (high order 
byte). Then type 9F0 R CR (on APPLE-1 system). 20 
instructions wifi be disassembled. Hitting R CR again will 
give the next 20, etc. 

Cassette tapes supplied for the ACI-1 (APPLE Cas¬ 
sette Interface) are intended to be loaded from $800 to 
$9FF. 

NON-APPLE SYSTEMS 

Source and object code supplied occupies pages 8 and 
9. All code is on page 8, tables are on page 9. These 
tables may be relocated at will: MODE, MODE2, CHARI, 
ChAR2, MNEML, and MNEMR. The code may also be 
relocated. Be careful if you use pages 0 or 1. Page 1 is 
the subroutine return stack and page 0 must contain 7 
variables (to use DSMBL). These may be relocated on page 
0 but PCL must always immediately precede PCH for 
(Z-page), Y addressing. 

$40 FORMAT Used 
locations $41 LENGTH -i by 

used $42 LMNEM INSTDSP, 

by { $43 RMNEM DSMBL 

supplied $44 PCL i Used by PCADJ, 

code $45 PCH 5 INSTDSP, DSMBL 

$46 COUNT }Used by DSMBL only 

MODIFICATIONS 

a) To change *#’ to “=’ for immediate mode change 
location $955 (on code enclosed) from a $A3 to a $BD. 

b) To skip the ‘$’ (meaning hex) preceding disas¬ 
sembled values make the following changes: 
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946: 01 
947 : 02 (was 82) 

94C: 11 (was 91) 

94D: 12 (was 92) 

94E: 06 (was 86) 

950: 05 (was 85) 

951: ID (was 9D) 

95B: 00 (was A4) 

95C: 00 (was A4) 

c) To have address field of accumulator-addressed 
instructions print as ‘A’. 

1) Must skip $ preceding disassembled values 
by making modification b) above. 

2) Change the following locations: 

949: 80 (was 00) 

957: Cl (was A4) 

d) To add ROR and addressing modes, change the 

following locations: __ 
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A Number Game for the 6502 


by Steve Wozniak 

Apple Computers, 770 Welch Rd., Suite 154 
Palo Alto CA 94304; (415) 326-4248 


DESCRIPTION 

MASTERMIND is a number guessing game. In this 
version the computer generates a 5-digit, random number 
where the digits are limited to 0 through 7. The user at¬ 
tempts to guess the number in the fewest possible tries. 
After each guess the computer informs the user as to how 
many digits were correct (contained in the random num¬ 
ber) and in the correct position by printing *+’ signs, and 
how many digits are correct and in the wrong position with 
’ signs. The user is not informed as to exactly vhich digit 
positions the *+’ and the *- ’ signs correspond. A skilled 
player can usually win in 6 or 7 tries. 


THE PLAY 

1. Computer prints ‘READY?’ 

2. User hits any key when ready (not echoed). A 
random number is generated by counting from the 
‘READY?’ message to key depression. 

3. Computer prints ‘01’ * for move number 

Cursor left here. 

4. User enters his 5-digit guess following the move 
number. Remember that valid digits are 0 through 7 only. 
Entering any invalid character cancels the line and the 
computer repeats step 3 for the current move. This may 
be used to cancel errors. 

5. Immediately after entering the 5th digit of his 
guess, the computer will print a number of *+’ signs (for 
correct digits in correct positions) followed by a number of 
‘- ’ signs (for correct digits in incorrect positions). This 
‘score’ is indicated to the right of the guess and does not 
indicate the specific digit positions involved. Play resumes at 
3 for the next move number except for a win. Examples 
follow: 


Scoring Examples for Random Number 12154 


Move Guess 

Score 


01 

33366 


(none correct) 

02 

00018 


(line cancelled due to invalid digit, 8) 

02 

00011 


(2 digits right, in wrong positions) 

03 

11234 

++- - 

(4 digits right, 2 in correct positions, 
2 in wrong positions) 

04 

11325 

+- 

(4 digits right, 1 in correct position) 

05 

13216 

+- - 

(3 digits right, 1 in correct position) 

06 

44444 

+ 

(1 digit right in correct position) 

07 

55555 

+ 

(l digit right, in correct position) 

08 

12154 

+++++ 

YOU WIN (win message) 


READY? (for next game) 


RUNNING ON APPLE-1 SYSTEMS 

The source and object listings provided will run on 
APPLE-1 systems. The program loads in locations $300 
through $3AE and uses the following page 0 locations for 
variables: 

$F2 TRIES (no. of tries - 0 to 99 BCD) 

$F3 RNDL i Binary 

$F4 RNDH random number 

$F5 RND2L (Temp.) 

$F6-$FA N (5 digits of unpacked random no.) 

$FB-$FF GUESS (User guess) 

RUNNING ON OTHER SYSTEMS 

1. The LDA STROBE instruction at loc. $313 (on 
supplied listing) senses for a key down condition after the 
READY? message. This is used to generate a random num¬ 
ber corresponding to the delay before a key is depressed. 
The code is written for a negative value to indicate ‘key 
down’ (by = 1) and a positive value (by = 0) to indicate 

no key down. This instruction is followed by a JSR 
CHARIN instruction whose only purpose is to clear the 
strobe. The character returned is not used. Thus the user 
must provide an address for the LDA STROBE instruction 
corresponding to his hardware and must insure that the 
CHARIN subroutine clears the strobe. 

2. A CHARIN subroutine must be provided to read 
one ASCII character with by set. Do not use the CHARIN 
subroutine provided as it uses APPLE-1 I/O assignments. 

The character read must be returned in the A-Reg. The 
Y-Reg may be altered by CHARIN but not the X-Reg. If 
by is returned clear (=0) then the EOR #$B0 instruction 
at loc. $34E (on supplied code) must be changed to an 
EOR #$30. 

3. A COUT subroutine must be provided which out¬ 
puts one ASCII character (passed in A-Reg). If the user 
output device requires line feeds with carriage returns then 
the COUT routine must intercept the carriage return char¬ 
acter ($8D) and output the necessary CR-LF combination. 
All computer generated text has by=l. No registers (A,X,Y) 
may be altered. 

4. PRBYTE subroutine must be provided which out¬ 
puts one byte (passed in A-Reg) in hexadecimal (printing 
2 digits). No registers need be preserved. The following 


routine will do: 

PRBYTE PHA 

Save for LSD 

PRHEX 

LSR 

LSR 

LSR 

LSR 

JSR PRHEX* 
PLA 

AND #$F 

MSD to LSD position 

Output MSD first 

Restore A 

Mask LSD 

PRHEX* 

ORA #$B0 

Add “0” 

TOCOUT 

CMP #$BA 

BCC TOCOUT 
ADC #$6 

JMP COUT 

(May be skipped if used for 
/MASTERMIND only, since 
(only BCD digits supplied. 
Output ASCII and return 
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THE BOUNCING BEASTIE 

A RANDOM WALKER FOR PROCESSOR TECH ’S 
VDM 

by Marvin R. Winzenread 

If you have a Processor Technology VDM or any dis¬ 
play that reads directly from memory;and at least 256 bytes 
of other memory, here is a random walk program you might 
like. 


* * 

The program was assembled using P.T.’s software No. 1 
on a system of only 8K, so the comments were added later. 

I hope you enjoy my turtle. 


0000 

31 

A1 

00 

0003 

3E 

00 


0005 

D3 

8C 


0007 

21 

00 

88 

000A 

36 

20 


oooc 

23 



0000 

7C 



000E 

FE 

8C 


0010 

C2 

OA 

00 

0013 

21 

20 

8A 

0016 

36 

07 


001 8 

78 



0019 

E6 

03 


0013 

CA 

24 

00 

00 IE 

01 

FF 

IF 

0021 

C3 

27 

00 

0024 

01 

FF 

OF 

0027 

0B 



002 8 

78 



002 9 

FE 

07 


0028 

C2 

27 

00 

002E 

36 

2A 


0030 

CD 

72 

00 

0033 

47 



0034 

E6 

01 


0036 

C4 

5E 

00 

003 9 

78 



003A 

E6 

02 


003C 

C4 

69 

00 

003F 

78 



0040 

E6 

40 


0042 

C4 

4E 

00 

0045 

78 



0046 

E6 

80 


004 8 

C4 

56 

00 

004B 

C3 

16 

00 

004E 

23 



004F 

7C 



0050 

FE 

8C 


0052 

CO 



0053 

26 

88 


0055 

C 9 




LXI 6,AR+6 
MVI A.O *\ 

OUT 8CH # 

AG LX I H.»8800h 1* 
ST MVI Ms20H \ 



Set Stack Pointer 


Initialize VDM 


Start in Center of Screen 
Looks like a turtle to me 


A wait routine to slow the action to human speeds 


Experiment with different fonts 
Could be INOFFH If you want to control the action 


MOVE 


Move right 
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0056 

2B 



8200 

LF DC X H 

\ 

0057 

7 C 



82 10 

MOV A* H 

0058 

FE 

87 


8220 

CPI 87 H * l 

00 5A 

CO 



8230 

RNZ 

005B 

26 

8B 


8240 

MV I Hj 8BH '**’ 

005D 

C 9 



82 90 

RET J 

005E 

1 1 

CO 

FF 

8300 

UP LXI D,0FFC0H \ 

0061 

1 9 



83 10 

DAD D 

0062 

7C 



8320 

MOV As H 

0063 

E6 

F3 


8330 

ANI 0FBH^“ 

0065 

F6 

08 


8340 

ORI Q8H > 

0067 

67 



8350 

MOV H*A 

006 8 

C 9 



83 90 

RET J 

006 9 

1 1 

40 

00 

8400 

DM LXI D,40H 

) 

006C 

1 9 



8410 

DAD D 

0060 

7 C 



8420 

MOV AiH 

006E 

£6 

FB 


8430 

ANI 0FBH * / 

007 0 

67 



8440 

MOV H*A 

007 1 

C 9 



84 90 

RET 

J 

0072 

E5 



8600 

RND PUSH H A 

0073 

21 

9A 

00 

8610 

LXI H* S H+3 V 

0076 

06 

08 


8620 

MV I B* 8 / 

007 8 

7E 



8630 

MOV A,M 


007 9 

07 



8640 

RTOP RLC 


007 A 

07 



8641 

RLC 


007B 

07 



8642 

RLC 


007C 

AE 



8650 

XRA M > 


007 D 

17 



8660 

RAL 

007 E 

17 



8661 

RAL 

007 F 

2D 



867 0 

DCR L 

00 80 

2D 



8671 

DOR l 

00 81 

2D 



8672 

DCR L 

00 82 

7E 



8680 

MOV A,M 

00 83 

17 



86 90 

RAL 

00 84 

77 



86 95 

MOV M,A 

00 85 

2C 



8700 

I NR L 

00 86 

7E 



8710 

MOV A« M 

00 87 

17 



8720 

RAL 

0088 

77 



8730 

MOV M«A 

00 89 

2C 



8740 

I NR L 

00 8A 

7E 



87 50 

MOV A* M 

00 8B 

17 



8760 

RAL 

00 8C 

77 



8770 

MOV M.» A 

00 8D 

2C 



87 80 

I NR L 

00 8E 

7£ 



87 90 

MOV A,M 

00 8F 

17 



8800 

RAL 

00 90 

77 



8810 

MOV M,A 

0091 

05 



8820 

DCR B 

00 92 

C2 

79 

00 

8830 

JNZ RTOP 

0095 

El 



8840 

POP H 

00 96 

C9 



8850 

RET 

0097 




9000 

SH DS 4 

00 9B 




9010 

AR DS 6 


Move left 


Up 


Down 


A random number generator from P.C.C. 


*My VDM is addressed as: 8C = Port address 
8800 — 8BFF = Memory 
If yours is addressed differently you need to 
make changes in these statements. 
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TBX Additions: 


String Handling & a New Print Delimiter 


Dear Dr. Dobb, August 12, 1976 

I have implemented the Whipple/Arnold TINY BASIC 
[. DDJ , Vol. 1, Nos. 1&2], and am really excited about 
the super job they did. 

[ I have several modifications to it (any system worth 
having is worth modifying to your own desires). Most 
of the modifications are of interest only to me. How¬ 
ever, a fevy modifications may be of general interest, so 
I am offering them to you to share as desired. 

Since I am a programmer by profession, I owe my 
soul to the company store. So If you publish this, 
please sign me as -- 

The Penny Tiger 

STRING HANDLING FOR TINY BASIC 

1 have incorporated a rather austere character string 
capacity into the Whipple/Arnold version of TINY BASIC. 
Although it is somewhat clumsy to work with, it does 
make character string input, output, storage and manipu¬ 
lation possible, so it can’t be all bad. 

It involves two modifications to the TINY BASIC 
interpreter; one to the processor for the IN statement, and 
oen to the processor for the PR statement. These changes 
utilize a special variable named “@”. (This has always been 
an available but unadvertised variable name in TINY BASIC.) 

The changes assume that the variable “@” is an array 
and has been singly dimensioned to the maximum permis¬ 
sible character string length. 

When the statement 
IN @ 

is executed, the user may type in any character string. The 
characters typed in are placed in array elements @(1), @(2), 
etc., until a carriage return is entered. The carriage return 
is also stored in the array. These may then be thought of, 
in storage, as being numeric representations for the charac¬ 
ters. For example, the letter A is stored as the decimal 
number 65, the character 4 is stored as 52, and a carriage 
return is stored as 13. 

If the number of characters typed in equals the dimen¬ 
sion of @, no further characters are accepted and control 
is returned to the program. In this case, no carriage return 
is placed in any element of @. 

When the statement 
PR @ 

is executed, the character representations for the numbers 
stored in successive elements of @ are printed, until either 
a carriage return is encountered, or all elements of @ are 
printed. The carriage return is not transmitted. Thus, the 
data input from an IN @ statement may be directly 
printed by the PR @ statement. For example: 

10 DIM @(20) 

20 PR “WHAT IS YOUR NAME” 

30 IN @ 

40 PR “HELLO” ;@; “-HOPE YOU HAD A NICE DAY” 

50 END 

RUN 

WHAT IS YOUR NAME 

? ALICE 

HELLO ALICE - HOPE YOU HAD A NICE DAY 

The data entered may be inspected or modified by the 
program as desired, if you remember that what the pro¬ 
gram sees is numbers. For example: 


10 DIM @(4) 

20 PR “WANT RULES”; 

30 IN @ 

40 IF @(1)=78 GOTO - 

50 PR “HERE ARE THE RULES: —” 

In this case, if the response begins with N (coded as 
78 decimal), the program assumes NO and skips printing 
of the rules. 

Of course, if more than one character string must be 
maintained by the program, they must be moved to 
other arrays while the @ array is ued for input or print¬ 
ing. For example: 

10 DIM @(20), N(20), A(20), C(20) 

20 PR “WHAT IS YOUR NAME”; 

30 IN @ 

40 FOR 1=1 TO 20 $ LET N(I)=@(I) $ NXT I 
50 PR “HOW OLD ARE YOU”; @; 

60 IN @ 

70 FOR 1=1 TO 20 $ LET A(I)=@(I) $ LET @(I)=N(I) 

$ NXT I 

80 PR “THANK YOU,”;@; “ - WHAT IS YOUR 
FAVORITE COLOR”; 

90 IN @ 

100 FOR 1=1 TO 20 $ LET C(I)=@(I) $ LET 
@(I)=N(I) $ NXT I 

110 PR “WELL,”;@;“ - I NEVER HEARD OF A”; 

120 FOR 1=1 TO 20 $ LET @(I)=A(I) $ NXT I 
130 PR @; “YEAR OLD BEFORE” 

140 FOR 1=1 TO 20 $ LET @(I)=C(I) $ NXT I 
150 PR “WHO LIKES”; @ 

160 END 
RUN 

WHAT IS YOUR NAME? ALICE 
HOW OLD ARE YOU, ALICE? 12 
THANK YOU, ALICE - WHAT IS YOUR FAVORITE 
COLOR? BLUE 

WELL, ALICE ~ I NEVER HEARD OF A 12 YEAR 
OLD BEFORE WHO LIKES BLUE 
Tire above should illustrate how the capability is used. 
The implementation is shown above. Note that the input 
and output routines cannot be located within the TINY 
BASIC code because sufficient space could not be found. 

In my system, space was available starting at 200. This 
can be placed anywhere in available space below 4K, or 
above the program area (top pf program area is defined 
at 033354, 033355). Just remember to relocate the appro¬ 
priate addresses. 

Changes to implement @ in the PR statement: 

032154 231 271 TST P3 ‘ ’ 

031271 231 322 P3 TST S8C ‘@’ 

031273 300 

031274 300 200 @OUT routine 

031276 032 161 JMP S6 

000200 052 000 024 @OUT LHLD H, slot for 

variable @ 

000203 116 MOV QM 

Get dimension 
of @ in B, C 

000204 043 INX H 

000205 106 MOV B, M 

000206 043 @OUTl INX H 
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000207 

170 



000210 

261 



000211 

310 



000212 

013 



000213 

176 



000214 

376 

015 


000216 

310 



000217 

345 



000220 

315 

026 022 


000223 

341 



000224 

043 



000225 

303 

206 000 


Changes to implement @ 

in the 

032232 

027 

273 


027273 

232 

222 

P4 

027275 

300 



027276 

300 

230 


027300 

032 

240 


032222 

133 

310 

P2A 

032224 

032 

234 


000230 

325 


@IN 

000231 

076 

077 


000233 

315 

026 022 


000236 

076 

040 


000240 

315 

026 022 


000243 

315 

000 020 


000246 

021 

111 020 


000251 

052 

000 024 


000254 

116 



000255 

043 

INX H 

000256 

106 



000257 

043 


@IN1 


000260 

170 



000261 

261 



000262 

312 

304 000 


000265 

013 



000266 

032 



000267 

167 



000270 

043 



000271 

066 

000 


000273 

376 

015 


000275 

312 

304 000 


000300 

023 



000301 

303 

257 000 


000304 

321 


@INR 

000305 

311 




MOV A. B 
Determine if 
all chars output 
ORA C 
RZ 

DCX B 
MOV A, M 
CPI CR 
Is it C.R. 
p 7 

PUSH H 
CALL ASCOUT 
Output the char 
POP H 
INX H 
JMP @OUTl 
IN statement: 

JMP P4 
TST P2A 


@IN routine 
JMP back 
CALL AVTEST 
JMP back 
PUSH D 
MVI A, ‘?’ 

Output prompt 
CALL ASCOUT 
MVI A, ‘ ’ 

CALL ASCOUT 
CALL BUFIN 


BRINCH HANSEN TERMINATES DISTRIBUTION 
OF CONCURRENT PASCAL & SOLO MATERI¬ 
ALS 

Per Brinch Hansen has left Cal Tech and moved to 
USC. With this move, he has ended the availability 
(through him) of reports and PDP-11 system tapes for the 
Concurrent PASCAL/SOLO project. Papers describing the 
system may be found in IEEE Transactions on Software 
Engineering (June, 1975) and in Software-Practice & 
Experience (April-June, 1976). 

PROPOSED STANDARD FOR MINIMAL BASIC 
PROGRAMMING LANGUAGE 

A draft of a standard for a minimal BASIC was pub¬ 
lished July 1st and is being circulated for a four-month 
period of public comment and review. It was prepared by 
the X3J2 Technical Committee (T.C for BASIC) of the 
American National Standards Institute (ANSI). Copies may 
be requested from, and comments should be directed to 
CBEMA/Secretary X3, 1828 L Street, N.W., Washington, 

DC 20036. 


Read keyboard 
LXI D, BUFSTRT 
LHLD H slot for 
variable @ 

MOV C, M 
Set up count from 
DIM of @ 

MOV B, M 
INX H 

Put chars keyed in 
into @ 

MOV A, B 
ORA C 
JZ @INR 
End of @ 

DCX B 
LDAX D 
MOV M, A 
INX H 
MVI M, 0 
CPI CR 
JZ <®INR 
C.R. terminates 
INX D 
JMP @IN 1 
POP D 
RET 


bar graphs. Or I would like to use the character 
string capability to compose text. 

In order to make these possible, I implemented a 
new delimiter (colon) in the PR statement of the 
Whipple/Arnold version of TINY BASIC. It works 
like the semi-colon delimiter, except that no space is 
output. 

It is implemented as follows: 

032173 226 377 TST P5 

026377 232 202 P5 TST S7 V 

027001 272 

027002 032 166 JMP back 

NULL LINES AND THE REM STATEMENT 


If you just hit RETURN when the Whipple/Arnold 
version of TINY BASIC expects a command, it puts a 
line of garbage at the beginning of your program. This 
change prevents this from happening: 

020366 303 066 022 JMP PI 

022066 041 111 020 PI LXI H, BUFSTRT 

022071 170 MOV A, B 

022072 261 ORA C 

022073 312 166 021 JZ END 

022076 303 371 020 JMP back 


I implemented the REM (remark) statement as 
follows: 


A NEW DELIMITER FOR THE PRINT 
STATEMENT 

I have often wished that TINY BASIC could output 
messages catenated together without the intervening 
spaces provided by the semi-colon delimiters. For 
example, I would like to output a number as dollars 
and cents (e.g., $4.36). Or I would like to generate 


032074 226 370 TST P2 ‘IF’ 

026370 232 112 P2 TST S3A ‘REM’ 

026372 122 105 315 

026375 325 246 LOOP 

Those who have video terminals may wish to change 
the size of the print zone from 15 characters to 8 or 16 
This can be done by changing the following locations to 
the desired number: 

022036, 022355, 022365, 026107. 
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MORE MODS TO DOMPIER’S MUSIC PROGRAM, 

A FIVE-INSTRUCTION MEMORY-ERASE ROUTINE, 
& ANOTHER MEMORY-TEST PROGRAM 


Dear Editors of DDJ. Aug. 15, 1976 

1 was indeed interested in seeing some modifications 
to Steve Dompier’s MUSIC PROGRAM [DDJ, Vol.l, No.3]. 
However, there is still an inconvenience in the original pro¬ 
gram. This is the necessity to change the tempo data in 
memory for each new piece that is loaded. I submit to 
you my re-written code that allows the user to input the 
tempo to the program from the sense switches of his 
machine, allowing him to change and “fine tune” the 
speed at which the music is played. The new code is as 
follows: 


ADDR 

DATA 


MNEMONICS 

COMMENTS 

000-000 

041 XXX 

: XXX 

LXI H, XXX 

;ENTER START 
OF PIECE 

000-003 

176 


MOV A,M 

;READ NOTE 

000-004 

376 377 


CPI 377 

;TEST FOR 
END-OF-PIECE 

000-006 

312 000 

000 

JZ 000-000 

;JUMP TO BEG¬ 
GING IF END 

000-011 

333 377 


IN 377 

.INPUT TEMPO 
FROM SENSE 
SW 

000-013 

127 


MOV D,A 

;MOVE TEMPO 
TO D REG 

000-014 

005 


DCR B 

;MAI N PLAY 

PROGRAM 

FRAME 

000-01 5 

302 021 

000 

JNZ 000-021 


000-020 

106 


MOV B,M 


000-021 

015 


DCR C 


000-022 

302 014 

000 

JNZ 000-014 


000-025 

025 


DCR D 


000-026 

302 014 

000 

JNZ 000-014 


000-031 

043 


INX H 


000-032 

303 003 000 

JMP 000-003 



Note that tempo zero on the sense switches will be the 
fastest, and tempo 337 will be the next fastest, tempo 
001 being the slowest. (This is due to the nature of 
Dompier’s program.) 

The following are two very short programs for 
utility and recreation. The first is a memory clear pro¬ 
gram that leaves zeros in memory, effectively erasing 
itself, with the exception of two instructions. 


ADDR 

DATA 

MNEMONICS 

COMMENTS 

000-000 

041 010 000 

LXI H,8 

;SET POINTER 
TO END-OF 
PRGM.-1 

000-003 

257 

XRA A 

;SET ACC. TO 
ZERO 

000-004 

043 

INX H 

INCREMENT 

MEM. 

POINTER 

000-005 

167 

MOV M,A 

;MOVE ACC. 
TO MEMORY 
LOCATION 

000-006 

303 004 000 

JMP 000-004 

;LOOP TO INX 
H INSTR. 

This program will effectively try to write 

zeros into all 


available memory locations, and erases itself, up to the 
INX H instruction, which then will become a NOP and 
the program will infinitely loop, writing zero into the same 
memory location. The lights on your computer will indi¬ 
cate when the program has stopped; it usually will be 
through in a second or two, depending on the access time 
of your devices. You then may zero the remaining memory 
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memory locations (005, 006 & 007 in this lower-page 
assembly) with DEPOSIT. 

The following program was written by my colleague, 
Steve Schossow, the first day that we got my Altair work¬ 
ing. It effectively lets you use the sense switches on your 
computer like a keyboard on a synthesizer. This works by 
playing the note on the sense switches out an AM radio, 
just as the Dompier program does. 


ADDR 

DATA 

MNEMONICS 

COMMENTS 

000-000 

333 377 

IN 337 

;INPUT NOTE 
FROM SENSE 

SW 

000-002 

075 

DCR A 

;LOOP TO 
PLAY NOTE 

000-003 

302 002 000 

JNZ 000-002 

CONTINUE 

DECREASING 

TIL ZERO 

000-006 

303 000 000 

JMP 000-000 

;GET NEW 


NOTE TO 
PLAY 


This program makes it obvious that the simple DCR or 
INR loop is essential to playing the “note.” We tried 
putting more complex looping structures in this program, 
but simplicity seems to work the best. 


MEMORY TEST PROGRAM 




LXI H,START 

000-000 

041 XXX XXX 


LXI B.END 

000-003 

001 XXX XXX 


LXI SP,$+4 

000-006 

061 050 

000 

AGAIN: 

XRA A 

000-011 

257 


NEXT: 

MOV M,A 

000-012 

167 



MOV D, M 

000-013 

126 



CMP D 

000-014 

272 



JNZ ERROR 

000-015 

302 040 

000 


DCR A 

000-020 

075 



JNZ NEXT 

000-021 

302 021 

000 


INX H 

000-024 

043 



MOV A,H 

000-025 

174 



CMP B 

000-026 

270 



JNZ AGAIN 

000-027 

302 011 

000 


MOV A,L 

000-032 

175 



CMP C 

000-033 

271 



JNZ AGAIN 

000-034 

302 011 

000 


HLT 

000-037 

166 


ERROR: 

MOV E,A 

000-040 

137 



PUSH H 

000-041 

345 



PUSH D 

000-042 

325 



HLT 

000-043 

166 




000-044 

000 000 

000 000 


The starting address for the memory to be tested should 
be loaded in the two locations reserved by the label 
START at the first instruction. If you wish the first 
available location outside the operating program, this will 
be location 000-050 (split octal). The ending address to 
be checked, however, must be increased. E.g., if you 
were testing a 4K memory, END would be set to 020- 
GOO, instead of the last memory location in RAM, 017- 
377. When the program is done, it will halt, regardless of 
error. To verify if there was an error in testing memory, 
examine the four locations beginning at location 000-044, 
if no error occurred in reading memory, these will remain 
unchanged. If there has been a change in these locations, 
the data they contain is interpreted, thus: 

Location 044 is the WRITE data to memory 

Location 045 is the READ data from the same memory 

location 

Location 046 is the memory location detected (bad) 
lo-order 

Location 047 is the memory location detected (bad) 
hi-order 

Some hints on interpreting this information: 

If the READ data was 377 and the WRITE data 
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000, the problem is probably that there was no memory at 
that address. 

If the WRITE data is zero and the read data NOT 
377, the problem probably is that the memory slice was 
protected. 

Elsewise, you may “trap” a bad memory slice by 
zeroing the last four locations (after making a note of 
them!) and doing the following changes: 

-Change the START data to be your LAST 
memory location (like 017-377 in a 4K memory) 

-Change the END data to be the beginning 
memory address to be tested (as in 000-050) 

-Change location 000-024 to a DCX H (053). 

. . . And run the program again. It will now stop, hope¬ 
fully returning a new value in the ERROR locations. From 
these two addresses (the old address pointer you wrote 
down from locations 046 & 047, plus the new address 
pointer currently there) indicating between what two 
addresses (inclusive) that bad memory was found, you may 
have an indication that one of your IC’s was bad (for 
instance, one bit would never go off: WRITE 000, READ 
001 — it will usually be detected on WRITE 000.) and the 
memory pointers’ difference will most likely be 1024. The 
memory slice and bit that is bad will indicate, with the 
help of a schematic, a bad memory chip. 

Richard A. Kaapke 4485 Vision Dr., Apt. 9 

KLUGES, Inc. San Diego, CA 92121 

(All rights released to DDJ from Kaapke’s Little Used but 
Greatly Esoteric Software, Incorporated) 


REPRINTED ALPHANUMERIC MUSIC WITH 
AMPLITUDE CONTROL INCLUDES CORREC¬ 
TIONS FROM AUTHOR 

Malcom Wright has sent in three letters containing 
corrections and additions to his booklet on Altair com¬ 
puter music generation [see DDJ, Vol. 1, No. 5, for notes 
on this publication]. These letters (dated April 13, May 
17, and June 7) have been included in the most recent 
reprint of the booklet, available from the PCC Bookstore. 


COMPUTING CAREERS FOR DEAF PEOPLE 

Proceedings of the 1975 ACM Conference on Computing 
Careers for Deaf People have been published by the Associa¬ 
tion for Computing Machinery. The Conference, sponsored 
by the ACM Special Interest Group on Computers and the 
Physically Handicapped (SIGCAPH), was held last April in 
the Washington, D.C. area. It featured 30 presentations 
(including 11 by deaf professionals) covering such topics as 
educational opportunities, special training programs, placement 
problems and solutions, federal legislation, on-the-job prob¬ 
lems and solutions, and success factors. 

Industry and government employers will find that these 
proceedings provide sound input to their plans for compli¬ 
ance with the requirements of the Rehabilitation Act of 
1973 (Public Law 93-112). 

The proceedings contain 125 pages and cost $6.75 for 
ACM Members and $9.00 for non-members. They are avail¬ 
able, prepaid, from: 

ACM Order Department 
P. O. Box 12105 
Church Street Station 
New York, NY 10249 


ERRATA TO ZEIGLER’S 6502 “BUG PROGRAM” 

The March issue of Dr. Dobb’s Journal [Vol. 1, No. 3] 
contained a “Breakpoint Routine for 6502’s” submitted by 
John Zeigler. The final paragraph of the documentary text 
contains an error. It should read: 

“. . . it is necessary to load the interrupt vector, FFFE 
and FFFF, with 54 amd 02, respectively ...” 


PROPOSAL FOR HANDY SOFTWARE, WITH 
EXAMPLE 


A STRING OUTPUT SUBROUTINE FOR THE 6502 


Dear Jim: August 10, 1976 

I have been noticing that in the Journal, the main sub¬ 
ject has been large programs (BASIC’s, monitors, text editors). 
I agree there is a need for large programs such as these, but 
I believe you should also concentrate on HANDY (Helpful 
Algorithms for Novice Do-It-Yourselfers) programs to save 
bytes in space-limited systems. I enclose my example: a 
string immediate-output subroutine for 6502-based systems. 
This routine saves pointers, loops, etc. normally used for 
string output by sequentially outputting the ASCII charac¬ 
ters represented in hex in the bytes immediately following 
the Jump to Subroutine. After reading a terminating char¬ 
acter (null), it returns to the instruction following the end 
of the string. No string addresses or lengths are needed. 

The subroutine uses 40 (hex) contiguous bytes for 
program and intermediate storage and 2 zero-page bytes 
for indirect addressing. Calling the routine affects none of 
the registers, nor the stack. It has been implimented on 
an Apple Computer and copies of the program are being 
delivered to the Homebrew library and the CCC repository. 

Chris Espinosa 

LOC. 03JF.CT CODE SOURCE STATF.KF.NT 

;;; stringout: hanrv string output routine 

;j ; DEVELOPED FOR THE M0S 6502 r - • ES°IN0 C A 

;;; RUBLIC DOMAIN 9/11/1976 

0RG 5400 






AKEEP 

E0M 

S043D 






YKF.E P 

F.0U 

S043E 






KKFF.P 

EOU 

5 0 4 3 F 






OUT 

'F.0M 

SEFFF 






L0 

EQD 

SFE 






HI 

F.0U 

SFF 






L0 

D°Z 







HI 

D n Z 



0400 

8D 

3D 

04 

3EGIN 

c;ta 

AKEF p 


0403 

8C 

3E 

04 


ST V 

v KEE n 

SAV/E REGISTERS 

0406 

68 




PLA 


GE T RETURN ADORERS 

0407 

85 

FF. 



STA 

L0 


0409 

68 




°LA 



040A 

85 

FF 



STA 

HI 


040C 

A0 

01 



LD V 

# 1 

SET up INDEX 

040 E 

31 

FE 


. NEXT 

LDA 

< L0 > # Y 

GET NFXT CHAR 

0410 

F0 

07 



3E0 

EXI T 

END IF 00 

04 12 

C3 




I NY 



0413 

20 

FF 

F.F 


JSR 

otr 

OUTPUT I T 

0416 

4C 

0E 

04 


JM p 

NF v " r 


0419 

SC 

3F 

04 

EXIT 

STY 

KXEE p 


04 1 C 

A5 

FE 



LDA 

L0 


04 1 E 

38 




SEC 



04 1 F 

6D 

3F 

04 


ADC 

KKEEP 

ADD STR. LEN. 

0422 

85 

FE 



S T A 

L0 

TO RETURN ADDRESS 

0424 

A5 

FF 



LDA 

HI 


0426 

69 

00 



ADC 

#00 

CARR V 

0428 

85 

FF 



STA 

HI 


042A 

AD 

3D 

04 


LDA 

AKEE° 

RESTORE REGS 

042D 

AC 

3E 

04 


LD V 

YKEE n 


0430 

6C 

FE 

00 


JM° 

< L0 ) 

return 
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A “FIX” FOR DENVER TINY BASIC, PRAISE & 
A BUG-NOTE ON P’.T.’S 5K BASIC 

Dear Jim, July 30, 1976 

I just finished looking through Vol.l, No.6, thought it 
was great, as usual, and decided to send along a few com¬ 
ments. 

The following mod should be made to get dimensioned 
variables to work properly in my Denver version of Tiny 


BASIC [DDJ, Vol. 1, No. 3]: 


TSV6 DCX D TSV6 

DCX D 

XCHG 

XCHG 

DAD D Change t0 ^ 

.DAD H 
r LDAX D 

MOV E, M 

ADD L 

INX H 

MOV L, A 

MOV D, M 

INX D 

XCHG 

LDAX D 

CALL ASPH 

ADC H 

POP PSW 

MOV H, A 

RET 

CALL ASPH 
POP PSW 
RET 


A modification to the text editor which would be useful 
would be a “Test for valid data”. I occasionally get con¬ 
trol characters into a file, or lower case ASCII, which prints 
as upper case on my TTY, and don’t detect it until I run 
a program through the assembler, which generates an assem¬ 
bly error. A test of this type, either as a separate command, 
or in the input routine, or both, would prevent these types 
of errors. Since I modified my TV-Typewriter (it will scroll 
now), I will probably change the editor to eliminate the 
clear screen routine, at which time I plan to add the above 
mod also. It shouldn’t be difficult. The test is used in the 
INSM command, and all that is necessary is to pull that por¬ 
tion out as a separate command. 

I finally received Processor Technology’s listing of their 
5K BASIC, and thought that I would pass along some com¬ 
ments on that, also. First, for $5.00, I think it’s a real bar¬ 
gain. (So is their assembler/editor/etc. package). I have it 
running now and it appears to work fine. I did find one 
apparent bug in the fisting, in the “INT” function, subroutine 
AINT, This routine sets the floating point exponent to 
zero if the absolute value of the variable is less than 1. 

This is correct, but apparently at least some of the other 
routines require the entire 5 byte number to be zeroed 
for a zero value. I haven’t traced this completely, but 
I was getting some strange results. I changed the rou¬ 



tine to zero the entire value, and the problems disappeared. 

The only other problem I encountered concerns a 
feature of the assembler used to generate the fisting. There 
are numerous 5 and 6 letter symbols used, so rather than 
reassigning new symbols for my 4 character max limit, I 
modified my assembler (again) to accept longer symbols. 

I now can have sumbols up to 11 characters long. I 
store only the actual number used in order to keep the 
memory requirements down, and plugged in 2K more of 
memory to be able to handle decent size source code 
blocks. Anyway - I used the symbols directly from the 
fisting, and on the first pass through the assembler dis¬ 
covered that even though 6 character symbols are used, 
only the first 5 are unique and recognized. In several 
places the sixth letter had been dropped in the fisting, 
which my newly modified assembler assumed were two 
different symbols. Numerous “Undefined symbol” 
errors occured. I also had a duplicate symbol error, and 
sure enough, the symbol “PRIN2” is used two places in 
the fisting. After straightening those problems out, 
along with numerous errors I made in entering the 
code, everything appears to work fine. A little more 
documentation would have been nice (I received only a 
listing, but there are enough comments to figure it out), 
and 5K BASIC requires over 6K, but I still would recom¬ 
mend it. 

I still think I will implement my own high level 
language. I have the floating point routines running 
now, using binary arithmetic at 4 bytes per value, 
rather than decimal at 5 bytes per value, and have 
begun investigating different techniques for implementa¬ 
tion of a new language. I’ll send along a fisting of the 
floating point routines as soon as I can get a good copy., 
off. I have the listing on cassette, but haven’t had time ! 
to run it through the printer yet. 

Happy computing, 

F. J. Greeb 1915 So. Cape Way 

Denver, CO 80227 

EDITOR’S NOTE: Processor Technology is located at 
6200 Hollis St., Emeryville, CA 94608, (415) 652-8080. 
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How secure is computer data? 
Not very, say Stanford experts 


(reprinted with permission from May, 1976, The 
Stanford Observer) 


The proposed key for a security 
system designed to lock up the vast 
quantities of information stored in 
U.S. computers so that only autho¬ 
rized persons can get at them is 
“too small” and “within 15 years 
will be rendered totally insecure” in 
the opinion of two Stanford com¬ 
puter experts. 

Electrical Engineering Prof. 
Martin E. Heilman and graduate 
student Whitfield Diffie criticize 
the computer key, proposed by the 
National Bureau of Standards 
(NBS) and the National Security 
Agency (NSA), in an article in 
Communications of the ACM 
(March 1976), professional journal 
of the Association for Computing 
Machinery. 

The two computer experts have 
been working on related research in 
data security under National Sci¬ 
ence Foundation sponsorship. 

If the Secretary of Commerce 
approves it, the key will become a 
required standard for most federal 
agencies and a de facto standard for 
all computer users. 

Numerous computer thefts of 
company secrets and even of 
money in recent years have caused 
the industry to look hard for better 
methods of securing their trade 
secrets and other private informa¬ 
tion stored in computers. At the 
same time there has been wide 
public concern about the privacy of 
individual’s computerized files held 
by the Internal Revenue Service 
and other government agencies. 

So far the only way to tell 
whether computerized secrets are 
safely stored is to use trial-and-error 
methods to find the code words or 
signals that will enable one user to 
read another’s files. Such eaves¬ 
dropping already occurs now and 
then quite by accident. 

The system proposed by NBS 
originated at IBM and consists ot a 
kind of combination lock called an 
“algorithm,” which is an encoding 
computer program. When the user 


m l£I5 SEE 
isirwaoi? 

OR is IT 

uioc?--. 

BETTER BRirKr 
THE D7MAMITE 

just in case 
Qb„- 
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puts his key into the algorithm lock 
and feeds information into the 
machine, it is stored or sent to the 
recipient in coded form. 

The same key must be used to 
get the information out again, or 
for the recipient to get the sender’s 
message Any other key will pro¬ 
duce only garbled versions. 

If approved the algorithm lock 
will become a standard item of inte¬ 
grated circuitry, mounted on a tiny 
silicon chip and manufactured in 
quantity for installation in any 
computer whose users want it. 

The key to the lock, on the 
other hand, is a series of 56 digits, 
zeros and ones, arranged in any 
order. The large number of possible 
arrangements of these digits ap¬ 
proximately 100 million billion 
gives the appearance of a high level 
of security. 

But Heilman and Diffie hold 
that the so-called “56-bit” key is 
not all that secure, that such a key 
could be broken in a day by anyone 
with enough money to build the 
trail-and-error machinery to search 
the 100 million billion keys. 

The machine would cost about 
$20 million by their estimate, 
averaging out to $10,000 per key 


broken. Such a prodigious search 
has only become economically 
feasible within the last few years 
due to revolutionary advances in 
electronics. 

They believe it significant that 
this would probably be loo costly 

for a p r ivg?K* firrp to ipvo^t in nryjpp 

into a rival firm's secrets, but not 
too much for a government 
agency-say the NSA or CIA. The 
implication is that by setting a 
56-bit standard the government 
wants to be able to pry in the name 
of national security or other pre¬ 
text, but prevent others from doing 
so. 

“While it is well established that 
a larger number of keys does not 
guarantee security,” says the Stan¬ 
ford pair, “too small a number of 
keys guarantees insecurity. 

“It is widely held that computa¬ 
tion costs will continue to decline 
by an order of magnitude every five 
years. In 10 years our $20 million 
machine will then cost approxima¬ 
tely $200,000 and be within the 
reach of any large organization. If 
adopted, the proposed standard 
would have to be changed before 
that time. 

“The cost of modifying termi¬ 


nals, systems, etc. to use the new 
standard, and the cost of [reen¬ 
coding] old files which are still 
deemed private would be high. 
These costs seem unjustified since 
the cost of enlarging the key of the 
proposed standard would be mini¬ 
mal " 

Enlarging the 56-bit key to 64 
bits would escalate the cost of key¬ 
breaking machinery to about $5 
billion, or $2.5 million per key 
broken, they estimate. This cost 
might give pause to governments 
today, but in 1 0 years the expected 
advances in technology would re¬ 
duce these figures to $50 million 
and $25,000 respectively. 

I'he Stanford experts have urged 
a much higher standard with at 
least 1 28 key bits, which the com¬ 
puter users could employ wholly or 
in part. It would then be impossible 
to break the key by trial and error. 

“We strongly encourage NBS to 
consider modifying its proposed 
standard,” they conclude. “At the 
least it should define the level of 
security it believes the proposed 
standard offers and make public 
and reasoning behind its belief. 
Adoption of a standard with built- 
in obsolescence is not justified.” 


REVIEW OF THREE PERIODICALS 
CONCERNING ENERGY, TECHNOLOGY, 
AND PEOPLE 


by “The Old Soldier” 


Intermediate Technology 
556 Santa Cruz Ave. 
Menlo Park, CA 94025 

Self Reliance 

1717 - 18th St., N.W. 

Washington, D.C. 20009 


RAIDS ON ALLEGED ELECTRONICS COMPONENTS THIEVES 


Marshals raided Valcomp, Inc. in Westlake Village, CA, Pa¬ 
cific Semiconductor, Inc., in Inglewood, CA, and Idea Total 
Printing Services in Torrance, in the first week of July. At 
least part of the action concerned $8.7 million worth of Xerox 
Corp. computer modules, stolen in El Segundo. The raids were 
based on information furnished by a private investigator hired by 
National, Intel, Motorola and Fairchild; all being companies quite 
concerned about recent major thefts of components. 


People & Energy 
1757 S Street, N.W. 
Washington, D.C. 20009 


The three titles above are from newsletters that recently came 
into P.C.C. All are concerned with energy and technology, and 
each has something to recommend it, but since the combined sub¬ 
scription prices come to $23.50 a year, some discrimination 
becomes necessary. 

People & Energy is the most political of the three and a strong 
advocate for the corporate conspiracy theory of explaining our 
energy problems. For those who feel that way, this will help rein¬ 
force that attitude. No article on the suppression of the 100 MPG 
carburator, but perhaps next issue . . . 

Intermediate Technology is trying to put together working 
groups to examine production of energy, goods and foodstuffs to 
seek more rational production units in this time of rising transpor¬ 
tation and energy costs. Looks like a good way to pick up.lttultiple 


ideas without a lot of rhetoric. 

Self-Reliance, issue No. 1, got to me. The article "Do We Need 
Large Companies?" advances the thesis that, beyond a certain size, 
corporate growth does not enhance efficiency. Those advantages 
that do accrue are, greater leverage for equal percentage advertising 
expenditure, better and less expensive access to credit, and the 
possibly mistaken impression that large company employment is more 
stable. Another article, "Towards Sewerless Cities" brought an 
'amen' from me. The majority of the water we use in the home is 
used just to carry away sewage. Los Angeles, from just one plant. 
The Hyperion Sewerage Works, discharges between 350 and 750 
million gallons per day of sewage containing water into the ocean. 
Modern technology, and some technology not so novel, offers 
viable alternatives to this waste, and some of the alternatives are 
explained here. Self-Reliance has a fan in 

-the Old Soldier- 
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Policy Statement: 

Handling of consumers’ complaints 
regarding vendors’ products & services 


by the Editor 

As our regular readers are aware, we have pursued a 
course of active consumer advocacy ever since we began publi¬ 
cation. In fact, one of the reasons we refuse to carry paid 
advertising is to maintain the viability of our statements and 
comments regarding products and services being offered to 
the computer consumer. After some months of publishing 
compliments and complaints about vendors’ offerings, we 
have slowly evolved a policy regarding the handling of con¬ 
sumer complaints which we believe will be fair to both the 
consumer and the vendor, to wit: 

We solicit both compliments and complaints concerning 
vendors, from the hobbyist community. In either case, these 
comments should be explicit, and contain as much detail as 
may be appropriate. In the case of complaints, particularly 
those involving service, we will contact the vendor, discuss the 
complaint with him, and request that an explicit response 
from him be forthcoming within a reasonably short period of 
time. If the response is written, we will request that a copy 
of it be forwarded to the originator of the complaint. 

If we receive a response within the time period we 


specify, and the response appears to us to adequately deal 
with tile complaint, then we will do nothing more about the 
complaint. 

If we fail to receive a response within a reasonable period 
of time, or the response is vague, ambiguous, or otherwise 
fails to deal with the specifics of the complaint, then we will 
probably publish the complaint (and probably the response, 
as well) in the next available issue of Dr. Dobb’s Journal. 

If we receive complaints about poor design of some 
item of hardware or software, and it is our engineering and 
systems judgment that they are valid, then we may publish 
the complaint without first contacting the vendor. If there 
is any question about the validity of the complaint, we will 
contact the vendor or manufacturer as outlined above. 

We will take this path of action only in the case of 
written complaints that explicitly specify the problems. 

In the case of compliments and praise, we will pub¬ 
lish it whenever it seems appropriate to do so. It is almost 
certainly appropriate when we receive multiple complimen¬ 
tary remarks about the same product or service, coming 
from different parts of the country. 


A Note and Warning for Hobbyists & Vendors 

HURRAY & BEWARE: 

EVERYBODY’S JUMPING ON THE 

CONVENTION BANDWAGON 

by Jim C. Warren, Jr., Editor, Dr. Dobb’s Journal 

So far, the computer hobbyist conventions have been 
entirely run by hobbyists. As such, they have been well- 
oriented to hobbyist needs and interests and have been really 
exciting to most of those who attended them. Also as a 
result, however, they have generally been less organized and 
more haphazard than is the case with a “professionally run” 
convention. They haven’t furnished as much as they could 
(and have often been a hair-pulling frustration to exhibitors), 
but, what they lacked in smooth operation, they more than 
made up for in exuberence and enthusiasm. 

Now, however, some professional convention organi¬ 
zers are starting to get into the act. With a proper attitude, 
and with close cooperation and leadership from the hobby¬ 
ists, these “pros” can help make a good convention even 
better. They can smooth out the rough spots and tie up the 
loose ends. However, at least a few of them don’t appear to 
give a damn about the hobbyists; they seem interested only in 
the maximum amount of profit for the minimum effort. In 
this case, I would say that “pro” stands for promoter with its 
worse possible connotation. 

I became aware of this whole thing at the Atlantic City 
convention, because I passed out preliminary announcements 
of the First West Coast Computer Faire to be held in the San 
Francisco Bay Area, next Spring. As a result, I had half a 
dozen people contact me to say that they, also, were planning 
computer hobbyist conventions. I found this both exciting 
and disturbing. It was exciting to see that the personal com¬ 


puting movement has grown sufficiently that a number of 
people considered it worth their time and effort to organize a 
convention in their region. It was disturbing in that (1)1 
found that almost no one was paying any attention to what 
anyone else was planning, and (2) I encountered at least a few 
people who appeared to be interested in it strictly for profit 
without the slightest interest in benefiting the hobbyists. I 
think that the former can cause less-than-excellent conven¬ 
tions and gross confusion and irritation on the part of the 
vendors, and the latter can produce, at best, “cheap shows.” 

Sooner or later, the vendors will probably put together 
an association that will maintain a calendar of such events. 
Until that happens, there are some things that can be done by 
people considering holding a conference or convention to 
avoid (or at least know about) calendar conflicts. 

1. They can phone me at People’s Computer Company, 

(415) 323-3111. I will be happy to tell them of all the con¬ 
ferences I know of, and will maintain a Calendar of all hobby¬ 
ist conventions of which I am informed. 

2. Periodically, Dr. Dobb’s Journal will carry a complete list¬ 
ing of that Calendar information. The list that follows is the 
first such listing. 

3. They can contact Smith Dorsey, the Chairman of the 
ACM’s Conferences & Symposia Committee. Smith main¬ 
tains one of the most complete calendars of computer-related 
events available, including both ACM and non-ACM meetings. 
He can be reached at Rockwell International, Dept. 503/034, 
3370 Mira Loma Ave., Anaheim, CA 92803, (714) 632-1391. 

4. They can check the Events Calendar published each month 
in the Association for Computing Machinery’s Communica¬ 
tions of the ACM, and the Institute for Electrical and Elec¬ 
tronics Engineers (IEEE) Computer Society magazine, Com¬ 
puter. This will at least point out possible conflicts with meet- 
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mgs organized by the professional and engineering societies. 

There are also some things that can be done to avoid 
being disappointed by the “cheap shows” (whether you are 
a hobbyist or a vendor). 

1. See whether the hobbyist groups located in the area of an 
advertised convention are sponsoring or actively participating 
in the meeting. If they are, you can expect them to be 
listed in the advertisements. If they are not listed, you should 
assume that they are not involved, and that the “convention” 
is really little more than a trade show. 

2. See whether a significant conference activity is part of the 
convention, along with the trade show/exhibition. If there is 
advertisements should note that there will be a number of 
talks, panel sessions, seminars, etc. If they don’t, you should 
assume that it is primarily a trade show—and expect nothing 
more than that, if you attend. 

COMPUTER HOBBYIST 
CONVENTIONS ALREADY HELD: 

May 2, 1976 Trenton Festival 
Trenton, NJ 

Amateur Computer Group 
of New Jersey 

Jun 11-13, 1976 Midwest Regional Computer 
Conference 
Cleveland, OH 

Midwest Affiliation of Com¬ 
puter Clubs 

Aug 28-29, 1976 Personal Computing '76 
Atlantic City, NJ 
Southern Counties 
Amateur Radio Assn, 
of New Jersey 


1500 people 
45 exhibitors 


1500-2500 
people 


4500-5000 

people; 

103 exhibitors 


COMPUTER HOBBYIST CONVENTIONS 
BELIEVED TO BE IN THE WORKS: 


IMS ANNOUNCES 44-COLUMN PRINTER FOR 
$399 


IMS Associates is offering a 44-column dot-matrix 
printer for $399 (kit) or $549 (assembled). It prints 75 
lines/minute, has automatic wrap-around for overlength 
lines, can print double-size characters under software con¬ 
trol, can print on multicopy paper, and interfaces to a 
parallel output port using hand-shaking. IMS Assoc., 
14860 Wicks Blvd., San Leandro, CA 94577. 


June, 1977 Midwest Regional 

Computer Con¬ 
ference 

Cleveland, OH 


Jun 13-16, 1977 Personal Computing 
Section 

'77 National Com¬ 
puter Conference 
Dallas, TX 
[Expecting 30,000 
people, 100 ses¬ 
sions, and over 
250 exhibitors) 

Jun 18-19, 1977 Atlanta Computerfest 
Atlanta, GA 
[in conjunction with 
Hamfest] 


Jut 29-30, 1977 Seattle Computerfest 
Seattle, WA 
[in conjunction with 
Hamfest) 


Midwest Affilia¬ 
tion of Compu¬ 
ter Clubs 
P.O. Box 83 
Brecksville, OH 
44141 

(216) 371-9304 

American Fede¬ 
ration of Infor¬ 
mation Process¬ 
ing Societies 
210 Summit Ave 
Montvale, NJ 
07645 

(201) 391-9810 


Kilobyte & ’73 
Magazine 
73 Pine St. 
Peterborough, 
NH 03458 
(603) 924-3873 

[same as above) 


Nov 5-7, 1976 Technihobby—USA 

Commonwealth Pier 
Boston, MA 
[Computer & Radio 
Hobbyists) 


Nov 10-14, 1976 Technihobby—USA 

Los Angeles Convention 
Center 

Los Angeles, CA 
[Joint Meeting with the 
Personal Electronics 
Show] 


Nov 19-21, 1976 Technihobby-USA 
Atlanta Civic Center 
Atlanta, GA 

Dec 3-5, 1976 Technihobby—USA 

Sheraton Park Hotel 
Washington, DC 

Dec 16, 1976 Western Microcomputer 

Show 
Sheraton 
Anaheim, CA 


Apr 15-17, 1977 The First West Coast 
Computer Faire 
Civic Auditorium 
San Francisco, CA 
[Expecting 7,000- 
10,000 people, 

50 sessions, 200 
exhibitors] 


Marketing Ven¬ 
tures, Inc. 
5012 Herzel PI. 
Beltsville, MD 
20705 

(301) 937-7177 
[same as above] 


[same as above] 


[same as above] 


[co-sponsored 
by a number of 
Bay Area hobby 
ist, professional, 
and educational 
organizations. 
See article, else¬ 
where in this 
issue] 


Aug 27-28, 1977 

Personal Computing '77 
Consumer Trade Show 
Atlantic City, NJ 

PC '77 

503 W. N.J. Av. 
Somers Pt, NJ 
08244 

(609) 927-6950 

Oct 25-28, 1977 

(Name unknown at 
press time) 

Anaheim Convention 
Anaheim, CA 

Interface Age 

Box 1234 
Cerritos, CA 
90701 

(213) 469-7789 

Spring, 1977 

Personal Computing 
(four shows being 
planned for: 

Boston, Chicago 
Philadelphia, and 

Southern Califor¬ 
nia) 

Benwill Publish¬ 
ing Corp. 

167 Corey Rd. 
Brookline, MA 
(617) 232-5470 

Fall, 1977 

(Name unknown at 
press time) 

Los Angeles Area 
[Proposal to hold 
such a convention 
has been placed 
before SCCS Board 
of Directors] 

Southern Cali¬ 
fornia Compu¬ 
ter Society 

P.O. Box 3123 
Los Angeles, CA 
90051 

Note: This list excludes a number of conventions directed 


towards computer professionals that are expected to have 
at least nominal activity in the area of personal and hobby 
computing. Although the '77 NCC is primarily for com¬ 
puter professionals, its Personal Computing Section will be 
a major activity with a number of significant sessions and 
events planned for personal computer enthusiasts. 
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A CONSUMER’S REPORT ON iCOM’S 
FLOPPY DISC SUBSYSTEM 


Dear Editor, September 1, 1976 

I read with interest, “The Time for Floppy’s is Just 
About Now,” in DDJ, 8/76. I too think a floppy peripheral 
provides a highly desirable mass storage device, not only for 
homebrews but for industrial micros and minis as well. 

In particular, I would like to provide some answers 
from my own experiences, to the questions you had regard¬ 
ing the iCOM floppy system. I bought a single drive system 
in August 1975. At that time they had not yet introduced 
their Frugal Floppy but they allowed me to purchase just 
the controller-formatter, model CF360, Mux card (-20) and 
cable set (-22). They then told me exactly how to buy the 
mating Pertec drive and mating Adtech power supply, giving 
me part numbers and names of people to contact. At the 
same time, they mailed me their Interface Manual and their 
Schematics and Logic Diagrams to me. By the time all the 
equipment arrived, I had already purchased the necessary 
2 PIA’s (Peripheral Interface Adapter) for $15.00 each, con¬ 
nected them to my Motorola M6800 Evaluation Module 
board, and provided a connector to mate with the format¬ 
ter-controller. Within about an hour, primarily required to 
add a fuse and power cord to the power supply and figure 
out which cables connected where, the system was all con¬ 
nected up and I was trying out the subroutines in my own 
version of a software driver. All the necessary interconnect¬ 
ing cables and connectors but one had been provided as 
part of the formatter-controller purchase. The manuals had 
provided suitable information about this cable so I had it 
ready and waiting too. (It is now included with the Frugal 
Floppy.) 

Their documentation was thorough and accurate. Of 
the fourteen floppy commands that can be issued to the 
formatter-controller, I managed to correctly implement 12 
of them in my driver without problems. It took me another 
week to debug my READ routine and the remaining two 
commands so that I was reading data and not status. I 
still had one problem left, but when I called iCOM, Terry 
Zimmerman and Bob Brusseau informed me how to interpret 
IBM format, and my problems were over. In addition, Bob 
went over the entire Logic Diagram and added all the signal 
names that had been omitted from various portions of the 
circuit and included two gates that had been added to the 
PC boards but not the Logic Diagram. During the year 
since, the Microcomputer/Floppy has been interfaced to a 
minicomputer as an intelligent peripheral, and it was found 
desirable to add another disk drive. I ordered another Pertec 
drive this time from iCOM, with an additional Mux board, 
and when it arrived and was unpacked, I simply attached it 
to the connectors that had come with the original system, 
and was able to use either drive just as easily as using the 
single drive. Unfortunately, the fuse on the power supply 
blew out several times. A call to iCOM revealed that we had 
been too conservative in sizing the fuse initially so we in¬ 
creased its capacity and added the recommended fan to pro¬ 
vide cooling and now have an effective, dependable system. 

Two additional programmers have “cut their teeth” on 
this system. One added routines to the core-resident driver 
including an automatic initial-program-load (IPL) feature. 

October, 1976 


PERTEC (FLOPPY MAKER): BUYS iCOM 
(CONTROLLER MAKER), MAKES WATS 
LINE AVAILABLE TO CUSTOMERS 

Pertec, a manufacturer of floppy disc drives for some 
years, has just completed purchase of iCom, the Southern 
California systems house. iCom has been marketing a 
floppy disc controller and operating system for Pertec 
drives since last spring, and has been actively cooperating 
with computer hobbyists. 

Unrelated to this purchase, Pertec has announced 
installation of WATS-line (toll-free) telephone service for 
use by its customers and field service personnel. This 
800-area code number allows you to call the factory 
trouble shooters, without cost. 

Note: We just phoned WATS Information and found 
that the Pertec WATS number is (800) 423-5156 . . . 
but is accessable only outside of California. 


USED TELETYPES & TERMINALS 

National Teletypewriter Corp. (207 Newtown Rd., Plain- 
view, NY 11803, (516) 293-0444 is an ongoing dealer in 
used computer terminals and a variety of models of tele¬ 
type. 


The other implemented a partially disk-resident operating sys¬ 
tem that makes the 1K of microcomputer RAM memory 
appear to be about 4K, by using overlay techniques and 
program chaining. 

Throughout it all, the floppy system has always func¬ 
tioned properly. The compatability of the IBM format 
used was tested as follows. The minicomputer collected 
digital data, it was passed to the M6800 in ASCII, transla¬ 
ted to EBCDIC and recorded on the diskette. The diskette 
was then loaded into an IBM 3540 peripheral on our IBM 
370. The IBM 370 was then able to read and print the data 
as if the diskette had been recorded in the 3540. Similarly, 
IBM 3540-recorded diskettes were loaded into iCOM floppy 
system, read by the M6800, translated to ASCII, and used 
as data by the driver routines. 

Since then, we have ordered a Frugal Floppy and a 
mating power supply ($250 for the power supply) and are 
contemplating purchase of a third system. These negotia¬ 
tions were handled by Alan Garfein who provided informa¬ 
tion and advice not only about iCOM equipment but was 
most helpful in providing leads to other related equipment. 

In summary, the equipment has been highly reliable and 
performed according to specifications, the documentation 
was well-written and complete, and the personnel were 
knowledgeable and helpful. We expect to be getting FDOS 
I, editor, and assembler with the Frugal Floppy and then 
we will be able to gain experience with iCOM software as 
well. 

Sincerely, 

Chuck Felber Rockwell International 

Technical Staff Tulsa Division 

Box 51308 (918) 835-3111 

Tulsa, OK 74151 
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Some Personal Observations 


on Personal 

Jim C. Warren, Jr., Editor 

Through the prodigious efforts of John Dilks, Davy 
Jones, and Jim Main (and with considerable help, guidance 
and support from Carl Helmers and BYTE Magazine), the 
August 27th-28th Personal Computing ’76 Consumer Trade 
Fair was a great turn-on! So much was going on that I 
had only three to four hours of sleep per night, and even 
then, 1 missed some gatherings I would like to have at¬ 
tended. Details of particular note: 

Statistics, first: About 4,500 computer enthusiasts and 
curiosity seekers attended the two-day convention. There 
were slightly over 100 exhibitors, and about 50 talks, panel 
sessions, and seminars. The banquet on Saturday night 
turned out over 360 people (in spite of its hefty $15 price 
tag). 

We blew it. Contrary to the “reliable rumor” we 
published in our August issue, Heathkit was not one of the ex¬ 
hibitors. We understand, however, that Heath purchased a 
block of 16 tickets to the convention. Lou Frenzel, 
their Director of Computer Products was there. And, he 
reportedly was overheard saying that Heath would have a 
kit out “before Spring.” So much for rumors mongered. 

Idle gossip had it that MOS Technology was being 
bought by Commodore Calculators. (So what? They will 
undoubtedly continue to turn out hot products.) 

I am delighted to publish another correction to in¬ 
formation in our August issue: We noted (incorrectly) that 
the fine print of the literature concerning Matrox VRAM’s 
(Video RAM) indicated that a minimum order was 100 
units. Their rep, Lome Trottier, dropped by to say “hi,” 
and told us that the stock items we had listed in that 
August article are available in unit quantity for the 
prices we quoted. The 100-unit minimum pricing referred 
only to custom-built units. Therefore, take another close 
look at ‘em. They have a 256 x 256 black-and-white 
graphics display for $630, as well as some interesting 64 
and 80-character alphanumeric VRAM’s (ASCII in, video 
out). That’s Matrox Electronic Systems, Box 56, Ahuntsic 
Stn., Montreal, Quebec H31 3N5, (514) 481-6838. 

I am also delighted to report a correction to com¬ 
ments contained in a letter that we published in our June/ 
July issue. In that letter, one of our readers stated that 

M1TS Computer Notes would only be available by sub¬ 
scription after the first of the year. Dave Bunnell the 
publisher of Computer Notes, announced at the banquet 
that this was incorrect (explicitly referencing the letter) 
and indicated that Computer Notes subscriptions would 
be available without cost, permanently. We applaud 
this fair-minded and sensible policy and apologize for 
publishing inaccurate information [note the Policy State¬ 
ment on Complaints, published elsewhere in this issue.] 

National Semiconductor was present and told me 
that they now have Tiny BASIC for their SC/MP 
microprocessor. It is available in paper tape form or in 
3K of PROM. Incidentally, their SC/MP kit with 256 
bytes of RAM, and 512 bytes of ROM including their 
KITBUG monitor is available for $99. In less than four 
months, Hash Pa til said they had sold over 8,000 of 
these kits. 

Someone mentioned this interesting tidbit: Alexander 
Graham Bell was not a technical type. Rather, he was an 


Computing ’76 

artist. In fact, he was a member of the National Academy 
of Design which, at that time, was a very prestigious 
national society. 

I should mention Leda Alpert, the woman who put 
together the super low-cost travel package that helped a 
number of west coasters (including myself) afford to at¬ 
tend the convention. She almost worked her Southern 
California tan to the bone putting that mess together. 

At least in my case, her agency (Travel Co-Ordinators, Inc., 
Los Angeles) probably lost more than it made. We must 
have spent half a dozen long-distance phone calls, haggling 
over my eccentric travel desires. But ultimately, she put 
it together. Furthermore, she was at the show to trouble¬ 
shoot travel problems for her clients . . . which was help¬ 
ful to a coupla people. 

I had the good fortune to meet Neil Colvin, the 
software type with Technical Design Labs of Trenton, NJ. 
Keep an eye on that crowd; they are doing some great 
things with their Z-80 system. Among other things, Neil 
said they already have a macro assembler modeled after 
DEC’s MACRO-10 and using MACRO-11 syntax that pro¬ 
duces relocatable code. They have a loader that accepts 
relocatable load modules. They have a BASIC that runs 
in 6.5K bytes and accepts Altair BASIC source code. 

They have a FORTRAN compiler very near completion 
(aww shucks; I thought that dinosaur was dead). And, 
at the time I spoke with him, he had just finished trans¬ 
porting a portable PASCAL compiler over to the Z-80. At 
that time, it took 32K bytes of grossly inefficient code (as 
portable software is prone to do), and Neil was starting 
to go through it and optimize it. The PASCAL compiler 
generates PCODE as output, which requites an interpreter 
(portable PASCAL had much the flavor of “portable” 

Tiny BASIC). Neil had managed to crowd the PCODE 
interpreter in one kilobyte on the Z-80. Also, he said 
they are working on a “word processor.” 

At the head table at the banquet, I was delighted 
to find myself sitting next to John Whitney, the compu¬ 
ter graphics artist of international reputation, who was 
the last speaker at the banquet. As usual, he closed it with an 
absolutely fascinating exhibition of some of his computer-gen¬ 
erated films. He is a most fascinating man, for his ideas, his 
art, and his exuberant and vibrant outlook. If you ever 
get a chance to hear him speak, or see his films, don’t 
miss it! Incidentally, he travels so much that he has two 
watches on his watchband; one gives the local time, and 
the other gives “home” time for the west coast. 

I saw the first issue of the much-advertised Microtrek 
magazine. It had 64 interior pages, of which less than 
nine were advertising. Almost five pages were devoted to 
“Just Getting into Microprocessors? Odds Are, You’ll End 
Up With a Kit,” reprinted from Electronic Design. The 
rest included: a ten-page article on the “KIM-1 Microcom¬ 
puter Module,” five pages devoted to a “Super-Simple Cas¬ 
sette Interface,” Part I of an “Introduction to Assembly 
Language Translation” (eight pages including a glossary), 
almost nine pages concerning “Better Programming 
Though Flowcharting and Documentation,” four pages of 
details for an M6800 “Software Leader,” and a nine-page 
“Buyer’s Report: The IMSAI 8080 Computer Kit.” I got 
the impression that it was planning on being a “general 
content” magazine, just like Byte, but possibly with a 
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lower level of expertise expected of its readers. However, 
when I identified myself to the Editor and asked him 
what the focus of Microtrek would be, he said it was 
going to concentrate of software. Furthermore, some 
editorial notes in the first issue state that he is especially 
seeking articles on medical applications, display applica¬ 
tions, floppy disc systems, computer control of electro¬ 
mechanical devices, pattern recognition systems, bit-sliced 
computers, and APL. So, I don’t know where Micro trek 
is headed, but I am interested in seeing the future issues. 

Some interesting tidbits gleaned from Chad Harris, 
Club and Training Manager for the American Radio Relay 
League (ARRL): There are 281,000 ham operators, right 
now, and they expect 30,000 more by the end of the 
year. Their average investment in ham gear exceeds $1K. 
Only about 1% built all of their own gear; the rest built 
kits or bought turnkey systems. And . . . Chid estimated 

that approximately 54th of the hams are seriously inter¬ 
ested in amateur computing; that’s more than 70,000 
potential computer phreaques! 

Quoth one of the banquet speakers, alluding to com¬ 
puter foul-ups: “Failure to receive this bill is not an excuse 
for nonpayment.” 

A surprise award for Computer Hobbyist of the Year 
was given to Saul Libes, the leader of the Amateur Compu¬ 
ter Group of New Jersey and one of the major organizers 
of personal computing activities on the East Coast. 

Someone had a little booth in the Trade Fair portion 
of the convention and was selling digital clock kits. By 
Sunday afternoon, he had sold out, packed, and gone 
home. 

IBM was/wasn’t an exhibitor. (The following story 
came from John Dilks and is retold with his permission). 

In the early planning stages of PC ’76, John contacted 
IBM and asked them if they were interested in being an 
exhibitor. Initially, he received no response. Then, IBM 
decided they were interested, sent in their exhibitor 
registration and fee, and indicated they would be there. 

So, as part of the promotion of the convention in some 
of the publicity releases, John (reasonably) mentioned IBM 
along with a number of others as being expected exhibi¬ 
tors. Shortly before the convention, IBM called up and 
said they wanted to cancel out. John said, “No way.” 

IBM said he could keep the registration fee and rent the 
booth space to someone else. John refused. Then IBM 
wanted to get another vendor, on their own, and let him 
take the space. At that point, John told ‘em that, no 
matter what IBM did, they were going to have the booth 
they had committed for, and it was going to have an 
IBM sign on it, whether they were there or not. Well, 

IBM showed up, refused to take the booth, but set up 
some of their gear in one of the hotel suites and placed 
a directional sign in the booth (strange people, those 
maxi makers). In one of the final verbal exchanges 
between John and an IBM rep, Dilks said, “You know, 
you people have your heads in the clouds watching 
for the money to blow by. You ought to look down 
on the ground and find the bucks laying at your feet.” 
[Quote verified by John.] 

Bob Jones, who has been the publisher of SCCS 
Interface, has chosen to go his own way. He was dis¬ 
tributing the August issue of his new publication, called 
Interface Age. [Incidentally, the last we heard, SCCS is 
planning on continuing to put out their own publication 
which will be called SCCS Interface. 

I spent a pleasant evening with Ron Davies and 


Roald Evensen, two of the principals in Marketing Ven¬ 
tures, Inc., which is putting together the TechniHobby 
shows [see “Hurray & Beware . . .”, another article in 
this issue]. I was favorably impressed by them. They 
were low key, “up front,” and seemed to have some good 
ideas. Basically, they were planning on their Technihobby 
shows being trade fairs covering not only computer hobby¬ 
ists, but also ham radio and radio-controlled models. In 
this way, they expect to encourage considerable “cross- 
pollenation,” particularly from the ham crowd into com- 
putery. They indicated that they were planning on co¬ 
operating with local hobby groups. They also had some 
innovative ideas for assisting small vendors who couldn’t 
afford to travel all over the nation exhibiting their wares. 
They also publish an excellent trade newspaper, Mid- 
Atlantic Electronics. I got around to reading it on the 
way back to the West Coast and found that I tore out 
almost half the pages to keep in my technical reference 
files. They are at 5012 Herzel PI., Beltsville, MD 20705. 

I heard that the National Security Agency has an 
in-house club of computer amateurs that has over 100 
members. 

The Chesapeake Microcomputer Club appears to be 
an East Coast counterpart of the Southern California Com¬ 
puter Society. It already has Chapters in Baltimore, 
Columbia, Wheaton, Washington, McLean, Reston, and 
Richmond. 

Wayne Green and John Craig were there with 73 
Magazine and their new computer hobby mag, Kilobyte. 
[See John Craig’s article elsewhere in this issue.] 

Votrax was another exhibitor well worth noting. 

They have been making speech synthesis systems for 
several years. Last Spring, we contacted them and en¬ 
couraged them to enter the hobbyist market with a 
low-cost speech-synthesis kit. I am delighted to report 
that they were handing out a press release detailing 
such a kit for $750, with first deliveries planned for 
early 1977. [See February, March, May and September 
issues of DDJ for more details.] 

I heard some preliminary but very exciting com¬ 
ments about a general-purpose string-processing lan¬ 
guage that is about to become available, based on 
Strachey’s GPM and Mcllroy’s M6. 

Ted Nelson was there with his Itty Bitty Machine 
Company of Chicago, and 7’-high stacks of IMSAI’s 
as a backdrop. We happened to share the same tables 
for several meals ... a most interesting guy. He told me 
something of his progress on Xanadu, a very exotic 
electronic library and information facility (described in 
one part of his book, Computer Lib)\ a fascinating pro¬ 
ject that appears to be nearing reality. If you haven’t 
head about it, better look it up. You are likely to be 
hearing about it before long. He is making heavy use of 
Calvin Mooers’ TRAC (licensed, proprietary name) lan¬ 
guage, and expects to market the sortware for $100 (with, 
of course, an agreed upon royalty being paid to Mooers). 

Carl Helmers gave me this hot news item for DDJ 
(and I took it, hook, line, and sinker): The Amalgamated 
Clothing Workers Union is considering unionizing program¬ 
mers. They have decided they ought to do so since they 
heard that programmers make software. [Byte is too 
proud to publish it, but we’re jus’ plain folks, out here.] 

And with that ... I better quit. 
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San Francisco Bay Area finally gets it together 


First West Coast Computer Faire 


Jim Warren, Editor, Dr. Dobb’s Journal 

The first microprocessor was invented in the San Fran¬ 
cisco Bay Area. One of the first computer clubs to be formed 
is located in the Bay Area. The Bay Area has the second 
largest such club in the U.S. The San Francisco Peninsula has 
a greater concentration of semiconductor and microprocessor 
manufacturers than any other area in the Western Hemisphere. 

Yet, it has never had a conference or convention con¬ 
cerned with personal and home computers, in spite of the fact 
that three such conventions have met with great success and 
enthusiasm in the East and Midwest. Well, the San Francisco 
crowd has finally gotten it’s act together. A convention of 
major proportions is scheduled for next April 15th through 
17th, 1977. 

The convention—called The First West Coast Computer 
Faire—will be held in the largest convention facility in Nor¬ 
thern California, the Civic Auditorium in San Francisco. The 
two-and-a-half day event will include a Conference that will 
offer 50 to 100 different technical and tutorial sessions, 
several banquets and luncheons with major speakers, and an 
Exhibition that should have over 200 exhibits. Based on the 
location, the amount of planning and organization, and the 
experience with the other hobbyist conventions, 7,000 to 
10,000 people are expected to attend. 

The Computer Faire is being co-sponsored by a number 
of computer groups and educational organizations including: 
The Homebrew Computer Club 

The Association for Computing Machinery, Peninsula Chapter 
Stanford University’s Electrical Engineering Department 
People’s Computer Company 
The Community Computer Center 
The Amateur Research Center 

and a number of other organizations are considering becoming 
co-sponsors as this article is being written. 


The Conference portion of the Faire will include every¬ 
thing from formal papers and “heavy talks,” through informal 
“shirtsleeve raps.” It will also include a number of panel dis¬ 
cussions, worldng sessions, and presentations of homebrewed 
computer projects. Though planning is still in its early stages, 
several exciting Conference Sections are already taking shape, 
some of which are “firsts” for the personal computing move¬ 
ment. 

One such Section is that concerned with Personal Com¬ 
puters for Education. It will focus on educational uses of 
computers in the home and elementary and secondary 
school, as well as in one-computer/one-user situations in col¬ 
leges and universities. 

Another “first” is the Conference Section on Micro- 
programmable Microprocessors for Hobbyists. Presentations 
in this Section will include designs and kits for hobbyists who 
wish to have systems in which they can “customize” their pro¬ 
cessor’s instruction set. 

Sections are also being planned for Computer Music, 
Computer Graphics and Animation, Personal Computing for 
the Handicapped, and many other exciting subject areas. 

There will be a number of panel sessions and working 


groups concerned with hardware and software standards. 
These will include Digital Cassette Tape Standards, Bus 
Design Standards, Peripherals Interface Standards, Software 
Modularization for Program Portability, and so on. 

There will also be information exchange sessions for 
Club Officers, Newsletter Editors, and Conference Organizers. 
Additionally, several “social centers” will be set up around 
the auditorium for sittin’, sippin’, and gossipin’. 

An exhibition of homebrewed projects and systems 
is also planned. Assuming that there are sufficient entires 
to make it interesting, these projects will be judged, and 
prizes and awards will be presented for the best systems. 
Nominal Grants-in-Aid will be made available on a refereed 
basis to some hobbyists living a significant distance from San 
Francisco who would like the opportunity to exhibit their 
homebrewed projects. These Grants will be to assist with 
the expense of shipping the systems to be exhibited. 


Most of the banquet plans have yet to be solidified, 
however, one banquet speaker has already been chosen. 

He is Professor Henry Tropp who has spent almost three 
years as the Principal Investigator in the Computer History 
Project jointly sponsored by the Smithsonian Institution 
and the American Federation of Information Processing 
Societies. In this capacity, Professor Tropp has traveled 
quite broadly, conducting in-depth interviews with most of 
the “old timers” who created and invented the computer 
science and technology that is the basis for today’s computers. 
Dr. Tropp is a quite fascinating speaker, and will be relating 
a number of stories concerning the personalities, foibles, 
mistakes, accidents, and eccentric technology of those early 
days of computers. 


The Exhibition portion of the Faire will include ex¬ 
hibits by almost every manufacturer and vendor who is in 
any way interested in the personal computing community. 
These vendors have shown great enthusiasm for the Faire; 
many committed to being exhibitors as soon as they heard 
about it. In the first three afternoons of contacting possible 
exhibitors, the following have already indicated they expect 
to participate: 

National Semiconductor 
American Microsystems Inc. (AMI) 

MOS Technology 


Zilog 

Southwest Texas Products 
Apple Computers 
Technical Design Labs 
Polymorphic Systems 
Cromemco 
OSI 

Microcomputer Associates 

STM Systems 

Quay 

Project Support Engineering 
Computer Converser 
Shugart Associates 
iCom 

Action Audio Electronics 

and that’s just scratching the surface. 


Byte 

Interface Age 
Dr. Dobb’s Journal 
People’s Computer Co. 
Kilobyte 
73 Magazine 
Microcomputer Digest 
Osborne & Associates 
Processor Technology 
Solid State Music 
National Multiplex 
Monolithic Systems 
Percom 
Call Computer 
Associated Electronics Co. 
Byte, Inc. 

CompuMart, Inc. 


(Continued on next page.) 
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PAPERS AND PARTICIPANTS ARE BEING SOUGHT 

If you are interested in participating in this Computer Faire, 
as: 

• A Speaker 

• A Panel Session Leader or Participant 

• A Section Chairperson 

• An Exhibitor of a Homebrewed System (hard or soft) 

• An Exhibitor of Commerical Products 

• An Assistant in the Administration and Coordination 
of the Faire 

• Or Whatever 

Or, if you wish to suggest something or someone for inclusion 
in the Faire: 

• Topics for Panel Sessions or Talks 

• Possible Speakers or Panel Leaders 

• Interesting Exhibits (Homebrewed or Commercial) 

• Special Activities (Tours, Meetings, etc.) 

Or, if you have questions or desire additional information, 
then please contact: 


Jim Warren, Faire Chairperson 
[Editor, Or. Dobb’s Journal & 
Vice Chairman. Peninsula 
ACM Chapter 1 

c/o People's Computer Company 
P.O. Box 310 
Menlo Park, CA 94025 
(415) 323-3111; 851-7664 


[or] Bob Railing, Operations 
Coordinator 

[Editor, Homebrew Com¬ 
puter Club Newsletter 1 

193 Thompson Square 
Mountain View, CA 94043 
(415) 967-6754 


FLOATING POINT PROCESSOR FOR 8080’s 


A PC card is available from North Star Computers, 
Inc., 2465—4th St., Berkeley, CA 94710, (415) 549-0858, 
that provides floating point functions to the 8080. It pro¬ 
vides for addition, subtraction, multiplication, and division 
of BCD-formatted floating point operands with 14-digit pre¬ 
cision. The subsystem is available for $499. 

NEW CHIPS OFF THE OLD SUBSTRATE 

by Jim Day 

The September 2, 1976 issue of Electronics de¬ 
scribes two new peripheral support chips that may prove 
useful to hobbyists. 

On page 133 is a description of the MN3020 8-bit 
D/A converter chip from Micro Networks Corp., 324 
Clark Street, Worcester, MA 01606. The 18-pin DIP in¬ 
cludes an internal reference and an amplifier for the ana¬ 
log output. Priced at $30, the unit is TTL compatable 
and should be useful for music and speech synthesis 
applications. 

Page 151 describes a new character generator 
chip from National Semiconductor Corp., 2900 Semi¬ 
conductor Drive, Santa Clara, CA 95051. Designated 
the DM8678, the 16-pin DIP includes all circuits needed 
for parallel-to-series shifting, address latching, and char¬ 
acter and line spacing. Priced at about $15 in lots of 
100, the bipolar device could simplify the design of 
video display boards used by hobbyists. 


HEATHKIT MARKETS VIDEO GAMES KIT 

Heath Co. [Benton Harbor, Ml] is starting to peddle a video 
game kit for $49.95 (mail order) to $54.95. It is designed to at¬ 
tach to the video and sound inputs of any of Heath's tee-vee kits, 
thus bypassing the FCC regulation quagmire. It also uses the tele¬ 
vision's power supply for its power source. 


INSIDE DOPE FROM MOTOROLA 

We announced the “reliable rumor” of a Z-80 com¬ 
petitor being planned by Motorola, the 6809, at the July 
21st Homebrew Computer Club meeting. Afterwards, a 
Motorola engineer rushed over and, after an unsuccessful 
query concerning our source of information, volunteered 
to “tell all.” Here is his information as of August 6th. 

All of it is tentative. 

A BASIC compiler for the 6800 will be introduced in 
the 3rd Quarter of this year. It will be resident in the 6800 
Exer Ciser, will be a legitimate compiler {not an interpreter), 
will take 4K to 6K for the compiler plus 2K—minimum—for 
the user. It will handle scalers, one and two-dimensional 
arrays (but no matrix operations), and will include such 
command facilities as IF-THEN-GOTO, GOSUB/RETURN, 
DATA, READ, RESTORE, INPUT, and PRINT. It will have 
the usual arithmetic functions and will allow linkage to 
user-generated object code. Features that will be added at a 
later date include matrix operations, string manipulation, 
and graphics. It is being developed at Ohio State. 

Motorola’s forthcoming high performance micropro¬ 
cessor will probably be labeled the 6809, although there was 
some in-house discussion about calling it the 6900. The 
architecture has been defined and has been just about 
finalized. The instruction set will be a superset of that of 
the 6800. It will have additional registers, including one or 
2 more index registers. It will have additional addressing 
modes including indirect and “true indexing” with the base 
in the operand and the offset in a register. It will probably 
be an N-Channel device. It is expected to be available in 
the 2nd Quarter of 1977. 

Lots of other tidbits are forthcoming from Motorola, 
however: 

Note that the 6800 uses 197 of the 256 available op 
codes. The 6801 will have an on-chip clock. Sampling of 
the 6801 is expected in September or October. 

The 6800A is expected to be available in a coupla 
months. It will run at 1.5 MHz or better and will be a 
depletion-load device. 

The 6802 will be available in the 1st or 2nd Quarter 
of 1977. It will be more of a “controller” than the 6800. 

Its instructions will be more oriented towards bit manipu¬ 
lation. 

In October of this year, Motorola will introduce a 
new 6800 kit for about $200. It will be a two piece kit, 
will include a 7-segment hex display, hex keyboard, a IK 
JBUG Monitor (the “J” stands for “Jim”) that is located 
at the top of memory, and a Kansas City “standard” audio 
cassette interface. 


RAW RUMOR: AN 8085 FROM INTEL? 

The Silicon Gulch rumor mill grinds onward: someone 
announced at the September 15th Homebrew Computer 
Club meeting that Intel will shortly release the 8085. It is 
supposed to be a microprocessor with on-board clock and 
I/O, 12 new instructions, and requires only a single +5 volt 
power supply. 


October, 1976 Dr. Dobb’s Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park, CA 94025 Page 9 


271 


AN EXCELLENT, POINT-BY-POINT RESPONSE TO 
COMPLAINTS ABOUT THE DIGITAL GROUP 

Dear Mr. Warren, August 24, 1976 

I would like to take this opportunity to thank you for 
the kind words and your support in Dr. Dobb’s Journal As 
you know, Dr. Suding and the Digital Group have tried to be 
equally supportive of your efforts and of course will continue 
to be so. 

In your August issue, you raised some very valid points 
about what we are trying to do and how well/not-well we are 
succeeding. Your assumptions were partially valid on the 
current situation and I would like to address them one-by- 
one. [The following three quotes were editorial comments 
published in the August article.] 

1. “Customer interest in Digital Group products has 
exceeded their initial capacity to respond in a 
manner they would like.”—obviously true. 

2. “They are aware that they have a problem and are 
doing everything they can to expand their customer 
service department and procedures.”—boy, are we 
aware of the problem! 

3. “It is their wish to maintain an operation of un¬ 
usually high integrity and responsiveness to their 
customers.”—Exactly. 

Agreeing with you is OK as far as it goes, but what are 
we DOING? Here are the actions we have taken to rectify 
the situation. 

1. We have expanded our facility from 100 square feet 
to over 7000. 

2. Our number of full time people has expanded from 
6 to 16 plus part time as needed. 

3. We have quintupled our investment in inventory 
(which was not trivial to begin with). 

4. Of the new personnel, 2 went directly to customer 
service on a full time basis, effectively tripling our 
capability there. 

5. We are in the process of automating our operation 
(a long overdue step) so that we can respond to 
order status more appropriately and do such things 
as acknowledge receipt of an order, keep better 
track of any shortages, and keep people informed 
if their order hits any unexpected snags. 

All of these items have been implemented currently and 
you should begin to see their results soon. We are doing 
everything we possibly can to “dig out from under” and ex¬ 
pect to be in very good shape soon. 

Next item: You did print a couple of complaints 
about the servicing we were providing a couple of months 
ago. I find no objection whatsoever against complaints 
when they are on target, but I wish that just once a manu¬ 
facturer would be given a chance to respond before you go 
to press—not censor, as that would impune your integrity— 
but at least a chance. [We have. See editorial in this issue.] 
The manufacturer is always automatically cast as the heavy 
against the little guy and does not dare respond. Please 
pick up the telephone and call me directly (collect, of 
course) so at least I can look into the problem and fix the 
situation. You would then be doing everyone a service by 
getting action and would still be able to print whatever you 


ELECTRICALLY ERASABLE ROM’S 

General Instruments is rumored to be planning 
announcement of ROM that can be erased simply by 
applying a short blast of voltage to appropriate pins. 
Reading is performed at usual voltage levels. Writing 
or erasing is done at 28 volts; 10-20 ms for writing 
and 100 ms for erase. There are to be two models 
of the ROM (EROM?, EPROM?, non-volatile RAM?): 
the ER2800 will have 8K bits and 2 mics. read cycle, 
while the ER3400 will have 4K bits and an access 
time of 650 ns. 

felt was appropriate. [A reasonable request. Herewith 
adopted as Journal policy.—JCW] 

On the two items [Page 37, August issue]: 

Christopher Hovey. Our turnaround time on servicing 
is now down to less than a week and rarely, if ever, has 
exceeded 2 weeks. Of course, Mr. Hovey is at an APO 
address and normal one-way shipment takes 3 weeks or 
longer. Amazingly enough, he’s been waiting a full month 
for his equipment to go by boat to wherever overseas he 
is stationed. The latest information we have is that he is 
indeed up and running. [My error. I should have spotted 
the APO address and noted that a one-month turn-around 
was reasonable.—JCW] 

Robert Gerald. This one’s a pip. Yes, he is quite right 
that we got some mis-labeled parts from Motorola that did 
indeed generate upside-down characters. About 10 actually 
got out our door, and to my knowledge, all have been replaced 
in most cases before the kit builder even had his kit built. 
However, his complaint is misleading concerning the replace¬ 
ment of his chip. We shipped him a replacement the day 
after he placed his call, irrespective of Gus’s comment (which 
was not true and very ill-advised—one of his bad days ob¬ 
viously). You will note that the date on Mr. Gerald’s let¬ 
ter is the very next day. Now, the post office is doing 
pretty well, but not that well. Ah, but there’s more. You 
will notice that after our repeated requests to send in his 
board, Mr. Gerald finally sent it in with a cover letter on 
July 31 [Copies of correspondence were enclosed.—JCW]. 

I’ve also included a copy of our service record for the unit 
and what we discovered—misplaced part, destroyed char¬ 
acter generator, and a solder bridge. We returned his kit 
on August 12, up and running, with no charge. If that’s 
“abandoning any kind of customer service to previous pur¬ 
chasers,” I guess there’s nothing more I can say. [We 
agree.—JCW] 

Well, I hope I’ve made my point. As usual, there 
are 2 sides to every situation, and all I can hope for is that 
you might be able to do a little checking on what’s really 
behind the letter before printing. 

Sincerely, 

Richard C. Bemis, President 

Tire Digital Group, Box 6528, Denver, CO 80206 

(303) 861-1886 

Editor’s Note: Mr. Bemis also included some notes about a 
delay in shipment of DG’s Z-80 kits. The problem has been 
cleared up (as of September 6) and they expect to fill all 
Z-80 orders within three weeks of receipt.—JCW 
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A Consumer Reports 

ASSEMBLING AN IMSAI MICROCOMPUTER 
by Pierre duPont V 

When I left for my first year at boarding school last Sep¬ 
tember, my big interest was Spanish, and I had visions of a 
language major. However on my first day at school, I was 
introduced to a PDP8/e computer. Immediately I took in¬ 
terest and got to know the appropriate teachers and stu¬ 
dents. After a year of intensive training with a computer 
hobbyist who was never around when I wanted to learn, I 
received a key to the computer room, and a key to the com¬ 
puter itself. I now have visions of an electrical engineering 
major, and can’t wait to complete my requirements in Span¬ 
ish this year. 

Just as school let out I became convinced that I should 
purchase a microcomputer. In about a week I had placed 
several orders, cancelled several, and ended up with an 
ALTAIR 680. It arrived on time (strange!), and I assembled 
it without difficulty. Just as I finished, I left for Denmark 
for some sleep. When I returned and had about one day’s 
use of my 680,1 went to the Personal Computing Conven¬ 
tion in Atlantic City. When I arrived at the convention, my 
teaching friend began to think about trading his 680 in for 
an IMSAI. As it turned out, we both traded our VW 680’s 
for Cadillac IMSAI’s. 

I didn’t start assembling mine for about a week, but when 
I did, I had a couple of scares. The instructions were not 
as easy to understand as ALTAIR’s. I had to remove the 
same IC socket twice, and nearly ruined the circuit board. 

It was a socket for a jumper to the main processor board, 
and there wasn’t even supposed to be a socket there. It is 
assumed in the assembly manual that no sockets other than 
those given (3) were to be used. There was also a space that 
looked like a place for an IC, but nothing was to be in¬ 
stalled there. I don’t see why they don’t mention the 
sockets in more detail, but they aren’t too difficult to under¬ 
stand and install. 

I nearly ruined the entire power supply when I installed 
four diodes in the wrong position. I put them in as re¬ 
quired, but somehow I knew it wasn’t right. I called the 
factory and found out that the updated page had been left 
out of my manual, and that they were sorry. Well, the 
power supply works fine now, although it supplies a little 
too much. ' 

I finished building it in two days of slow work, and then 
proceeded to wait. I’m still waiting. It’s been l A weeks, 
and it’s killing me. I’m very disappointed because IMSAI 
supplies no memory with their basic kit. I have ordered 
8K of RAM from a small discount store (8K for $ 180- 
worth the wait), and a video interface board from Polymor¬ 
phic. Of course neither has arrived and I can’t test my 
dream computer. 

While waiting I’ve placed several more orders. I pur¬ 
chased a cassette interface, and expander board, several 100 
pin connectors, and a cooling fan. I also hope to persuade 
the relatives to give me an advancement on my Christmas 
presents, and give me another 8K board. 

So far I have no complaints with IMSAI, except that it 
comes with no memory. I realize that this is because 
their computer is meant for small businesses who may pur¬ 
chase 32K at one time, and have no use for IK of on 
board memory that would clutter things up. The entire 
kit seems to be this way—the assembly instructions are not 
really meant for a small time hobbyist like me, and the 
computer itself is built like a tank. I do think that IMSAI 


CONSUMER NOTES ON 
DIGITAL GROUP & TINY BASIC 

Dear Jim, Sept. 7, 1976 

Since I wrote you last I have received an 8K board, 
Tiny BASIC and a C-104 superscope cassette player from 
Digital Group. 

4/30/76 Order placed 

5/10/76 Tiny BASIC and game tapes received 

6/1/76 8K and Cassette deck received 

UPS messed DG up by going on strike, so I reminded 
DG about my order a week after UPS went back to work. 

The 8K board went together in 3A hours including 
checkout and installation. Worked perfectly. 

The “Tiny BASIC” (TB) tape was defective and they 
sent me another. Their soft ware is a little sloppy but it 
is very inexpensive and does work, $5.00 for TB. 

The C-104 works great but I’m sure it’s possible to 
buy it cheaper someplace else. I wanted it in a hurry. A 
good feature is its variable speed control. It allows a per¬ 
son to use tapes recorded on different players even if 
their speed was a little off. The tapes from DG have been 
running a little slow on my system. 

My plans are to work on SCELBI’s “SCELBAL” and 
8080 Assembler programs. Tiny BASIC felt restrictive as 
soonaas I tried to apply it in physics problems. Integer 
arithmetic requires scaling. 

Oh, by the way, the biggest disadvantage of DG’s 
TB is they send no listing or include no software tools 
for modifying it. Fortunately they tell you how to use 
it. No listings are sent with their games. TB was set up 
for TTY and not for 32 column TV, a disadvantage. 

Keep up the good work. 

Yours, 

Ed C. Epp Educational Computer Laboratories 

748 S. Main St. 

Freeman, SD 57029 

SOLAR ENERGY COSTS DROP 50% IN 18 
MONTHS 

Remember how the "nuclear people" were predicting, in 
last spring's California ballot initiative battle, that solar energy 
would remain uneconomical for the rest of the 20th Century? 

Well, the September 2nd issue of Electronics magazine carries 
a report of an announcement by ERDA (Energy Research and 
Development Administration) officials, stating that costs of 
photo cells designed for solar energy use had dropped from 
$30/watt to $15/watt within the last year and a half. 

[And: Photocells aren't even the best way to obtain 
reliable electrical power from the sun. There are some excel¬ 
lent solar-thermal alternatives, requiring no significant techno¬ 
logical breakthroughs that can provide 24-hour electrical power 
without requiring electrical sotrage for night-time service.] 

makes a great kit, and offer praise to them for their rela¬ 
tively inexpensive tank-like kit. 

In the next year or so I hope to expand to about 20K 
of RAM. 1 also plan to get 8K and 4K BASIC along with 
IMSAI’s self-contained system on PROM. After that comes 
a hardcopy printer and several more cassettes for a Tarbell 
interface board. 

The IMSAI kit is great and I recommend it to anyone 
who wants a microcomputer, but doesn’t want to wait for 
an ALTAIR. Being relatively new like they are, IMSAI 
has quite a kit. 

Pierre duPont V Salisbury School 

Salisbury, CN 06068 


October, 1976 
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PCC Research Engineer 


Evaluates the 16 -Bit PACER Kit 


by ■ ,oh " 3neM (Reprinted from PCC) 

Editor's Note: John Snell is an unusually competant electronics 
engineer who joined the PCC staff some months ago. Prior to 
that time, he was working in the "real world" (or unreal world; 
it depends on your viewpoint) as an EE in the San Francisco 
Peninsula electronics industry. He found such work too time- 
consuming, keeping him from more important work, namely re¬ 
search into the design and implementation of very esoteric 
computer-music systems. He also needed more free time to work 
with some associates on their exotic video/lazer/lightshow systems 

So, PCC agreed to hire him for our usual paltry pittance, so he 
could do his research and keep our electronic widgits working. 
The PACER kit is one of those widgits, recently received. In¬ 
cidentally, John is a graduate of Carnegie-Mellon University, 
one of the top computer engineering schools in the nation. 

1 recently pul to getlier u Pacer 311 microcomputer development system kit, 
made by Project Support Engineering. It has by far the easiest to use operational 
and debug functions of any computer kit that 1 have used. It has a NOVUS 
type (no tactile feedback) calculator keyboard built into the front panel. When 
you want to deposit a number such as 7532, you hit the 7, 5, 3, 2 keys on the 
keyboard instead of binary switches 1,1,1, 1,0,1, 0,1,1, 0,1,0. The Pacer uses 
the hexadecimal number system for keyboard input and display. If you do not 
know hexadecimal, the keyboard will convert from decimal to hexadecimal 
as well as perform hexadecimal arithmetic. Addresses are displayed to the left 
and data contents to the right in alphanumeric LED’s. Using the keyboard you 
may examine and/or modify not only memory locations but also: 

♦ 4 accumulators X 16 bits, 

♦ a 16 bit program counter, 

♦ a 16 bit status register, 

♦ a 10 word X 16 hit stack, 

♦ a 16 bit value register used for scanning memory to find the address 
at which a value is located, 

♦ a 16 bit mask (for use if you are not certain about some of the hits 
or digits in the value), 

♦ and 10 break point registers, 16 bits each. 

The keyboard will also allow you to sequentially increment or decrement through 
memory or internal accumulators and registers for examination or modification 
of contents. Other front panel buttons include run, initialize (reset), restart 
(halt CPU but do not reset), and cancel last command. 

The kit includes all parts one needs to have a working desk top microcomputer 
development system. The CPU board includes the PACE 16 bit MPU with 
necessary input and output buffers. On the control and I/O boards are two 
DM8531 (2038 x 8 each) ROMs for the system monitor. Also included on 
these boards are four MM2112 (256 x 4) static RAMs, one MM5740 keyboard 
encoder, two hex latches and LED driver circuits as well as all required support 
components to interface with the two 4 digit displays and 32 keypad. The 
control board has space for four more MM2112 RAMs. The memory board 
comes with four MM2112 RAMs. Space is provided for 12 more MM2112 RAMS 
and four MM5204(512 x 8) PROMs for future memory expansion. The PAC 11 
card has 2K x 16 of MOS RAM. The PAC I, PAC II, and PAC III cards are 
optional cards. PAC III is a prototyping card with voltage regulators. All other 
boards also have their own on board voltage regulators. PAC I is a TTY (or 
RS232C) interface and resident assembler card. With PAC 1 the user may perform 
all the front panel functions from a teletype (or similar device using current 
loop or RS232C) as well as the following useful functions: 

♦ Load or punch a paper tape - no bootstrap need be loaded. 

♦ Display a block of memory in one of several formats including assembly 
language (yes a dis-assembler! - very useful), ASC II, hexadecimal, 
unsigned decimal, or signed decimal. 

♦ Set, list, or reset break or snap points (Break points are placed at 
strategic locations in a program. They halt execution and display 
the contents of specified registers and memory locations. Snap points 


do the same except program execution is not halted.) 

♦ Enter programs in assembly language format (the assembler converts 
your programs line by line as you type them, to hexadecimal. No 
paper tape or cassette need be used for this. The assembler and other 
features listed here reside in two EA4900 type ROMs which hold 16K 
bits each.) 

♦ Use symbols; the assembler does all address assignment and referencing. 
(One may also list the symbol table, delete a symbol or clear the table.) 

In addition to the resident ROM memory in PAC ) space is provided for twelve 
MM5204(512 x 8) PROMs, for future user resident programs. 

So what else comes standard with the basic Pacer kit? A case, keyboard, 
push buttons, alphanumeric LED’s, all interface logic for keyboard and LED’s, 
a power supply, a mother board (which reduces interconnect wiring and makes 
expansion easy), cables, connectors and a fan. Space is provided on the mother¬ 
board for 8 extra PC boards for future expansion. The power supply included in 
the kit will put out 8 amps total. If you used mostly CMOS on optional PC 
l>oards, the power supply would probably allow you to fill all the available 
space on the motherboard. P.S.E.l says the supply will power the CPU board, 
control board, front panel and logic cards, standard memory board, plus a 
TTY/line assembler (PAC 1) and two RAM (2K x 16) memory boards (PAC II). 

The assembly of the Pacer 3H was easy and quick. 1 had only a couple of 
minor problems. I forgot to connect the fan power lines at the right step of 
assembly. So 1 had to remove some heat shrink.solder wires, and then put new 
heat shrink on. Really no big deal, but I don’t have a heat gun or hair dryer. 
Shrinking heat shrink with a match near the plastic case was somewhat of a 
hassel. I really should get a heat gun. They are also great for troubleshooting 
circuits with temperature sensitive problems. 

There is a thin flexible cable that runs from the keyboard to the logic. This 
looked fragile, so I took my time installing it in its connector. Once installed 
however it will never be moved or flexed again, so this is really nothing to 
complain about. 

The Pacer worked perfectly the first time 1 turned on the power. As I played 
with it, I began to appreciate the beauty of its high level front panel operational 
and debug capabilities. 

Now I wanted to try our teletype with it. I quickly wired up our TTY to the 
connector and plugged in a PAC I pc board (TTY interface/resident assembler). 
The TTY would not work — oops, I neglected to ground the TTY select (low = 
select) pin on the connector. Once I did this everything worked perfectly, and 
I enjoyed exploring the fine operational capabilities of the unit. 

Available soon from P.S.E. will be a PROM burning board, and an audio cassette 
interface, a CRT character generator and interface, a floppy disk interface, and 
BASIC (the debugged program burned into PROMs) as well as other programs in 
firmware. Since the Pace shares instructions with the IMP-16 (minor modification 
of programs might be needed), there is a lot of software already available. The 
Bit Bucket 2 newsletter is the best source of PACE and IMP-16 software. 

Program listings are free, source tapes $5, object tapes S3. 



Overall I very much like the Pacer. I wish sockets had been provided for all 
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B4CER continued 

the IC’s and a heftier power supply had been used, however, these additions 
would of course increase the cost. The front panel operation and debug capa¬ 
bilities are the best I have seen on any commercial computer kit. 1 have not 
used any FAC II operational memory cards yet; so I can’t evaluate them. 

However, I would highly recommend the PAG 1 TTY interface/resident assembler 
optional card. Having an assembler and dis-assembler as well as a system monitor 
in firmware result in relatively quick and easy assembly language, programming 
and debugging. The 16 bit instructions and data provide for efficient assembly 
language programming as well as increased accuracy. One may use words as a 
whole or in 8 bit bytes. Common memory and peripheral addressing result in 
simple quick 1/0 instructions. 

With the Pacer’s 16 bit accuracy and easy I/O and a couple of floppy disks, 
one could program something like Music and Score ^ for composition and 

playing of high fidelity music. Of course you would also need a 16 bit DAC*\ If 
a very fast hardware multiply card were added as well as a fast Pace IC (rumored 
to be coming out from National Semi) to replace the pMOS IC, a real time FM 
systhesis6 of timbre might be possible. I’m not sure if the rest of the Pacer circuits 
would be fast enough. Oh well back to the 4 bit bipolar slices for real time 
Fourier synthesis 


(1) Project Support Engineering/750 N. Mary/Sunnyvale, Ca. 94086 

(2) Bit ZtocAref/Compute-1 15/National Semiconductor/2900 Semiconductor Dr. 
Santa Clara, Ca. 95051. 

(3) Described in The Technology of Computer Music by M. Mathews, MIT Press, 
Cambridge, MA 1969. 

(4) “Score — A musician’s Approach to Computer Music” by L. Smith in the 
Journal of the Audio Engineering Society (JAES) Vol. 20, No. 1, Jan/Feb, ‘72. 

(5) “Digital-to-Analog Converters: Some Problems in Producing High Fidelity 
Systems” by R. Talambiras, Computer Design, Vol 15, No. 1, page 63, Jan ‘76. 

(6) J. Chowning, “The Synthesis of Complex Audio Spectra by Means of 
Frequency Modulation” JAES, Vol. 21, No. 7, p. 526, Sept. 1973. 


PACER PRODUCT LINE RETAIL PRICE LIST (JUNE, 1976) 


Pacer Units 


Quantity 

1 H 

2H 

3H 

PAC 1 

PAC II 

PAC III 

PAC IV 

Fan Kit 

1 - 3 

$895 

$1075 

$1025 

$180 

$225 

$50 

$7 

$25 

4-9 

$855 

$1035 

$985 

$175 

$245 

$47 

$6 

$23 

10 — up 

$820 

$995 

$950 

$170 

$235 

$45 

$5 

$22 


Club group buys would help reduce costs. 

Pacer 1H — totally unassembleJ(not recommended by P.S.E. for beginners. 
Pacer 2H - completely assembled, tested and burned in. 

Pacer 3H — unassembled except for logic cards which are tested and burned in. 
PAC I — TTY interface/resident assembler card. 

PAC 11 - 2K x 16 MOS RAM card. 

PAC 111 — prototyping card with voltage regulators. 

PAC IV — dual 43 pin mother board connector (this comes with PAC 1, PAC II 
or PAC III). 

Fan kit — designed for general purpose use 


PHILA STORE OPENING 

The Computer Room is opening in Philadelphia, 
located at Juniper and Sansom Streets. Though we 
are unclear of the exact relationship, it is evidently 
closely associated with Carol Groves of Castle Systems 
Co., 1028 Spruce St., Philadelphia, PA 19107, 928-1268. 


DOC QUESTION ON 64-CHAR MOD FOR TVT-II 

(Copy of a letter to Digital Designs) 

To: Digital Designs August 18, 1976 

P. 0. Box 4241 
Victoria, Texas 77901 

David O. Valliere, [see DDJ, Vol. 1, No. 6, page 29] 

I received the circuit board to convert my SWTPC TVT-II 
to 16 x 64 characters from you last week. I have not in¬ 
stalled it yet. In the meantime I have modified my TVT-II 
diagram to include the changes. At the same time I decided 
to check your modification to see if I could convince my¬ 
self it would work. 

1 failed. But I think I know what’s wrong. Three things 
bothered me. 

1. There seems to be no source for the logic net compris¬ 
ing pin 9, IC28, pin 13, IC33 on the TVT board. 

2. There seems to be no source for pin 15, IC42 compara¬ 
tor. 

3. Connection I on your circuit board had no instruction 
referring to it. 

I would like to know if the following correction is correct. 
Remove the following instruction from page 4 of the in¬ 
structions: Connect pin 15, IC35 to H. Add in its place 
the following two instructions: Connect pin 13, IC33 to H; 
Connect pin 15, IC42 to I. 

Walter Cole 5868 Pentz Way 

San Jose, CA 95123 

P.S. I am very interested in your upper/lower case and com¬ 
puter controlled cursor modifications for the SWTPC 
TVT-II. _ 

ENDLESS LOOPS SUGGESTED TO AVOID 
TAPE-STRETCH PROBLEMS 

Dear Dr. Dobb’s, 

Since we have been experiencing tape-stretch prob¬ 
lems and other Natal problems when we have to run 
BASIC back and forth on the cassette machine to load 
our APPLE every morning, I was going to ask you for 
your best medical advice, but have solved the problem 
with a home remedy. Being new to this cassette business, 

I figured they should only run in one direction, but no, 
wham-bang, you have to rewind the buggers—this stretches 
and pulls and raises general hell with the tape! So why 
not just run in one direction? No reason why not if 
you use an endless loop tape! TDK puts out a high 
quality loop tape in 20 sec., 30 sec., 1 min., 3 min., 6 
min., and 12 min. versions (something for everyone)— 
so you can save your favorite games or BASIC on a tape 
that will run round-and-round and just wait for the 
beginning to press load. 

Sorry I didn’t get the prices (they are expensive), 
but just finding the things after calling a dozen places threw 
me off. They are available from: 

Qument Electronics 
1000 S. Bascom Ave. 

San Jose, CA 
(408) 998-5900 

If you have a loading indicator, file no. select, or 
can listen to the tape, endless-loop makes a fast single 
loading device. 

What can you do about my wisdom teeth? 

Bob Grater Byte Shop No. 2 

Technical Services 3400 W. El Camino Real 

Santa Clara, CA 95051 
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The Computer 
at Puberty 

(reprinted with permission from Technology Review, May 1976; 
Copyright 1976 by the Alumni Association, M.l.T.) 

The computer already seems to be everywhere, 
doing everything, but according to a group of prominent 
computer scientists, the industry has only just begun an 
explosive growth. Over the next two decades it will 
enter home, business and factory as never before. 

This was the principal conclusion of preliminary 
reports on an extensive study of “The Future Impact of 
Computers” being performed by computer and social 
scientists at IBM, Stanford, M.l.T., Harvard, Yale, Prince¬ 
ton, and other prominent institutions. 

The study, coordinated by Michael Dertouzos, 

Director of M.I.T.’s Laboratory for Computer Science, 
and Joel Moses, Associate Director, is sponsored by 
AT&T, IBM, the Office of Naval Research, and M.l.T. 

To be completed in 1977, it consists of an integrated 
series of carefully thought-out and hashed-over papers 
on key topics in the computer field. The participants in 
the study, key people in their fields, occupy excellent 
vantage points to ponder the computer’s future, said 
Professor Dertouzos. But, perhaps just as important, 
th"ir influence could make their predictions self-fulfilling 
prophecies. 

At the symposium marking the 100th anniversary of 
the telephone, many of the participants in the study 
gathered to offer a fascinating glimpse into a future 
stuffed with computers. 

The hardware of the computer should be about the 
least restraining influence on the computer’s future, 
according to scientist-entrepreneur Robert N. Noyce, 
Chairman of Intel Corp. His analysis shows that the size 
of computer components could be reduced a hundred to a 
thousand times, from even the tiny circuits of today, 
before they begin bumping “down” against the fundamen¬ 
tal thermal noise limits on size. And technological 
advance has allowed the complexity of integrated cir¬ 
cuits to double every year since 1960, he pointed out, a 
trend that should continue, allowing ever lower costs for 
ever more powerful computers. The future almost cer¬ 
tainly holds reductions in size and cost, and increased in 
complexity as remarkable as those that brought pocket 
calculators from the engineer’s workbench to citizen’s 
pockets. 

The Computer at Home 

The key to these technical advances is continuing 
profitability, said Dr. Noyce. His company is a leader in 
the high-technology semiconductor industry. For the com¬ 
puter to remain a profitable product, said Dr. Noyce, it 
must become a mass-market item. And according to Pro¬ 
fessor Moses, the computer will mount a massive invasion 
of the home over the next two decades. 

The first wave, said Professor Moses, will consist of 
computers which perform tasks not requiring connection 
to a communication network - such networks will probably 
bring up the rear in computer developments. 

Professor Moses foresees computer games and other 
recreations, “smart” household appliances, home educa¬ 
tion programs, and efficient household heating and cooling 
control as the first uses for home computers. Indeed, 
many such products have already appeared in the market¬ 
place: computer-controlled machines now being marketed 


include microwave ovens, television sets, automobiles, and, 
of course, the popular electronic games, which can be 
played through one’s TV. 

Eventually, however, computer communications net¬ 
works for the home will evolve, and subscribers will have 
enormous volumes of information at their fingertips - via 
home computer consoles that will cost about as much as 
today’s color TV sets. Computerized encyclopedias, elec¬ 
tronic mail, and enormous electronic “newspapers” which 
would allow the reader to delve into whatever subject he 
wished. Also possible would be a new form of electronic 
“junk” mail - when a subscriber wished to buy something, 
he could use his computer to summon all the current 
advertising for the product, and comparison shop from his 
easy chair. This divorce of news from advertising could 
also affect the content of news, noted Professor Moses. 

No longer would a reporter on auto safety worry about 
irate car dealers cancelling ads, should he criticize their 
product. 

There will also be other changes in the kinds of 
information we receive, with the advent of the “informa¬ 
tion utility,” according to John McCarthy of Stanford. 
Computerized publishing would increase competition, 
because the expensive printing process would be eliminated. 
As soon as a manuscript was ready, it could be instanta¬ 
neously available. The nature of public controversy in the 
computer age would also change, said Dr. McCarthy. 

When one candidate attacked another over the computer 
news network of the future, the average citizen could 
immediately dial up the opposing statements. Thus, 
public stands would be much more carefully considered 
before being made public. Also, government information 
would be truly public for the first time. Instead of being 
stored away in dusty archives, available only to those with 
the wherewithal to dig it out, the data would be instantly 
available on the average person’s home console. 

Giving Computers the Business 

Although business and industry are already heavy 
users of computer power, they will become even more so 
in the future, according to the study participants. One 
major trend will be toward the “paperless office,” said 
Victor A. Vyssotsky of Bell Telephone Laboratories. 
Records and communications will be stored and trans¬ 
mitted by computers rather than as pieces of paper. How¬ 
ever, said Dr. Vyssotsky, the clerical worker will by no 
means be out of a job; rather the nature of his job will 
change drastically, from paper shuffler to electron pusher. 
Computer methods for assisting managers would also make 
gradual process as business tools. 

“Overall, I anticipate a modest steady improvement 
as a result of further computerization of business func¬ 
tions,” said Dr. Vyssotsky. “At a very rough guess, this 
improvement, over the next twenty years, may be some¬ 
thing like two per cent per year for a force which may 
run somewhere aorund forty per cent of the U.S. work 
force.” 

Manufacturing will also see much greater use of com¬ 
puters than even today, according to Professor Dertouzos, 
who wrote the portion of the study on that subject. The 
key technical developments in this area will be program¬ 
mable robots with senses of touch and sight; microcompu¬ 
ter-operated control systems integrated into aircraft, autos, 
home and factories; and networks of robots or control 
systems capable of working together. 

Out of these technologies, Professor Dertouzos sees 
emerging automated factories that could produce products 
tailored specifically to each customer. For instance, a 
customer might order shoes fitted to his foot measure- 
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ments, and the shoes would be manufactured on the spot. 
Such automation would revive U.S. industries currently 
being strangled by cheap foreign labor. Also, said Dr. 
Dertouzos, robots would continue to take over dangerous 
jobs, preserving human life; and they would relieve humans 
of mindless tasks, enabling them to do truly humane 
tasks. 

“While the popular view of an automated future 
involves a heartless and mechanistic society geared to pro¬ 
ductivity and efficiency, I advocate the opposite view that 
computers will improve and humanize our way of life,” 
he said. 

The major plea throughout all the scientists’ dis¬ 
course was — as Terry Winograd of Stanford University 
put it — that computers be “peoplized.” The computer 
must be taught to adopt the sytle of communication 
natural to people, and not the foreign language it is now 
allowed to use. Computers that understand human dia¬ 
logue, that can take human speech as an input, and that 
can explain their actions and reasoning to humans will 
represent major steps in this direction. 

Perhaps them the computer will become as benign 
and helpful an invention as is the telephone, whose 
100th anniversary the conferees were observing. — D.M. 


A THEATER COMPUTER USERS GROUP 

Support of a Theater Computer Users Group is being 
considered by Theater Sources, Inc., a non-profit, tax- 
exemp corporation. Persons who have developed pro¬ 
grams for applications in the area of live drama are in¬ 
vited to contact TSI with suggestions, information, and 
requests to be placed on a preliminary mailing list. Write 
TSI-TCUG, 4712 Northway Dr., Dallas, TX 75206. 

The form of support has not been set, but may 
include a newsletter, reproduction of listings or decks on 
file and/or meetings for exchange of information. Sug¬ 
gestions are welcomed. Costs of services will be covered 
by modest fees. 

Uses of the computer in theater might include 
rather ordinary uses such as bookkeeping, accounting, and 
mailing lists, but can also be extended to ticket sales, seat¬ 
ing charts, budgeting and artist records. Further extensions 
might include creation of buying and cutting fists for sets 
and costumes, visualization and modification of designs, 
and other interactions between artists and machine to ease 
the tedium of craft. 

Theater Sources, Inc., is a non-profit corporation 
under Texas law, created to “gather and distribute informa¬ 
tion about live theater” and granted a federal tax exemp¬ 
tion. Its current activities include publication of PROLOG, 
a newsletter for playwrights, and THEATER ACROSS 
AMERICA, for community theater, and the National 
Theater File, timeshare access to theater information. 

Contact: Mike Firth, 4712 Northway Dr., Dallas, 

TX 75206, (214) 363-5003. 


SOUTH CAROLINA HOBBYIST GROUP 
FORMING 

South Carolinians interested in forming a. persona 
computing club should contact Dewey K. Barefield, Box 
452, Hodges, SC 24653. 


ROBOT FEATURED AT ACGNJ MEETING 

BUSTER-II, a robot, will be the featured demonstrator 
at the October meeting [of the Amateur Computer Group 
of New Jersey]. BUSTER-II is a home-built robot con¬ 
trolled by an MOS Technology KIM-1 microprocessor. 

BUSTER-II was designed and built by Rod Loofburrow. 
Rod, who is 14 years old, is another of John Loofbur- 
row’s young sons . . . you may remember Wayne Loof¬ 
burrow (age 13) who demonstrated a 6800 Assembler at 
the March meeting. 

Rod will be explaining the technical side (or is it 
inside) of BUSTER-II, demonstrating the robot’s abilities, 
and answering all questions (sorry, as yet, BUSTER-II 
does not have a voice). 

The October meeting will be held at, and sponsored by, 
Middlesex County College, Edison NJ, on Friday, October 
15th. The meeting will be held in Building No. 4, The 
College Center, Cafeterias B and C (same as last meeting 
at MCC). 

There will be a Flea Market, starting at 6:30 p.m. 
Tables are available ($2 contribution is asked). Remember 
to bring your own extension cords. 

BUSTER-II will be doing his thing at 8 p.m. We must 
vacate the building by 10:30 p.m. 

Editor's Note: We are publishing this, not as a meeting announce¬ 
ment for the ACGNJ, but rather, because of the unusual and 
fascinating nature of the presentation being given at their meeting. 


LOOT FOR USELESS HEADS 

If you happen to have any crashed or worn-out disc heads, 
you might be able to peddle 'em for nominal cash. Trans-Data 
Corp [170 Glenn Way, Belmont, CA 94002, (415) 593-8545 (Don 
Collier)) is looking for heads for IBM 3330's and 2314's. 

[ANOTHER] MICROCOMPUTER 
PRODUCT SURVEY 

Dear Sir, Sept. 9, 1976 

This letter is to announce to you the publishing of The 
Microcomputer Product Survey. As we at Small Business Systems 
are sure you realize, there are a number of individuals who have 
claimed to offer a microcomputer product survey which has turned 
out to be little more than a chip feature list. The M.P.S. is a 
two volume report on the hard and software being offered in the 
small and personal computer market. 

The first volume will be released in November and will deal 
with Microcomputer Hardware, Peripherals and the companies that 
manufacture them. The second volume will deal with Software 
and the additional companies which supply only software and is 
scheduled to be released in January, 1977. 

The organization of Volume 1 will be a series of 16 charts 
covering all the major mainframes and peripherals. The peripheral 
section will include plug compatible memory and I/O cards. All 
of the hardware will be cross-referenced to the company profile. 
The peripherals will also be cross-referenced by mainframe com¬ 
patibility. The general form for Volume 2 will be three charts 
and a series of plain text discussions of applications program ser¬ 
vices. The charts will compare general types of instruction for 
the three general classes of software, operating systems, assemblers 
and higher level language. 

The two volumes will be supplemented with periodic 
product supplements to allow the M.P.S. to be one of the most 
timely sources of performance parameters in the marketplace today 

SBS has planned to allow the individual three options to 
personally determine the worth of the M.P.S. A subscription to 
the M.P.S. is only $9.00 a year, a sample issue is $3.00 and com¬ 
plete details for only $1.00. 

Yours truly, 

Timothy D. Sisson Small Business Systems 

General Manager 1800 Wayne No. 1 

Bellevue, NE 68005 
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How to Code Code 

Jack Armstrong’s Super Decoder Ring 


by Jon 0. Stedman, 1450 Alice St., Oakland, CA 94612 

Nostalgia time, gang! Remember when Jack Armstrong 
was sending his secret messages over the radio into your 
home? For only two box tops of some breakfast cereal, 
you could order your own SUPER decoder ring. In no 
time, you can be passing secret messages like any interna¬ 
tional spy. 

In reality, we have a super cryptographic machine in 
the home brew micro-computer! Complicated cyphering 
techniques can be programmed to baffle all of those govern¬ 
ment snoops who like to read other people’s mail. 

Simple letter substitution cyphers are easily broken 
with a little statistical analysis on the letter frequency of 
the code-text. Many other cyphering techniques are public 
knowledge (see your public library) so the secret part of a 
coded message is the code word which is the “key” to de¬ 
coding the message. 

For instance, John Kennedy used the key . . .HEAVY 
EQUIPMENT and the Playfaire cypher to send a rescue mes¬ 
sage from his wrecked PT 109. Had the Japanese intercep¬ 
ted and de-cyphered that rescue message, then history would 
have been changed! 

Personally, computer games don’t interest me much, so 
I hope that the following specifications will excite someone 
to write a Playfaire program and that cryptography will be¬ 
come a developing interest to hobbyist computer users. 

You can try your hand at Playfaire with the following 
bit of encyphered philosophy. 

KPGHU WKPGA EWAQG EHBBZ PBVRN 

EYUFZ ATSHY BMZQE VYVSN EVGUE 

WZREU BMZQE VYUGG YEBZL 

Use Kennedy’s code word HEAVY EQUIPMENT. 

PLAYFAIRE—DIGRAPHIC CRYPTOGRAPHIC 
CYPHER 


The first cell of row number 5 is the one in the lower 
left-hand corner of the array. The second cell of row num¬ 
ber 5 is directly to the right of the first cell. This ordering 
continues until the 5th cell is reached (the one in the lower 
right-hand corner), then the cycles begins again. Thus the 
elements in row number 5 are ordered in a cyclic way as fol¬ 
lows: 

In a similar way, the elements of each column can be 
considered to be ordered in a cyclic pattern as follows: 



Since the array has room for only 25 letters, the let¬ 
ters I and J will be considered to be interchangeable. I and 
J will occupy the same array element. In a similar way, X 
and space will occupy the same array element, but only X 
will be used as a code letter. 

The key to filling in the 5x5 array with the letters 
of the alphabet turns on the use of a “code word.” 

In the absence of a code word, then the normal alpha¬ 
betic order is followed in filling the array. The array is 
filled row by row, i.e., row number 1 through row number 5. 


This code technique uses a 5 x 5 array matrix. The elements 
in this array can be considered to be ordered into rows and 
columns. Each row in turn also is ordered in a cyclic fash¬ 
ion. 



flow t 

z-> 

3- r 

4 - * 


The use of a code word permutes the order shown 
above. 

With a code word, fill up the array as follows: 

Fill the array (row by row) with the letters of the code 
word in the order they occur in the code word. Remember 
not to use any letter twice from the code word. After the 
code word letters are exhausted, then complete the array 


r a 

A 

B 

e; 


JE 

F 

Gi 

ri 

% 

K 

L 

M 

H. 

0 

F 

Ct 

R 

s 

r 

U 

v 

W 


r z 
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with the remainder of the alphabet (in alphabetic order, of 
course). 

Example: code word is JUNEMOON 



The code word has been entered into the array. Note: 
(J/I) J and I occupy same cell. 0 is used only once. N is 
used only once. 

The array is then completed with the remainder of the 
alphabet. 


w 


ieg 


m 

Q 

n 



m 

g 

a 

m 


— 

L 

p 

hi 

Kl 


a 

n 


m 

xi 



Playfaire is a digraphic technique that destroys the let¬ 
ter frequency distribution found in a particular culture-lan¬ 
guage. The technique is to transform letter pairs into anoth¬ 
er letter pair, i.e., digraph is a letter pair. For instance; 
Plain-text [F,A] -«-+■ [G,0] Code-text 
[F,E] +-*■ [K,J] 

Of course, digraphs have a known frequency distribu¬ 
tion, but the number of letters is small (approximately 26) 
and the number of digraphs is large (approximately 26 x 26); 
so a much larger volume of codetraffic is needed to build 
any statistics. 

There are 4 cases to consider using the Playfaire array. 

I. Both letters of a digraph are in the same row. 

II. Both letters of a digraph are in the same column. 

III. The letters of a digraph are in different rows and col¬ 
umns. 

IV. Both letters of the digraph are the same. 


Plain-text 


[D,0 

-> 

[0,A1 

D,A 

-> 

0,B 

A,D 


B,0 

0,B 


A,C 

A,C 


B,D1 

[C,0] 

-> 

D,A 


Code-text 


Case II: Both letters of a diagraph are in the same column. 
Method: each letter is replaced by the next letter in order 
in the given column. Example: Column number 2 from 
JUNEMOON array. 


n 


\i 


CL 

i 

A 

<S 

w 


4 

4 

4 


Plain-text [A,Q] ■> [G,W] Code-text 
[A,U] -> [G,A] 

[W,Q] -> [U,W] 

[G,A] + [Q,G] 

[G,W] - [Q,U] 

[Q,w] + [W,U] 

Case III: Letters of a digraph are in different rows and col¬ 
umns. Method: The vector formed by the line from the 
first to the second letter of a digraph is one of the diagon¬ 
als of a rectangle. The two diagonals form the equivalence 
between the text-digraph and the code-digraph. Example: 
Using the JUNEMOON array: 


% 

u. 

si e 

ImJ 

o 

aJ 

.file 

D 

F 

<q 

iL 

K, 

L 

p 

a 

K 

s 

T 

V 

w 

3 

Y 

Z 


For instance, the digraph [F,U] defines the diagonal 
and rectangle: 


Case I: Both letters of a digraph are in the same row. 

Method: each letter is replaced by the next letter in 
order in the given row. Example: Row number 2 from 
JUNEMOON array above. 

—+A —»B——*•£>-? 



The mirror image of the [F,U] diagonal is the [G,J] 


(Concludes, next page) 
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Music by computer 

Reprinted with permission of Digital Equipment Corporation. 

Yamaha has interfaced an electronic organ with a com¬ 
puter so that the organ can be played either by the compu¬ 
ter or a musician. 

A PDP-8 minicomputer is able to control the instrument, 
reproduce previously recorded musical scores and display them 
on a cathode ray tube. 

Using a core-resident real time operating system, the 
minicomputer can sense what is being played, interpret this 
data and compare it with storage. 

Yamaha anticipates that the organ may one day be 
taught completely by this method. Students will be able to 
compare the written music stored in the computer memory 
with what they actually play as displayed on the cathode 
ray tube. Practice sessions can be recorded for critique by 
instructors at a later time. 

Digital’s GT40 graphics terminal was chosen for its in- 
terrupr handling capabilities, refresh-type display and cost ef¬ 
fectiveness. 


(conclusion of Decoder Ring Article) 

diagonal. Note that the first letter of both digraphs are in 
the same row. 

Plain-text [F,U] -> [G,J] Code-text 
[U,F] - [J,G] 

In general, using matrix notation—(row number, column num¬ 
ber): 

[(F),(U)] = [(3,1),(1,2)] ^ [(3,2),(1,1)] = [G,J] 

Therefore- [(a,3) (6,^)] «-»- [(a , ?) (6 ,3)] 

Case IV: Both letters of a digraph are the same. Method: 
the letter X is to be inserted into the plain-text to separate 
double letters. Example: BALLOONS would be broken into 
digraphs as [BA], [LX], [LO], [NS]. 

In order to break up the appearance of words, the 
plain-text is run together by leaving out the spaces between 
the words. Sometimes to improve on readability and avoid 
ambiguous situations, X’s are inserted for the spaces between 
words. 

The code-text output is in a standard fixes format of 5 
letters per word. 

EUNFE RAHXJ UPZWO etc. . . . 


The refresh display is ideally suited to the dynamic 
pattern changes in a musical score. Since the GT40 con¬ 
verts the binary data obtained from the memory area (DMA) 
to analog form and displays it on the CRT independent of 
the central processing unit, the processor can be dedicated 
to the organ, making possible the real time applications of 
the recording and playing back. 


PROCESSOR TECHNOLOGY ANNOUNCES 
WINNERS OF Personal Computing ’76 
DRAWING 

Processor Technology was one of a number of 



vendors which donated “door prizes” for the Personal 
Computing ’76 convention in Atlantic City. The P.T. 
door prizes consisted of two $500 merchandise certici- 
cates. The winners were: E. Eibling, Florham Park, 
NJ; Barbara Ataran, Montclare, PA. 


AN 18-BIT PDP-11? 

Rumor has it that Gordon Bell originally designed the 
Digital Equipment Corp. PDP-11 as an 18-bit machine 
(note the bus width), but DEC Marketing decided to make 
it a “byte” machine and reduced the BRANCH range. 


Photographs courtesy of Digital Equipment Corporation. 
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TIMER ROUTINES FOR 6800’s 


Gentlemen: Sept. 3, 1976 

I have found in writing programs, that often a time- 
delay can be used to spice up a program. The following 
subroutine will generate time delays between 1 and 255 
seconds. To use the routine, load register-B with the num¬ 
ber of seconds you wish to delay and then jump to the 
subroutine. The subroutine returns after the specified 
number of seconds. 

To show how it works, I have enclosed a short 
program that uses the time delay routine to ring the bell 
on a teletype once every 30 seconds (make it 3 minutes 
and you’ve got an egg timer). 

How it works: 

LOOP1 is the basic time-delay loop. Traversing 
from line #11 to line #14 takes 20 clock cycles. This 
loop is executed 50,000 times (C350 Hex). Thus to com¬ 
plete this loop requires 20 x 50,000 or 1 million clock 
cycles. Since the clock frequency on the 6800 is 1 Mega¬ 
hertz, it takes one second to complete. 

LOOP2 is the outer loop which by decrementing 
and testing register-B allows varying delays by repeating 
LOOP1 the specified number of times. 

Line #9 and #17 save and restore the X-register to 
the value it had when the routine was entered. 

Note: If you put a radio next to the CPU and 
tune to the interference, there will be an audible click 
each second (a darkroom timer??). These routines were 
assembled by a cross-assembler I have written in IBM’s 
BASIC. 

Sincerely, 

Gregory A. Worth 115 Campbell, Apt. 6 

Rochester, MI 48063 


LINE FC OBJ CODE 


MNEMONIC OPERANDS 


*T I ME DELAY SUBROUTINE FOR THE MOTOPLA 6800 
♦NOTE: 

* I. VALUE IN THE B-PEGISTER WHEN ROUTINE IS ENTERED 

* DETEPMIHES THE NUMBER OF SECONDS THE PROGRAM DELAYS 

* 2. REGISTEPS A 4 X ARE LEIT UNCHANGED BY THE ROUTINE 


0000 FF 00 16 4DELAY 

0003 CE C3 50 4L00P2 


STX 

LDX 


4 SAVE 
# SC350 


J SAVE THE X-REGISTER 
;load x-reg with 50000 


I I 0006 76 00 03 

12 0009 79 00 03 

13 000C 09 

14 000D 26 F7 

15 000F 5A 

16 0010 26 FI 

17 0012 FE £0 16 

18 0015 39 


ROR 

ROL 

DEX 

BME 

DECB 

BNE 

LDX 

RTS 


4L00P2 

4L00P2 


4LOOP2 
4 SAVE 


; ROTATE-»VASTE TIME 
JROTATE->VASTE TIME 
; DECREMENT X-REG 
J IF X<>0 GOTO LOOPI 
; DECREMENT B-REG 
IIF B< >0 GOTO L00P2 
; RESTORE X-REG 
; RETURN TO MAIN PR06RA 


19 0016 


RMB 

END 


;STORAGE FOR X-REG 


WRITTEN AUGUST 25, 1976 BY GREGORY A. WORTH 


LINE PC OBJ CODE 


MNEMONIC OPERANDS 


WRITTEN BY GFESOPY V'OPTH 

PPOGPAM TO PINS THE BELL ON A TELETYPE EVERY 3e SECONDS 
USES TIME DELA V SUBPOUTIt’E FOR DELAYS 4 THE CHARACTER OUT 
ROUTINE IN MIKBUS. 

NOTE E075 IS THE CHAFACTFR OUT ROUTINE IN M1KBUG 
AND 0000 IS WHEPE THE CELAY ROUTINE IS 


0030 86 07 LCAA 

0C32 ED E0 75 4BELL JSP 

0035 Cf IE LCAB 

0037 PD 00. 00 J SR 

0P3A 20 F6 EPA 

003C END 


#$07 

SE075 


$0000 
4 EELL 


J LOAD BELL CHAP. 

J RING THE BELL 

;load b-reg = 30 

IJUMP TO DELAY PP0G 
;BRANCH TO 4EELL 


MICRO BASIC PLUS FOR $15.95 
INCLUDES COMPLETELY ANNOTATED 
SOURCE CODE 

(NEWS RELEASE FROM TECHNICAL SYSTEMS 
CONSULTANTS, BOX 2574, W LAFAYETTE, IN 
47906) 

You have seen the “TINY BASIC” and “MICRO 
BASIC” for the 6800 which fit in a small system (2-3K) 
and offer 10-15 statements and commands for the user 
to write BASIC programs. These systems range from 
quite slow (due to 2-level interpretation techniques) to 
surprisingly fast for a small system. The limiting factor 
in these versions of BASIC is the incomplete selection 
of statements, commands, and functions. The lack of 
certain statements means having to do without, resulting 
in less efficient programs. 

TSC has solved this problem by creating MICRO 
BASIC PLUS. It is not a 2-level interpreter so it runs 
considerably faster than ones implemented using the 2- 
level technique. Statements available to the user include 
PRINT, INPUT, READ, DATA, RESTOR, IF . . . THEN, 
GOTO, GOSUB, RETURN, ON . . . GOTO, ON . . . 
GOSUB, FOR, with positive and negative STEP, NEXT, 
LET, DiM, for both single and double dimensioned arrays 
(up to 98 by 98), EXT, REM, and END. The commands 
available to the user are LIST, SCRATCH, RUN, and 
MONITOR. There are also several functions available 
which include TAB and SPC (for output formatting), RND, 
ABS, SGN, and t (Used for exponentiation). This list of 
features does not stop here. MICRO BASIC PLUS also 
contains a complete line editor, multiple statements per 
line, direct execution of most statements, large arithmetic 
range than others (i99999), complete error identification 
including printout of the line number where the error oc¬ 
curred, and a very simple procedure for dumping the users 
BASIC program to paper tape or cassette and then re¬ 
loading it at a later time. Also included is an EXTERNAL 
statement which allows the user to write 6800 machine 
language subroutines to be called during BASIC program 
execution. 

You are probably thinking this all sounds great, but 
if the less extensive versions of “TINY” or “MICRO” 
BASIC require 2-3K of memory, this one must require 
5 or 6K since the capability is doubled. Well, here is the 
“icing on the cake!” MICRO BASIC PLUS resides in 
just a fraction over 3K which means in a 4K system you 
still have room for a 30 to 60 statement BASIC program! 
Not only is the interpreter approximately the same size 
as others, TSC has made special provisions for keeping 
the users program source to a minimum (e.g. all commands 
and statements can be entered using the first 3 letters of 
its name). 

Now you are probably saying it must be expensive. 
You are right if you think $15.95 is expensive, but we 
think this will also please you. Unlike others, we include 
the complete commented source listing, hex dump for 
fast entry using MIKBUG, sample programs, sample out¬ 
put, plus TSC’s famous instructions and documentation 
for use. As all TSC 6800 software, this program uses 
MIKBUG I/O routines but instructions are provided for 
adapting to other routines. Write for details concerning 
availability of MICRO BASIC on “Kansas City Standard” 
cassettes. 
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Tiny BASIC for the 6800 & 6502 
from Tom Pittman’s “Company” 


Editor's Note: Tom Pittman is Itty Bitty Computers. Tom is an 
avid computer hobbyist who is one of the more major figures in 
the San Francisco Bay area's Homebrew Computer Club. He is also 
an experienced software consultant who specializes in small-com¬ 
puter software and systems. We strongly recommend him to you 
because (1) we have received a number of communications praising 
Tom's Tiny BASIC for the 6800, (2) we have yet to receive a 
written or verbal complaint about the quality of Tom’s products, 

(3) we have ample evidence that Tom consistently exhibits an 
unusually high level of responsiveness and good business ethics in 
dealing with his customers, and (4) we are delighted to see a com¬ 
petent systems software specialist offering excellent software prod¬ 
ucts to home computer users at very nominal rates, and wish to do 
everything we can to encourage him and others to pursue this 
approach to development and distribution of good, low-cost soft¬ 
ware. 

The following information is a duplication of the typewritten 
data sheet that Tom distributes to those wishing information about 
his products. 

Itty Bitty Computers is dedicated to the principle of 
high quality, low-cost software for personal computers. 

Tiny BASIC is our first offering in this field; if it sells well, 
there will be more. We are not in the hardware business- 
software is all we sell. The emphasis of all our software is 
small size and flexibility rather than high speed. Tiny 
BASIC will run in as little as 3K of memory. 

Tiny BASIC is a subset of Dartmouth BASIC, with 
only 16-bit integer arithmetic. There are only 26 variables 
(A-Z), no arrays, and no strings. The 12 commands (LET, 
PRINT, INPUT, IF. . .THEN, GOTO, GOSUB, RETURN, 
REM, RUN, LIST, CLEAR, END) are adequate for most 
programming needs. A machine language subroutine calling 
facility enables the user to extend Tiny BASIC to any 
degree necessary. 

Single copies of Tiny BASIC cost $5. This buys an 
individual license to use it, a 26-page user manual, and a 
hexadecimal paper tape in the manufacturer’s loader format 
(Motorola “S” or MOS Technology A hexadecimal 
listing will be substituted for the tape on request for users 
without paper tape facilities. Programs are mailed out first 
class within a few days of receiving the order, but at these 
prices we can accept prepaid orders only. For airmail service 
to foreign countries please add $2 per program. A 20% 
discount may be applied to quantity purchases of ten or 
more programs of the same version to the same address at 
the same time. 

Tiny BASIC itself does not contain any I/O instruc¬ 
tions; three JMPs link Tiny to the user’s I/O routines. 

These are well documented in the manual. The primary dif¬ 
ference between the following versions is the memory re¬ 
quirements (shown in parentheses), though all use 
memory page 00. 

TB680R (0100-08FF) For MIKBUG, EXBUG, and 
most homebrew 6800 systems with RAM in first 3K of 
memory. 

TB680S (0200-09FF) For Sphere; includes I/O 
routines. 

TB680P (E000-E7FF) For AMI Prototyping Board; 
includes I/O routines (ACIA), and runs with on-board 
IK RAM. 

TB650K (0200-0AFF) For KIM and most homebrew 


6502 systems with RAM in first 4K of memory. 

TB650J (1000-18FF) For Jolt. 

TB650W (0300-0BFF) For Apple. Includes I/O 
routines. 

NOTE: The third digit of the version number refers to the 
revision level. We will ship the most recent version regard¬ 
less of order specifications (e.g., we are now shipping 
TB682R for orders specifying TB680R). 


MEMORY ALLOCATION STANDARDS 
FOR HOBBYISTS 

by Jim Day 

One of the benefits of owning your own computer is 
the fun of exchanging programs with other hobbyists. So 
far, this has been fairly easy to do. It is easy to load a 
BASIC program from an ASCII tape or to bootstrap a 
machine language tape into a “cold” machine. But this 
situation may not last very long. As more hobbyists begin 
to use ROM-resident operating systems and a wider vari¬ 
ety of peripherals, compatibility problems may become 
much more difficult to resolve unless standards are estab¬ 
lished for memory allocation. 

I suggest that the first 16K of memory be reserved 
for the operating system, including resident processors and 
I/O handlers. Standard port numbers and handler entry 
points should be established for all kinds of peripherals, 
including the exotic ones. Allocation standards need not 
work a hardship on those with smaller amounts of mem¬ 
ory, since memory modules don’t have to be contiguous. 
That is, a 2K machine could have IK of memory start¬ 
ing at address 0 and the rest starting at 16K. 

Needless to say, the standard handler “entry 
points” would simply be instructions branching to the 
real entry points somewhere within the first 16K of 
memory. Likewise for the entry points of language 
processors, text editors, etc. Attempts to use unimple¬ 
mented programs should cause a branch to an error 
routine. 


6800 CAN SHARE HOBBY-STANDARD BUS 
WITH 8080 WITHOUT CONFLICT 

M.R.S. has developed a 6800-based board that 
plugs into a hobbyist-standard (Altair, IMSAI/SOL/ 
Cromemco/Polymorphic/etc.) bus. Even while installed 
in the bus, it will allow any also-resident 8080 to run 
without interference. It gains control of the system 
via a single instruction, and returns control to the 
8080, either via the halt switch or via software in¬ 
structions. The 8080 unit handles all front-panel 
interface. 

A fully assembled and tested unit is available 
for $180 with kits available at even lower cost. The 
mailing address for M.R.S. is Box 1220, Hawthorne, 
CA 90250. 
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SAVE AND LOAD MODS TO PITTMAN’S 
6800 TINY BASIC 

Dear Jim, 

Here are modifications I’ve written to Tom Pittman’s 
6800 Tiny BASIC. The additions are confined within the 
2K size for the interpreter. The Sphere 6800 user will 
now have the ability to SAVE and LOAD programs he 
has written in Pittman’s Tiny BASIC. I do not think the 
modifications submitted infringe on the proprietary rights 
of Pittman’s Tiny BASIC. 

Sincerely, 

Henry L. Kee 42-24 Colden St. 

Flushing, NY 11355 

MODIFICATIONS TO PITTMAN'S TINY BASIC 
SAVE PROGRAM, LOAD PROGRAM, SYSTEMS BREAK 


BD FB 00 WRITE OUT BOOTSTRAP 

BD FB 2D 
BD FE 4A 

EXECUTE AT LOCATION A00 


ORIGIN 33 

24 42 "$B" ID FOR TINY BASIC 

ORIGIN 38 
F0 50 
FF 00 

02 00 START OF TINY BASIC 

09 FF END OF TINY BASIC 


EXECUTE AT LOCATION A00 

YOU Nat HAVE A MODIFIED VERSION OF TINY BASIC ON CASSETTE 


ENTER PITTMAN'S TINY BASIC WITH I/O SPHERE INTERFACES 
IN LOCATIONS D8 TO FD AS PROVIDED 


TO LOAD PROGRAM: 


ENTER THE FOLLOWING MODIFICATIONS: 


ORIGIN C0 

CE 0200 TINY BASIC START ADDRESS 

DF 3C SET PTR FOR START 

CE 09FF TINY EASIC END ADDRESS 

DF 3E SET PTR FOR END 

86 42 LOAD A WITH VALUE "B" 

97 34 STORE INTO PART OF I DENT 

BD FB91 READ BLOCK 

7E 0200 GO TO START ADDRESS FOR TINY BASIC 


ORIGIN 9C1 
BD FE4A 
C6 91 
F7 09EB 
F7 09F6 
97 39 
DF 33 
86 F0 
97 38 
86 FF 
97 3A 
86 24 
97 33 
CE OOC8 
DF 3C 
CE OOCF 
DF 3E 
ED FB00 
BD FB00 
DE C8 
DF 3C 
DE CC 
DF 3E 
BD FB00 
39 

BD FE4A 
C6 2D 

7E 09C6 


BREAKPT FOR FUTURE USE 

LOAD OPTION (DECIMAL ADDRESS 2500) 

MODIFY I/O FOR READ 

OR WRITE BY VALUE IN B 

STORE 2ND CHARACTER OF ACIA 

STORE 2ND CHARACTER OF ID 

SETUP ACIA ASSIGNMENT 

SET FLAG 

STORE ''$" FOR INITIAL ID 

BEGIN ADDRESS OF TINY BASIC PARAMETERS 
SET BUFFER START 

END ADDRESS OF TINY BASIC PARAMETERS 
SET BUFFER END 
INITIALIZE I/O 
READ OR WRITE 

SET USER PROGRAM START PTR 

INTO BUFFER START 

SET USER PROGRAM END PTR 

INTO BUFFER END 

READ OR WRITE USER BLOCK 

EXIT 

SYSTEMS HALT (DECIMAL ADDRESS 2552) 
SAVE OPTION (DECIMAL ADDRESS 2555) 

LOAD B WITH WRITE 
BRANCH TO ROUTINE 


ENTER THE FOLLOWING: 

ORIGIN 33 

24 54 

ORIGIN 38 

F0 50 

FF 00 

00 CO 

00 FF 

ORIGIN A00 

BD FB 00 

BD FB 91 

7E 00 CO 


EXECUTE AT LOCATION A00 
TO SAVE PROGRAM: 

INTERRUPT SYSTEM 
EXECUTE N=USR(2555,xx,yy) 

N VARIABLE THAT IS USED FOR ENTRY INTO SAVE 
COULD BE ANYTHING FROM A-Z 
USR USER CALL 
2555 DECIMAL ADDRESS OF SAVE 
xx SECOND CHARACTER OF ID 

FIRST CHARACTER WILL ALWAYS. BE "$" 

THE VALUE GIVEN SHOULD BE IN HEX 
e.o. 65=A, 71=C, etc 

yy SECOND CHARACTER OF ACIA 

FIRST CHARACTER WILL ALWAYS BE "F0" 

THE VALUE GIVEN SHOULD BE IN HEX 
e.g. 80”50, 96=60 

TO LOAD PROGRAM 

INTERRUPT SYSTEM 
EXECUTE N=USR(2500,xx,yy) 

2555 DECIMAL ADDRESS OF LOAD 

all other parameters are the same as above 


CODING FOR V3N SYSTEM 


SYSTEMS BREAK 


ENTER THE FOLLOWING: 


GOTO USR(2552) 


ORIGIN 33 
24 54 
ORIGIN 38 
F0 50 
FF 00 
OO CO 
00 FF 


"$T" ID FOR TINY BASIC 
CASSETTE 1 

START OF BOOTSTRAP LOADER 
END OF BOOTSTRAP LOADER 


ORIGIN A00 


2552 DECIMAL ADDRESS OF BREAK 

THIS INSTRUCTION MAY ALSO BE PART OF CODING IN PROGRAM 


TO INTERRUPT SYSTEM AT THE TINY BASIC LEVEL 
HIT "REPEAT KEY" 

TO IGNORE LINE JUST TYPPED 
HIT "ESC" KEY 
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A BASIC TERMINAL EXCHANGE PROGRAM 


Written by Robert Wilcox 
920 N. Washington 

Owossa, MI 48867 Sept. 13, 1976 

The purpose of this program is to add the ability to 
talk to two terminals to those versions of MITS BASIC 
which do not have the console command. 

The terminal change is accomplished by calling a 
machine language (USR) program which has been loaded 
into reserved high memory. The program may be loaded 
by use of the BASIC program given here, or in the case 
of 4K BASIC which does not have the POKE statement, 
by use of the front panel switches. 

When the USR program is called, it interrogates 
each I/O handling location in BASIC. If Port Number 20 
or 21 is found, it is changed to Port Number 22 or 23, 
respectively. If the BASIC is already addressing the higher 
port, it is changed to the lower one. Thus, if one terminal 


is addressed to Port 20-21, and another one to Port 22-23, 
control will be passed back and forth between them when¬ 
ever the USR program is called. 

The USR program may be called by a direct com¬ 
mand, such as: 

X = USR(l) 

or, this may be an indirect (numbered) statement in a 
BASIC program: 

110 X = USR(l) 

The following statement: 

10 X= USR(l):GOTO 10 

will cause control to alternate between the two terminals. 
Typing a Control-C on either terminal will cause command 
to stop at that terminal. 

The program is written for 8K BASIC, Version 3.2, 
supplied on paper tape. indicates data to be substituted 
for the cassette version, and “**” indicates data for 4K 
BASIC. 


BASIC PROGRAM WHICH LOADS THE USR PROGRAM: 


5 REM REMEMBER TO RESERVE MEMORY SPACE WHEN INITIALIZING BASIC 
10 POKE 73»208:P0KE 714,31 
20 Ip 811*14 

30 READ D$:IF D$-"END" THEN END 

I 4 O GO SUB 120 

50 POKE L,D:L-Dfl:G0T0 30 

60 DATA 021 , 355 , 037 , 032 , 376 , 377 , 310 , 157 , 023 , 032 , 1147 , 176 , 376,022 
70 DATA 372,350,O37,326,OO2,l67,O23,303,323,O37,306,OO2,303,3l43 
80 DATA 037 

90 REM USE LINE 100 FOR PAPER TAPE VERSION. 

95 REM USE LINE 110 FOR CASSETTE VERSION. 

100 DATA 301,0014,311,0014,3114,0014,323,00)4,176, 005, 332, 005, 377, END 
* 110 DATA 321,0014,331,OOl4,33i4,OOl4,3l43,0014,2 16, 005, 3 52, 00 5 , 3 7 7,END * 
120 Dl- VAL(MID$(D$,1,1) ) 

130 D2= VAL(MID$(D$,2,1)) 

II 4 O D3- VAL( MID$( D$ ,3,1) ) 

150 D«Dl*6l4+D2*8+D3 
160 RETURN 


This is an assembly listing of the USR program. Note 
that the data is different for the different versions of BASIC 
Before this program can be called by the USR command in 
BASIC, its starting address must be loaded in BASIC in lo¬ 


cations called “USRLOC”. This is taken care of in line 10 
of the BASIC loading program. For 4K BASIC, you must 
load this information in by the front panel switches: load 
320 at location 103, and 037 at location 104. 


ADDRESS 

LABEL 

DATA 

MNEMONICS 

COMMENTS 

HIGH,LOW 
037,320 


021 

355 037 

LXI D DATA 

D&E POINTS TO DATA 

323 

GET 

032 


LDAX D 

GET DATA IN ACCUM. 

3214 


376 

377 

CPI 377 

IS IT END FLAG? 

326 


310 


RZ 

IF END, RETURN 

327 


157 


MOV L,A 

PUT DATA IN REG L 

330 


023 


INX D 

POINT TO NEXT DATA 

331 


032 


LDAX D 

PUT IT IN ACCUM. 

332 


1U7 


MOV H',A 

THEN INTO REG H 

333 


176 


MOV A,M 

GET DATA FROM BASIC 

33)4 


376 

022 

CPI 022 

COMPARE W/HI PORT NO 
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RASKIN REPENTS 


INTEL HAS RESIDENT PL/M 


Dear Dr. Dobb, Sept. 15, 1976 

In my article in the last issue [“A Bit of Wheat 
Amongst the Chaff’ I said that Processor Technology 
should have advertised their “3P+S” clearly as a 2 
parallel channel device, with serial port and a control 
port. They should have. But I found a P.T. ad, I am 
happy to say, done a while ago, that mentions in the 
fine print the exact truth. 

They should have, perhaps, called it the 2-1/3 

Pt-S? 

Jef Raskin 

ERRATA FOR WRIGHT’S ALPHA-NUMERIC 
MUSIC 

Dear P.C.C./Malcolm T. Wright: 

Please be informed that your publication, Alpha¬ 
numeric Music with Amplitude Control, contains a typo¬ 
graphical error in the program listing: 

Page 13, Address 001,103 is 000 
should be 001 

This JUMP references STORE in Page 0, but the object 
listing references Page 0. Source is correct; object is wrong. 

A. Paejh 

P.S.—Sounds fine. Forced me to write a hex-octal key¬ 
board read routine. 

[Why not submit the keyboard read routine for publication 
in DDP. -JCW] 

UNCLE SAM CONSIDERS ESTABLISHING A 
“SCIENCE COURT” 

The National Science Foundation and the Department of 
Commerce are jointly studying a proposal to create a Science 
Court. Such a court would be especially organized to handle 
disputes involving highly technical matters, disputes that are cur¬ 
rently adjudicated by courts having judges of no particular tech¬ 
nical capability. 


PL/M, the first and most widely used high-level 
language for microprocessors, was originally only com¬ 
pilable on large machines. A compiler for it is now 
available, however, that is resident on their 8080-based 
Intellec floppy disc system. It requires 65K bytes. 


COMPUTER STORE WORKING ON 
BUSINESS SOFTWARE 

A new computer store, Rainbow Enterprises, is 
reported to be developing programs for very small busi¬ 
ness systems. They are located at 10723 White Oak 
Ave., Granada Hills, CA 91344, (213) 360-2171. 

PDP-11 CROSS ASSEMBLER FOR 6502’s 

For $900, you can get a PDP-11 based cross assembler 
for MOS Technology 6502 microprocessors. The cross 
assembler is written in MACRO-11 and runs under DEC’s 
RT-11 operating system, using 5K words, minimum. The 
price includes one year of product support, as well as source 
code, distributed on a disc. Contact Mike Corder, Compu¬ 
ter Applications Corp., 413 Kellog, Ames, IA 50010, (515) 
232-8181. 

Newsweek 

NEWSWEEK NOTES HOME COMPUTING 

The August 23rd issue of Newsweek carried almost a 
full-page article titled, “Computers: Home Cooking.” It 
was the usual story of a couple of example installations— 
human interest stuff—with the usual inaccurate underesti¬ 
mates of number of stores and clubs, and the usual inter¬ 
view with Paul Terrell of Byte, Inc. 


336 


372 

35o 

037 

JM ADD 

IF LO PORT, ADD 2 

314-1 


326 

002 


SUI 2 

IF HI PORT, SUB 2 

314-3 

PUT 

167 



MOV M,A 

PUT REVISED DATA BACK 

344 


023 



INX D 

NEXT DATA 

345 


303 

323 

037 

JMP GET 

DO IT AGAIN 

350 

ADD 

306 

002 


ADI 2 


352 


303 

343 

037 

JMP PUT 


355 

DATA 

301 


*321 

**170 

FIRST DATA IS FOR RK 

366 


004 



**003 

BASIC ON PAPER TAPE. 

3 57 


311 


*331 

**200 

* INDICATES DATA TO 

360 


00l( 



**003 

BE SUBSTITUTED FOR 

361 


314 


*3 34 

**20 3 

CASSETTE VERSION. 

362 


004 



**003 

** INDICATES DATA FOR 

367 


323 


*343 

**212 

4K BASIC 

364 


004 



**00 7 


365 


176 


*216 

**164 


366 


005 



**004 


367 


332 


*352 

**377 


370 


005 





371 


377 
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by E. R. Fisher 


OCTAL DEBUGGING PROGRAM (ODT-80) 
FOR THE MCS-80 COMPUTER 


NOTICE: “This report was prepared as an account of work spon¬ 
sored by the United States Government. Neither the United States 
nor the United States Energy Research & Development Administra¬ 
tion, nor any of their employees, nor any of their contractors, sub¬ 
contractors, or their employees, makes any warranty, express or 
implied, or assumes any legal liability or responsibility for the ac¬ 
curacy, completeness or usefulness of any information, apparatus, 
product or process disclosed, or represents that its use would not 
infringe privately-owned rights.” 

Abstract 

ODT-80 is an octal debugging routine for use on the 
Intel 8080 microprocessor. This routine provides the capa¬ 
bility to examine and modify all of the memory that is 
available to the microcomputer and transfer program con¬ 
trol to the created program. ODT-80 makes use of simple 
keyboard commands from any terminal—such as a tele¬ 
typewriter—that is attached to the system. 

Introduction 

ODT-80 (Octal Debugging Technique) is a program 


“P.E. ARTICLES TELL HOW TO BUILD A 
SYSTEM FOR UNDER $100” 


written for the MCS-80 that allows the user to modify a 
program via a teletypewriter keyboard. The program oc¬ 
cupies 400 octal words and must be located in the lowest 
memory page of the MCS-80 system, since the program 
uses the RESTART instructions. 

ODT has been proved to be an effective aid to de¬ 
bugging on microprocessors. The first version, for the 
Intel 8008,* has been “front panel” for virtually hundreds 
of microprocessor applications. The author submits this 
ODT for the 8080 in hopes that the tradition of soft 
front panels may be perpetuated. 

System Requirements 


All addresses of memory locations and contents of 
memory locations are referred to in octal numbers. A 
question mark (?) will be typed for any illegal input. 

The minimum system requirements for using ODT 
are as follows: 

• MCS-80 computer set 

• ODT programmable read only memory (PROM) at 

memory page 000o 

• 256 word (RAM) at page 010o 

• Teletype interface with the following codes: 

OUT 2—SEND ASCII character 


Dear Bob, July 16, 1976 

For some time now I’ve felt that the hardware 
oriented types (like me) who only want to spend 
$100 or so to get started have been completely neg¬ 
lected. I’ve also been approached by many hobby 
groups who want to know more about the COSMAC 
microprocessor. To satisfy both types of potential 
users, I’ve prepared a series of articles showing how 
to build a complete COSMAC microcomputer 
(called ELF) for under $100. This series of arti¬ 
cles started in the August, 1976 issue of Popular 
Electronics, and should be of interest to many of 
your readers who are still looking for a lower cost 
way of getting started. The basic microcomputer 
doesn’t need a terminal since input switches and 
an output display are provided. A novice user can 
actually do more with this system initially than he 
could with a $466 Altair 680 by itself (I have both 
systems). Of course, the COSMAC ELF has no cabi¬ 
net or PC board and you must handwire 12 chips 
together. Other articles in the series will provide 
programs, applications, inexpensive interfaces, memory 
expansion, and a simple operating system. A very 
low cost graphic video display is also planned for the 
ELF microcomputer. I just want to make your less 
affluent readers aware that plans for a low-cost, 
do-it-yourself, micro-computer are now available via 
this series of articles. 

Best wishes, 

Joe Weisbecker 1220 Wayne Ave. 

Erlton, Cherry Hill, NJ 08002 

EDITOR’S NOTE: Joe is the architect/designer of 
RCA’s COSMAC. 


IN 2 - Input word from TTY 

D _J _ D _l 

IN 3 - Read flags 11 111 111 (flag word) 

Sending done - 

Word received - 


Example 

The following example illustrates a typical debugging 
operation. It is assumed that a program has been assem¬ 
bled and that the program is to be loaded by a loader in 
PROM 2. 

A program listing and a detailed description of the 
command set follow the debugging description. 

1. Set the memory field with the S command, and 
read the tape with the R command. 

IQS* ; SET MEMORY FIELD TO 10 
OR ; START READER ON TTY 

? ; WHEN TAPE IS READ IN ODT 

RESTARTS (startup of ODT de¬ 
pends upon the reader program 
in PROM 2) 

2. Start the program with the G command. 

10S ; START PROGRAM AT LOCAT- 

- ION 0 

0G 

TEST PWOGRAM 

; TYPED BY PROGRAM WITH AN 
ERROR 
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3. Change location (30) to correct output. Restart 

ODT. 

? 

ios 

30 / 327 222) ; CHANGE “W” TO AN “R” 

0G 

TEST PROGRAM ; CORRECTED OUTPUT 

EXAMPLE PROGRAM LISTING 


1 

8080 MACRO ASSEMBLER. VER 1.1 ERRORS = 0 PAGE 1 


;0DT TEST PROGRAM 
;10-21-74 


000006 




SEND EQU 

6 


000370 




CRLF EQU 

370Q 







;PROGRAM PROPER 


004000 





ORC 4000Q 


004000 

041 

022 

010 


LXI H TABLE 

;SET UP ADDRESS 

004003 

176 



LOOP: 

MOV A,M 

;GET ENTRY 

004004 

376 

000 



CPI 0 


004006 

312 

016 

010 


JZ ND 

;IF 0 END OF LIST 

004011 

367 




RST SEND 

;TYPE CHARACTER 

004012 

043 




INX H 


004013 

303 

003 

010 


JMP LOOP 

;LOOP 


004016 

315 370 000 ND: 

CALL CRLF ;SEND CRLF 

004021 

166 

HLT 


004022 

324 TABLE: 

DB 324Q 

T 

004023 

305 

DB 305Q 

E 

004024 

323 

DB 323Q 

S 

004025 

324 

DB 324Q 

T 

004026 

340 

DB 240Q 

SPACE 

004027 

240 

DB 320Q 

P 

004030 

327 

DB 327Q 

W FOR ERROR 

004031 

317 

DB 317Q 

0 

004032 

307 

DB 307Q 

G 

004033 

322 

DB 322Q 

R 

004034 

301 

DB 301Q 

A 

004035 

315 

DB 315Q 

M 

004036 

0 

DB 0 




END 



NO PROGRAM ERRORS 
1 

8080 MACRO ASSEMBLER, VER 1.1 ERRORS = 0 PAGE 2 





SYMBOL TABLE 





* 01 

A 

000007 

B 

000000 

C 

000001 

CRLF 

000370 

D 

000002 

E 

000003 

H 

000004 

L 

000005 

LOOP 

SEND 

004003 

000006 

M 

SP 

000006 

000006 

ND 

TABLE 

004015 

004021 

PSW 

000006 


Commands 


(n 8 /) - SLASH 
(LF) - LINE FEED 


(.) - PERIOD 
(n g S) - 


Open the n 8 address and type con¬ 
tents in octal. 

Close the currently open address, 
and open the next sequential 
address. The contents of the open 
register may be changed by typing 
the octal number to be input and 
then typing a (CR). 

This operator may be used before 
the (/) operator to open the address 
last used. 

The SET command is used to set the 


(n g R) - 


(n g G) - 


(CTRL-C) - 

CONTROL- C 


(CR) - CARRIAGE 
RETURN 


H register to the memory page to be 
accessed. 

(EX) 10S ; H=010 g 

The READ operator is used to start 
a loader program in memory page 
No. 2, location 0. If this command 
is preceded by an “nS” command, 
the n value will be passed to the 
loader program in the H register. 

The GO routine is used to start a 
program in memory. The octal 
number typed before the “G” 
operator will set the starting ad¬ 
dress in memory. The “G” opera¬ 
tor should be preceded by an 
“nS” command to select the 
desired page. 

Type out the top two locations in 
stack. (See trap.) Leaves the stack 
pointer at its initial position —2. 

Close the currently open address. 


Utility Routines 


The following subroutines are available to the user as 


utility routines for other programs: 

Address Call 

307 

RST ODT 

Restart ODT program. This is 
useful error branching in pro¬ 
gram debugging. 

367 

RST SEND 

Send the ASCII character 
presently in the “A” 
register. 

315 

333 

0 

CAL READ 

Wait for a character to be 
received from the teletype 
and return with the ASCII 
character in the “A” register. 
The “A” and “B” registers 
are used in this routine. 

315 

370 

0 

CALL CRLF 

Send a carriage return and a 
line feed to the teletype¬ 
writer. 

The “A” register is used in 
this routine. 

315 C 
301 

0 

CAL OCTALP 

Send a space and type in 
the three digit number in 
the “A” register. 

The A, B, and E registers are 
used in this routine. 


Trap 

The trap feature of ODT works as follows: When 
the central processor encounters a 377o as an instruction, 
the processor decodes this as a restart to location 70 g in 
memory 0 g . An example of this is when a nonexistent 
memory is addressed, or when a 377 g is placed in a pro¬ 
gram for a break point. At this time, ODT stores in the 
pushdown stack the address of the errant location and all 
of the registers. The trap indication is a “T” typed out 
on the teletypewriter. Control is now back in ODT and 
multiple Control-C’s (CTRL-C) typed by the operator will 
yield, in sets of two, the trapped information in the fol¬ 
lowing format: 
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ADDRESS 

ERROR *1 REGISTERS 

HAG E 

NO. LOCATION AFBCDEHL 
XXX XXX XXX XXX XXX XXX XXX XXX XXX XXX 

k _-_* k _-_* 

The "F" register is the status flags of the 8080, with the format shown in Fig. 1. 
MSB 


(SIGN) -"-I 


0—| 


0* 












D 0 


ZERO 

FLAG 

CARRY 1 — 

EVEN 

PARITY -J 

CARRY 

2-J 


Fig. 1. "F" register format. 


4 

One set for each CTRL-C typed. 


A CTRL-C typed at any time will type out the push¬ 
down stack but not in the format shown above! The above 
above format is only available immediately after a “T” has 
been sent by ODT. 

If a continuous string of “T” are sent to the TTY 
without stopping, this is an indication that the stack 
pointer is pointing at nonexistent memory. It will be nec¬ 
essary to restart ODT. 

RESTART/INTERRUPT Locations 

There are five segments of memory reserved in ODT 


for INTERRUPT or RESTART operation. These locations, 
shown in Fig. 2, contain jumps to the scratch RAM mem¬ 
ory number 10, used by ODT. This allows interrupt ser¬ 
vice to be handled even though memory number 0 is pre¬ 
programmed to contain ODT. 

Notes on the 8080 

The stack pointer is reset to location 350o every 
time ODT is restarted via location 0 of ROM 0-in 
other words, whenever a “?” is sent by ODT. ODT and 
other programs use the stack pointer; therefore, memory 
locations plus and minus this location are apt to be over¬ 
written. However, the stack pointer moves down in mem¬ 
ory (high addresses to low addresses), so normal operation 
will keep the stack pointer in RAM 10g. 
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JMP 

20 


JMP 
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40 
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SEND 

ENTRY 
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Fig. 2. RESTART/lNTERRUPT locations. 
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Vr =* OOPS!: A Line-Drawing Game 
* ^ ^ for Your Video Terminal 

-Martin R. Winzenread 


Go Only Where You Haven’t Gone Before 


I 


I 


You control a cursor with your right four sense 
switches in any combination. Try to draw a picture on the 
screen with a line that never goes through the same point 
twice. 

E.g. ^4- can be drawn, but >^A£>4r-*-can not. 

An ‘V indicates that you have been there before. 

You may then restart the program by putting the 
right four sense switches down. 

To change the speed of the cursor, change memory 
locations 0026 and 002C. 

^Change these statements if your VDM is not addressed 
as port 8C and memory 8800-8BFF 
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SCRUNCH (Pass 1): 
A Compactor for 

BASIC in 8080 
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—Martin R. Winzenreacl 
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Scrunch readable source code into a form that only a 
computer could love. Run bigger programs with less memory. 
Input original source code by paper tape, then dump your 
scrunched code to paper tape or cassette for later use. 

I am presently working on PASS 2 which eliminates 
unnecessary line numbers by using the multiple statement 
per line feature. 
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TINY HI 


by Martin Buchanan 

Dear DDJ, Sept. 2, 1976 

For the past eight months, I’ve worked on designing 
my own programming language. I’ve now conceived sev¬ 
eral clean and fairly powerful procedural languages. The 
simplest is described in the attached article. I also expect 
to specify TINY LISP, and TINY SNOBOL in coming 
months. Core is cheap compared to people, and the 
major economy I want is in syntax, number of data 
types, and number of data structures seen by the user. 

One key to such economy is the elimination of the 
multilevel approach and the specialization that character¬ 
izes much existing system software. Software that is 
“OS dependent” is even less portable than machine code 
on many systems. I don’t want the user to have to 
learn assembler, editor, JCL, file handling packages, etc. 

I want him to see conceptually, and syntactically integra¬ 
ted systems. 

During the latter part of my spinning of imaginary 
languages, I’ve become dissatisfied with my previous defi¬ 
nition of HI, as a procedural language which is both 
cleaner and more useful than PL/1, and incorporating 
associative retrieval, pattern matching, and list processing 
facilities. Several ideas have changed my direction: 

1. A tiny language (or any language) should be extensible. 

2. Most existing extensible languages (LISP, TRAC, 
FORTH) are limited by primitive syntax. 

3. The concept of “set” or “relation” is powerful enough 
to include all the diverse data structures found in 
computer applications, and to manipulate them with 
common tools. 

4. A further equivalence can be established between 
relations and functions; one is defined extensionally; 
the other is defined operationally. 

5. The relational calculus is a powerful form for manipu¬ 
lating such structures. In the past, it has been re¬ 
stricted to data base operations (Codd’s DSL ALPHA). 

6. Declarations make it feasible for the user to see only a 
single data structure, ignoring the different internal 
representations of structures. 

I’m attempting to design an extensible relational 
language with a context-sensitive grammar. Work is pres¬ 
ently stalled by a 50-hour work week, 17 semester-hours 
of school, my home computer, and a promised article. 

FORTH is a fascinating new language ($1000 for 
8080 systems). I’ve ordered manuals, and will report on 
what I find out. 

DDJ is great; things like your floating point routines 
for the 6502 (which MOS Technology did not have avail¬ 
able) really help. 

Design for the future! In 5 years your home com¬ 
puter will be a 64K memory, 16 bit dynamically micro- 
programmable processor, four billion bytes of fast mass 
storage, and goodies I can’t imagine. 

Keep up the good work. 

Martin Buchanan 2040 Lord Fairfax Rd. 

Vienna, VA 22180 
(703) 893-7978 


HI is a family of general purpose programming lan¬ 
guages designed in 1976 by Martin Buchanan. TINY HI 
(TINY) is the simplest version of HI designed, and will be 
implemented on the author's IMSAI 8080 system when I 
find the time. 

TINY is a hybrid interpreter-compiler running on a 
dedicated virtual machine with virtual memory. TINY is 
completely structured. There are no GOTO statements or 
labels. There is no COMMON or RETURN; procedures 
have one entrance and one exit. TINY is a debugging 
translator, insuring that variables are defined, monitoring 
subscript range, etc. 

TINY supports two data types, INTEGER, and 
STRING, and one data structure, the vector. Memory is 
allocated dynamically, and data type is determined at 
execution time, or by context, eliminating declarations. 

The simplicity of TINY syntax, the small number of 
well defined operators, the ability to manipulate vectors, 
convenient input-output, and flexible commenting and 
mnemonic naming facilities, all combine to make TINY a 
very clean, easy to learn and use, language. 

In the examples below, both interpretive sessions and 
programs are excerpted. TINY outputs are underscored. 

4 is used to indicate a carriage return. 

Arithmetic: 

Numbers in TINY are integers i: -2^< i < 2^ 5 -1 

4 infix arithmetic operators are defined: 

+ addition 

- subtraction 
‘multiplication 
/ division 

Division by zero or overflow will produce an error 
message. 

1 prefix arithmetic operator is defined: 

- negation 

Negation cannot produce an error. 


The hierarchy of operators in TINY is: 

highest () 

nesting or subscripting 

is 

(Blank) concatenation 

# 

* 

(number) - (negation) 

/ 

+ 

lowest = 

< > <= >=<> 

Expressions are 

evaluated from left to right. 

Vectors: 

Numbers may be concatenated to form vectors: 

A + 12 

A «- A 3 4 

A 


1 2 

3 4 


The left pointing arrow, is assignment. Any ex¬ 
pression standing alone on a line is output. Vectors of 
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equal length may be combined in expressions: 


TI MV Control. STRUCTURES 


1 2 3 + 4 5 6 

5 7 9 


Vectors of length one may be added, subtracted, etc. 
to another vector and be "distributed": 

1+456 

5 6 7 


The prefix operator # (number) returns the number 
of elements in a vector or string: 

#5 73 -1 

3 

Both integer vectors and character vectors (strings) 
are limited to 255 elements. 

Strings: 

A string is a sequence of characters, other than ", 
enclosed in quotes: 

"THIS IS A STRING" 

A string may contain no characters: 

" " /* the null string */ 

Strings may be concatenated: 

A +- "JOHN" 

B +- "AND" 

C +- "MARY" 

ABC 

JOHNANDMARY 


Subscripting: 

Vectors and strings can be subscripted by integer 
expressions: 

A +- "ALGEBRA" 

A[5 1 3 2] 

BAGL 

Note that: x[i j k] is equivalent to: 

x[i] x[j] x[k] 

Global variables: 

Globals are available to all TINY programs, and nor¬ 
mally exist before and after program execution. I/O 
devices, data files, programs, and convenient system con¬ 
stants (.TRUE) are all good globals. All variables defined 
in the interpreter are globals. Globals are distinguished by 
use of the period prefix when referenced: 

.SIN 

.EMPLOYEE-FILE 

.PRINTER 

Programs: 

TINY programs have only one entrance and one 
exit. Parameters are passed by location. Assignment to 
parameters is prohibited within a program. Programs can 
return vector or string values, and are invoked by use in 



Else 

Co<£*. B 

EKJ5 



A 


Ek>b 


UNTIL p 
o>&«. A 
ewo 



While, p 

to At A 

G.Ut> 


October, 1976 


Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park, CA 94025 Page 33 


293 








an expression. Sample program: 


BEGIN MOD (A,B) 

/* 

RETURN THE REMAINDER OF A/B 

7 

MOD A—B*(A/B) 

IF MOD<0 
MOD «- -MOD 
END 
END 

BEGIN GCD 
?X ?Y 
IF X <Y 
T + X 
X Y 

Y -r-T 
T 

END IF 
R «- Y 

WHILE R > 0 
R «- .MOD (X,Y) 

X «- Y 

Y -e R 
END WHILE 
"GCD=" Y 

END GCD 


r 

USE EUCLID'S ALGOR¬ 
ITHM TO FIND GREAT¬ 
EST COMMON FACTOR 
OF X AND Y. 

7 


Flow of control: 

TINY control is always based on an expression 
which is true or false, called a predicate. TINY does not 
include logical variables or operators. All TINY predicates 
are of the form: 

<exp > <relational > <exp> 

The two expressions must agree in type. Vectors or 
strings must be of equal length to be equal. The first 
element of a string or vector is most significant when 
evaluating a predicate; the last element is least significant. 
TINY has two basic control structures with a total of four 
variants: 

Do one thing or another depending on a predicate; 
Repeat something until a predicate changes. 

These structures are illustrated in the accompanying 
figures. 

Input-output: 

To output an expression, simply place it on a sep¬ 
arate line. If a string expression, the string is output. 
Integers are converted to a 6 character string with leading 
zeroes replaced by blanks and any minus sign to the im¬ 
mediate left of the most significant digit. In output, con¬ 
catenation between integer and string expressions is allowed: 

"A+B=" (A+B) 


The program GCD has several unusual features. 

?X ?Y forces the evaluation of the expression ?X ?Y, 
which inputs X and Y, without making any assignment. 

T <- deletes T, allowing the compiler to reuse the allo¬ 
cated space. As shown by END IF, END WHILE, and 
END GCD, "noise" may be added to END statements; 
normally this is used to indicate the structure ended. /* 
begins the reservation of all columns to the right of, and 
including /* for comments, until 7 is encountered. In 
TINY it is easy to implement Gerard Weinberg's concept 
of placing comments on the right hand side of the page, 
to be covered during debugging. 

The program as shown is unusual; except in intro¬ 
ductory programming classes, main programs do not calcu¬ 
late greatest common factors; also the mnemonic name is 
inconsistent with the use of "greatest common factor," 
rather than "divisor." To rewrite the program as a func¬ 
tion, it should also be changed so that the values of the 
parameters are not changed?: 


*This change is now required for program correctness 
reasons. 


BEGIN .GCF (XD,YD) /* 
X «- XD 
Y -e- YD 
IF X <Y 

T -s- X 

X T 7 

Y -t- T 
T ■*- 

END IF 
R Y 

WHILE R > 0 
R ,MOD(X,Y) 

X *- Y 

Y R 
END WHILE 

END .GCF 


USE EUCLID'S ALGOR¬ 
ITHM TO FIND GREAT¬ 
EST COMMON FACTOR OF 
XD AND YD. 


To input a variable, anywhere, place a question mark 
before the variable. Input is free format. Input and out¬ 
put may be combined in ohe statement, like the INPUT 
statement of some BASICs: 

"A=" ?A 
A=37 


Operating System (OS): 

TINY is its own operating system. Users run on a 
dedicated machine (their own micro) or a virtual dedicated 
machine. Programs are automatically compiled when 
defined and recompiled whenever source code is changed. 
TINY will include access to a virtual machine level where 
relocatable and reentrant machine code may be written 
using an assembler. This level cannot be defined until 
subroutine linkages and data formats are defined in 
greater detail. TINY has a virtual memory; the user sees 
a single large homogeneous memory space. Files, pro¬ 
grams, utilities, and system variables are all represented 
as global variables in this memory. 

Conclusion: 

I'd appreciate feedback about TINY design and im¬ 
plementation. My address is at the end of this article. 


Program correctness: 

It is straightforward to construct correctness proofs 
for TINY programs. Relevant features include: 

Restricted control structures; 

All programs have only a single entrance and exit; 
Programs return only a single structure; 

Parameters may not be altered by programs; 

No floating point arithmetic (10.0*.1£ 1.0); 

External variables share a common name table, and 
must be explicitly indicated with the . prefix; 

The deletion feature explicitly delimits the range of 
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temporary variables; 

The simplicity of the language. 

These features do not follow from the desire for a 
small language. GOTOs would be easy to add, and check¬ 
ing for assignment to parameters will actually cost core. 

I maintain that one should not add features to a language 
indiscriminantly, considering only available core or CPU 
time. Psychological factors can also make a language good 
or bad. PL/1, APL, "SUPER FORTRAN", "BASIC PLUS" 
are all baroque languages, whose descriptions occupy size¬ 
able books and whose complete features are rarely mas¬ 
tered. 

"I see a great future for very systematic and very 
modest programming languages." — The Humble Program¬ 
mer by E. W. Dijkstra 

TINY LANGUAGE SUMMARY 

Vocabulary: BEGIN END IF ELSE WHILE UNTIL 
Comments: /* */ 

Arithmetic infix operators: + — * / 

Arithmetic prefix operators: - 
Concatenation: ft (blank) 

Length operator: # (number) 

Relational operators: 

Assignment: 

Input: ? 


Global: 

Data types: INTEGER, STRING 

Data structures: the vector 

Maximum number of elements in a vector: 255 

Formats: Integers convert to a six character string 

TINY ERROR MESSAGES 

compile: assignment to parameter 
mixed mode 
value undefined 
global undefined 
unmatched parenthesis 
missing end statement 
syntax error 

execution: overflow 

division by zero 
vector too long 
string too long 
subscript out of range 

Direct letters about TINY HI to: Martin Buchanan 

2040 Lord Fairfax Rd. 
Vienna, VA 22180 


TINY HI SYNTAX 

TINT HI SYNTAX B.™. U, 


"Top D»wn 

K>L*TT * a) 

::= Aj 8-|H 

<Cpro&r am) 

BEGIN { j 


o|l-• • )9 



{alpha} 





-{-KM 



{oPCRato*} 

::**H*|/ 

cte? 

"= {<«rr«r>} 6 

{aHLATCIiAl} 

•-•= > H=| >= I <= I <> 






• • ' EN D £ 



<-r> 

:: = IF £ *••**-*•} 

^VAAM6*>C^ 

* ‘ - { [ Ki*tc6cA t**)J J o 



(iprtoeA. cxf) 

• 1 - J (vaamIu) j j 


{ELSE ? 


Jf — | 


<»««.«> } o 


^IHT*«,CA cur) {orfA^ron) {inrenfA €*r}j 




(lNT€*eA ***}£ {iHT***R C*p} 


; : ~ ^Loot J) 


{j <e.P^} o ) 



{e*PA> 

•* - {l$»Te*€R «Jrf) | {stAiNQ C*p} 



{stRihg 

• • " ^ST8IWc)|^V4AW*Lf)| ^F#|»CTI««) | 

^.•of -npe) 

::= WHILE | UNTIL 





{.PAtHCATc} 

• ’ ’ CJrr) (.imtc+ca | 


:: = <r»pR^ <.e*PA/ , } o 


{srpt** €>ff)(«Cl4Ttoii4t) {rrAWi fJif) 


October, 1976 


Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box 310, Menlo Park, CA 94025 Page 35 


295 







Book Review 


TUTORIALS FROM THE IEEE COMPUTER 
SOCIETY 


COMPUTER POWER AND HUMAN REASON 

Reviewed by Dave Caulkins, 437 Mundel Way, Los Altos, 

CA 94022, (415) 948-5753 

Computer Power and Human Reason 
by Joseph Weizenbaum 
W. H. Freeman & Co., 1976 
300 pp. $9.95 

This is a book that should be read by anyone seriously 
interested in or affected by computers, a recommendation 
that includes most of the population of the U.S. The broad 
interest of the book is indicated by its selection as a Book- 
of-the-Month alternate. Professor Weizenbaum is a talented 
man who has been doing inpressive work in computer sci¬ 
ence for a long time. In this book he performs the difficult 
feat of humanistic perspective. Weizenbaum’s central theme 
is that the range of human capabilities and concerns is both 
profoundly different from and immensely larger than any¬ 
thing a computer can do. Too many people in the Arti¬ 
ficial Intelligence community of computer science research 
believe that there is no human activity that cannot eventu¬ 
ally be done by a computer. Weizenbaum is strongly criti¬ 
cal of this view; he rightly sees it as the worst kind of blind 
hubris. 

Some quotes from the book give the flavor of Weizen¬ 
baum’s arguments: 

What could be more obvious than the fact that, what¬ 
ever intelligence a computer can muster, however it may 
be acquired, it must always and necessarily be absolutely 
alien to any and all authentic human concerns? The very 
asking of the question, “What does a judge (or a psychia¬ 
trist) know that we cannot tell a computer?” is a mon¬ 
strous obscenity. 

The theories-or, perhaps better said, the root metaphors— 
that have hypnotized the artificial intelligentsia, and large 
segments of the general public as well, have long ago deter¬ 
mined that life is what is computable and only that. As 
Professor John McCarthy, head of Stanford University’s 
Artificial Intelligence Laboratory said, “The only reason we 
have not yet succeeded in simulating every aspect of the real 
world is that we have been lacking a sufficiently powerful 
logical calculus. I am currently working on that problem. ” 

Sometimes when my children were still little, my wife 
and I would stand over them as they lay sleeping in their 
beds. We spoke to each other in silence, rehearsing a scene 
as old as mankind itself. It is as Ionesco told his journal: 
“Not everything is unsayable in words, only the living truth. ” 

In support of this central theme Weizenbaum deals with 
some necessary background material. He presents an explan¬ 
ation of the theoretical basis for the power of machine based 
information processing, including a treatment of Turing 
machines. These sections are not what I would call light 
reading, but attention to them offers even the lay reader 
considerable insight into computer functioning. Weizenbaum 
also has a fascinating theory about the existence of hackers 
(compulsive programmers). As one who enjoys periodic 
fixes of code-writing and debugging, I found this theory es¬ 
pecially interesting. 

Professor Weizenbaum has written a book of substantial 
importance. As man’s information processing machines 
become ever more powerful and pervasive, it is vital that we 
use computers for human purposes, and not the other way 
around. 


Minicomputers and Microprocessors: A Tutorial, Gaithers¬ 
burg, Maryland, May 26, 1976—271 pp. 

Review of recent developments in both minicomputer 
and microprocessor technology. 

Each chapter begins with a short section which intro¬ 
duces the topics to be discussed and also highlights the 
significant points found in the chapter. Topic headings 
include technological advances, microprogramming, mini¬ 
computer architectures, microprocessors, mini and micro 
computer system development, and interfacing and peri¬ 
pherals.—$1 2.00 

Microprogramming: A Tutorial, Long Beach, California, 

May 17, 1975-309 pp. 

Text includes an introduction by the instructors, J. 

Michael Galey of IBM and Richard L. Kleir of Browne and 
Ramamoorthy, Inc., and 19 papers on microprogramming 
in six general categories: introductory papers, micropro¬ 
grammed architecture and languages, production of micro¬ 
programs, emulation and direct execution, microprogram 
applications other than instruction execution, conclusions, 
and perspectives.—$12.00; $15.00 Hardbound 
Minicomputer Realtime Executives, from COMPCON 74 
Fall, September 9, 1974—208 pp. 

Of central importance to the economic realization of 
minicomputer applications is the realtime executive. Appli¬ 
cations such as data acquisition, process control, and com¬ 
munication, are briefly discussed to identify their needs in 
a realtime executive. The main elements of these execu¬ 
tives discussed include memory management, scheduling, 
data structuring, file handling, interprogram communica¬ 
tion, and control structures.— $15.00 
Tutorial on Computer Peripherals, from COMPCON 74 
Spring, February 25, 1974—48 pp. 

Digest presents broad perspective of peripherals industry. 
Excellent preparation for students, generalists, and those 
who have not been working directly in the field. Topics 
include trends in computer hardware and remote terminal 
systems, magnetic recording technology, use of peripheral 
devices in remote systems, and future projections in hard¬ 
ware and software. —Microfiche only, $9.00 
Structured Programming, from COMPCON 75 Fall, Septem¬ 
ber 8, 1975-241 pp. 

This tutorial includes an introduction to the major ideas 
of structured programming, and their theoretical and practi¬ 
cal foundations; a detailed presentation of a major applica¬ 
tion program system, and a presentation of program develop¬ 
ment stressing the top-down evolutionary character of the 
process.—$12.00; $15.50 Hardbound. 

Computer Networks: A Tutorial, Gaithersburg, Maryland, 
June 18, 1975—296 pp. 

The tutorial convers the areas of network topology and 
communications media, network technology and its effect 
on network performance, resource sharing requirements and 
techniques, and new approaches to network performance 
measurement, network access and network management. 

The general approach enables presentation of terminology 
and concepts followed by specific examples. The presenta¬ 
tion stresses breadth rather than depth, and in turn pro¬ 
vides network novices with a firm basis for becoming better 
educated on specific topics.—$12.00 
Send Order To: IEEE Computer Society, 5855 
Naples Plaza, Suite 301, Long Beach, CA 90803 
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PASCAL, SEXISM, VRAM, STRUCTURED 
PROGRAMS, VARIABLE SPACING & GAMES 


“STM BABY & VIKING VISION” 


Bob, July 29, 1976 

. . . Speaking of neat things, the STM BABY! computer- 
in-an-attache-case [STM Systems, Mount Vernon, NH 03057] 
is the neatest thing I have seen in a long time. Not just a 
computer but also an ASCII-plus-Greek keyboard, cassette 
interface, video display generator, ROM monitor, etc., with 
a loudspeaker for audio output! Now, if they could only 
cut the price to $500 instead of $850 for their 2K system. 
[Photos and write-up in August Byte, pp. 122-124]. 

JPL reports that the on-board Viking computer is work¬ 
ing OK. I hope it keeps on working--the nearest customer 
engineer is probably in Helium City. As astronomer Carl 
Sagan pointed out recently, animals on Mars may sleep 
during daylight hours because of the uncomfortably high 
temperatures (-20 F) and harmful ultraviolet rays. No one 
thought to mount a spotlight on Viking to allow pictures 
of Martian nightlife. The Viking camera did spot what 
looked like an inscription on a nearby rock, though; when 
translated (where is John Carter now that we need him?) 
it will probably be found to read, “Vikings go home!” 

Sincerely, 

Jim Day 17042 Gunther Street 

_ Granada Hills, CA 91344 


Dear Sir: Aug. 23, 1976 

I just received issue no. 7 and back issues 1-6 in the 
mail Saturday and spent all afternoon reading them. 

Specific comments: Vol. 1, no. 4, pg. 4; and no. 6, pg. 

6 refer to PASCAL as being developed by Niklaus Wirth— 
the language was actually developed by Niklaus Wirth and 
Kathleen Jensen. [Hmph! He never mentioned that when 
I took his compiler course at Stanford!] If you insist on 
dropping Kathleen’s name someone might accuse you of 
being sexist and . . . (by the way, it is just coincidence that 
everything published in DDJ so far has come from males, 
isn’t it?). [No. It’s the frustrating fact that we have yet 
to receive any manuscripts from women.] 

It was mentioned that you were planning on writing a 
Small PASCAL [Nope. Just thinking of writing some 
design articles to encourage implementation of something 
better than BASIC.]; two documents that would be very 
helpful are: The PASCAL ‘P’ Compiler: Implementation 
Notes, by Nori, Ammann, Jensen, and Nageli; and PASCAL-S 
PASCALS: A subset and its Implementation, by N. Wirth. 
These are numbers 10 and 12 from: 

Institut fuer Informatik 
Eidgenossische Technische Hochschule 
Clausiusstrasse 55 
CH-8006 Zuerich, Schweiz 

Institute for Information 
Federal Institute of Technology 
Clausiusstrasse 55 
CH-8006 Zurich, Switzerland 

PASCAL-S is the “semi-official” subset of PASCAL. It con¬ 
sists of one program subdivided into a compiler which gen¬ 
erates code for an abstract stack computer and an interpre¬ 
ter which interprets this code for an actual machine. The 
abstract computer is organized as a stack, 2 stack indexes, 
a program counter, an instruction register, a program status 
register (and a DISPLAY array used to speed up the ad¬ 
dressing mechanism). 

You might also be interested in the PASCAL Users Group 
and especially the PASCAL Newsletter, which contains a lot 
of information about PASCAL implementations, program¬ 
ming, features, etc. The PUG address is Univ. Comp. Ctr., 
227 Exp. Engr., Univ. of Minnesota, Minneapolis, MN 55455. 
If you do finish a PASCAL implementation, please write to 
the Editors of the Newsletter because they are trying to 
keep a complete listing of all PASCAL implementations 
(as far as I know, the PDP series are the smallest machines 
on which PASCAL has been implemented to date). 

From Vol. 1, no. 7, pg. 10—your comment on VRAM: 
there’s another ringer besides the one you mentioned—unless 
this device meets the radiation limits of Part 15 of the FCC 
regulations, it’s an illegal television transmitting station. 

[Not applicable. Matrox VRAMs output video for a video 
monitor; not RF for television.] 

Vol. 1, no. 6, pg. 40—In F. J. Dickey’s letter, he seems 
to equate structured programming with ‘lots of control 
structures.’ This seems to me to be precisely the oppo¬ 
site of the truth; one of the basics of structured program¬ 
ming is the use of only a very few control structures. 
Structured programming usually involves the use of only 
three basic control structures: sequence, if-then-else, and 
loops (usually repeat-until or while-do form). In fact, one 
of the important events in the history of structured program¬ 
ming was the publication of a proof that all programs could 


be written using only these three control structures. I 
hardly consider three structures “a lot of control struc¬ 
tures.” Perhaps Mr. Dickey was confused by PL/1, 
which he seems to consider as a simple structured 
programming language. PL/1 is most definitely not a 
structured programming language. Indeed, many ad¬ 
vocates of structured programming have strongly 
criticized several aspects of PL/1. 

Vol. 1, no. 6, pg. 28—Jim Day’s article on variable 
character spacing is very interesting and such a scheme 
would be quite useful in producing good looking output. 
However, this must be restricted to use on final, human 
oritented output; it can not generally be used for program 
listings, etc. Variable character width destroys the visual 
character of program, and makes it nearly impossible to 
determine in which column a specific word begins, which 
is a significant factor in most languages. [Not so. Most 
“good” languages are free field format.] There are many 
examples in computer literature of much confusion 
caused by typesetters who reset program listings with 
variable width character spacing. 

I’ve noticed several comments on games in DDJ. While 
I’m more interested in systems tape software being pub¬ 
lished, I’m somewhat upset at the large number of com¬ 
puter people who seem to enjoy running down games. I 
think games are very important as logical exercises. The 
importance of games in developing mental capabilities has 
been frequently pointed out by people ranging from Albert 
Einstein to R. Buckminster Fuller. As an example, the main 
field of study of John Von Neumann, one of the developers 
of the digital computer at the Institute for Advanced Stud¬ 
ies, was in Game Theory. Some every interesting commen¬ 
tary to real world affairs is contained in the introduction to 
Computers, Chess, and Long Range Planning, by Mikhail 
Botvonnik, a book that I highly recommend. [Agreed. But, 
then again, why not just play games for the fun of playing 
games? ] 

Thanks very much for your kind attention in wading 
through this lengthy letter. 

Yours truly, 

Tim Bonham D605/1630 S. 6th St. 

Minneapolis, MN 55454 
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Another Hobbyist Magazine 


WAYNE GREEN TO START PUBLISHING 
KILOBYTE 

John Craig, Editor—KILOBYTE Magazine 

RFD Box 100 D, Lompoc, CA 93436, (805) 735-1023 

Editor's Note: John Craig, the new Editor of the about-to-be Kilo¬ 
byte magazine, submitted this article to Dr. Dobb’s Journal after a 
conversation with us. We are publishing it because (1) it gives some 
explicit information about what may be expected from the forth¬ 
coming magazine and (2) we wish to support active competition 
among the vendors of products to the computer hobbyist commun¬ 
ity. We believe that such competition in this free marketplace can 
do nothing but benefit the consumers. 

Readers should not take our publication of this article as an 
implication of our endorsement or special support of Kilobyte over 
any of the other excellent periodicals serving our community. We 
enjoy BYTE and Interface and what we have seen of Microtrek. 

Vie expect to be equally pleased with Kilobyte and Personal Com¬ 
puting. 

We would be happy to publish similar articles from the editors 
of Microtrek and Personal Computing. Our only requirement is 
that they contain explicit information and details about the maga¬ 
zine, along with the unbridled enthusiasm for his publication that 
should be expected from any magazine's Editor. 

Well, Wayne Green [the original publisher of BYTE ] has 
finally got around to doing it! The hobby community has 
been expecting him to start another magazine for quite some 
time . . . and here it is . . . KILOBYTE. If the name of 
this magazine brings about a reaction, don’t worry about it, 
because you’re not alone. The important thing is that it’s 
a name you won’t easily forget . . . and besides, what’s in a 
name? Your reaction when you read the first issue is what 
will really count. (And you certainly ought to plan on get¬ 
ting that first issue, because it will very likely become a col¬ 
lector’s item in the months to come. Look at what hap¬ 
pened to the last magazine Wayne Green started.) Never 
mind getting any of the following issues . . . just get that 
first one! 

Now, for the important question: “What will KILOBYTE 
have to offer that would make me want to shell out my 
hard-earned bucks for a subscription?” One of the most 
important areas we’re going to cover will be basic articles 
concerning both hardware and software. This doesn’t mean 
that KILOBYTE is going to be just a “beginner’s magazine.” 
Most of us are either hardware or software oriented and 
could use some good fundamental material in the “lacking” 
area which will bring us up to speed. And, when I say 
“good material”, I mean just that. We’re not going to be 
publishing articles of a dry, tutorial nature. If there’s a 
hardware or software concept, or “lesson”, to be passed on 
through the pages of KILOBYTE, it will be done using 
practical examples. The approach will not be one of, “This 
is how it is done . . .” but instead, “This is why it is done 
a certain way.” Hardware articles will be related to various 
applications and the software articles will be tied in with 
programming problems and situations. Needless to say, the 
person who is a beginner will benefit from KILOBYTE as 
though it were directed at him exclusively. 

Another area which KILOBYTE will be covering is 
applications. We will take a good look at small computer 
applications in both the home (entertainment, education, 
etc.) and especially in small businesses. 

The KILOBYTE Software Library will be one of our 
big efforts, and probably one of our big headaches. There’s 
a tremendous need for a central distribution point for small 
systems software. Much has already been developed . . . 
but it isn’t getting around! We’re going to be selling pro¬ 
grams at a modest cost on cassettes with the author/pro- 


(AS USUAL) ELECTRONICS HAS A PASSLE 

OF GOOD HARDWARE ARTICLES 

The September 2nd issue of Electronics magazine 
carried the following articles (among many others): 
“Conferees Close in on 16K Standards” (for 16K-bit RAM) 
“Shortage of Field Technicians Looms” (training programs 
for minicomputer techs) 

“Fiber-Optic Data Transmission: A Practical, Low-Cost 
Technology” (Gigahertz bandwidth, noise-free) 

“PROM Decoder Replaces Chip-Enabling Logic” (Design 
details) 

“Check List for 4,096-bit RAMs Flags Potential Problems 
in Memory Design” 

“Microprocessors Dominate Scene at Sold-Out Wescon” 
“Character Generator Fits on One Chip” (Bipolar LSI 
gives 64 alphamerics for CRTs and matrix printers) 
Electronics is published by McGraw-Hill, Inc., Box 
514, Hightstown, NJ 08520. Subscriptions are $ 12/year 
or $30/3-years in the U.S. 


JIM DAY NOTES . . . 

Dear DDJ, September 8, 1976 

I see that Martin Gardner has already reviewed Con¬ 
way’s book in the September issue of Scientific American. 
Note the ad on page 213 of the same issue, offering a 
FREE (for $1) GIANT CATALOG (64 pages) of compu¬ 
ter stuff from Newman Computer Exchange, 3960 Varsity 
Drive, Dept. 23, Ann Arbor, MI 48104. 

“Microprocessors Have Their Problems Too,” by 
Jerry L. Ogdin, on p. 35 of the August issue of Instru¬ 
ments & Control Systems, is an interesting user’s-eye- 
view of the state of the art. But one should keep in 
mind that the criteria of the industrial user are not al¬ 
ways those of the hobbyist or educator. 

Another interesting item is “Things That Go Byte 
in the Night,” on p. 38 of the August issue of Computer 
Decisions. While amusing, this bit of whimsy would 
probably be of more interest to readers of Creative Comput¬ 
ing rather than a dignified, scholarly journal like PCC or 

DDJ - Jim Day 17042 Gunther St. 

Granada Hills, CA 91344 

grammer receiving a 15% royalty for his efforts. Hopefully, 
this will provide an incentive to some of those who have 
developed some good programs to share them (and make 
some good cash in the process). 

Standardization is something else KILOBYTE will be 
tackling. There’s no reason why a person shouldn’t be able 
to buy a microcomputer which has standard plugs on the 
back for connecting his serial or parallel peripherals. The 
cassette situation is something which needs looking into, 
also. We’ve got the Kansas City standard for software ex¬ 
change at a rather slow speed, but perhaps we need to come 
up with a standard for high-speed cassette operation, too. 
People sit around and talk about standardization all the 
time . . . others write about how something should be done 
. . . and then there are those who give seminars on the 
subject. The only way anything is ever going to be done 
about this (and other situations) is for the industry to get 
together and discuss it! Wayne Green and KILOBYTE will 
be working on this. The address is KILOBYTE Magazine. 
Peterborough, NH 03458. Be sure to include the “KILO 
. . .” Subscriptions will be Si 2/year or $25/3 years ($2 at 
the news stand). It will be in circulation around the end of 
December. 
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CONSUMER ACTION 

PRODUCT SC SOFTWARE EVALUATION AND 
TESTING TO BECOME REGULAR FEATURE 

IN DR. DOBBS JOURNAL 


With this issue, we are initiating what we expect to be 
a regular feature in Dr. Dobb’s Journal: reports of indepen¬ 
dent product and software tests and evaluations. We pro¬ 
pose that these will be “independent” in that we have no 
financial ties or obligations to these manufacturers, the pro¬ 
ducers of these products. We carry no paid advertising. 

Ever since the computer hobby began, there have been 
regular pleas for such independent testing and evaluation. 
Until recently, we have been rather haphazard in our at¬ 
tempts to assist consumers in judging the quality of pro¬ 
ducts being marketed to them. We have pursued this pri¬ 
marily through the publication of complimentary and com¬ 
plaining letters regarding products. With such letters, we 
generally have no knowledge of the expertise, fairness, 
honesty or bias of the writers (thus, they have been pub¬ 
lished as “letters” rather than as “articles”). Recognition 
of this fact prompted us to adopt a policy [see Editorial 
in October, 1976, DDJ] regarding the treatment of letters 
of complaint. Though we will continue to publish such 
letters within the constraints of that policy [see several 
examples in this issue], we feel that a formal, orderly 
product testing and evaluation program would be more 
fair and more useful to our readers. It will also be per¬ 
fectly in keeping with the Charter of our publisher, Peo¬ 
ple’s Computer Company. PCC is a California-licensed, 
non-profit educational corporation. 

WHO WILL DO THE TESTING? 

We have organized an evaluation team consisting of three people, 
plus the Editor. These are individuals whose qualifications we do 
know. Jef Raskin is the Director of the group. Many of you al¬ 
ready know of him through his critique of a number of hobby 
systems [DDJ, September, 1976, "A Bit of Wheat Amongst the 
Chaff." This issue carries a second product evaluation by him. 

Jef is currently an independent consultant involved in several "real 
world" applications of small computers. Prior to this, his work 
included serving as Director of the Third College Computation 
Center at the University of California in San Diego, and serving as 
a Professor of Visual Arts there for five years. Before that, he 
was an instructor in Computer and Electronic Music at Pennsylvania 
State University for several years. He holds a B.S. in Philosophy 
(1965) from the University of New York with minors in mathema¬ 
tics and physics, and a M.S. in Computer Science (1967) from Penn 
State. 

The second member of the evaluation group is Dennis McGhie. 

Dennis is currently working for a major biomedical research center in 
the San Francisco Bay Area. He has been a programmer since 1968, 
working on both maxi's and mini's, primarily in the areas of database 
systems, training 

systems, computer graphics, and real-time systems. Though he has no 
formal hardware training, he has a good seat-of-the-pants background 
derived from years of working with experimental real-time computer¬ 
ized biomedical data acquisition and process control. He holds a B.S. 
(1968) in Chemistry from Stanford University. 

The third team member is Michael Heathman, currently a senior 
systems programmer for a new time-sharing system being installed in 
a major Bay Area research institution. He has systems experience with 
maxi's and midi's, including PDP-15’s and PDP-11's. He has been a 
programmer for six years, except for a year's leave taken to perform 
graduate studies in computer science at the University of Washington. 

He holds a B.S. (1970) in electrical engineering from Stanford. 

Final responsibility for this program will rest with the Editor of 
Dr. Dobb’s Journal, Jim Warren. Aside from editing the Journal, 
currently, Jim is working as an independent consultant specializing 


in small computers in highly interactive environments. He is also in 
"dissertation mode" in a Ph.D. program through Stanford's Electrical 
Engineering Department. He has worked as a computer consultant for 
most of a decade, with several years of programming experience pro¬ 
ceeding that. Prior to entering the computer field, he taught mathe¬ 
matics for about ten years, including Chairing the Mathematics Depart¬ 
ment at the College of Notre Dame — Belmont. He holds a B.S. (1959) 
and M.A. (1964) in mathematics, and two M.S. degrees; one in Medi¬ 
cal Information Science and the other in Computer Engineering. 

HOW WILL THE EVALUATIONS BE DONE? 

We will contact producers of products being marketed to the com¬ 
puter hobbyist community, and encourage them to participate in this 
testing and evaluation program. If they choose to do so, this is what 
will happen: 

They will send us a purchase letter — a voucher with which we can 
"blind purchase" an item to be tested. We will then have someone, 
not known to be associated with PCC or DDJ, obtain the desired pro¬ 
duct. In the case of products sold only by mail, a unit will be ordered; 
when it arrives, it will be "paid for" by returning the voucher with the 
invoice. If the desired unit is available through Bay Area retailers, 
our "buyer" will go in; pick out a unit; and, when it comes time to 
pay for the item, will use the voucher to "pay" for it. The voucher, 
of course, will guarantee to immediately replace the unit or reimburse 
the dealer. In this way, we can be reasonably assured of obtaining 
units for testing that have not been especially "tuned"; they will be 
standard consumer products. 

The product thus obtained will then be evaluated in whatever 
manner is most appropriate (and in whatever ways are possible with 
the test gear available at the time). In the case of kits — where such 
independent examinations are perhaps most badly needed — a team 
member may construct the kit, or we may well have some interested 
novice put the kit together under our observation. In either case, 
careful notes will be kept concerning all aspects of the unit and its 
evaluation. 

Subsystems that are advertised as being plug compatible with some 
particular interface structure will be tested for such compatability. 
Major components will be tested against manufacturer's advertising 
claims and the rated capacities given in the documentation. Other 
testing will be conducted, where appropriate. 

When the testing is completed, the evaluator(s) will write a report 
of their findings — good and bad. Particular attention will be given to 
reporting the following aspects: does the unit perform as advertised? 
Are there inadequacies that are unmentioned by the manufacturer? 
How does the unit compare to its competitors? How does the unit 
compare against "perfection"? (When comparing against perfection, 
the report will explicitly point out that no one else's product meets 
those standards, either.) Are there any "little hidden gotchas"? In 
all cases, as much of the test data as possible will be provided in the 
article, from which the reader will be able to judge the unit for him¬ 
self. Any personal judgements made by the evaluator will be accom¬ 
panied by the hard data he used in reaching that opinion, and/or will 
include an explicit statement of the evaluator's personal bias in the 
matter. 

Once completed, the report will be submitted to the manufacturer 
of the product for their comments. They will have the opportunity 
to offer corrections of fact (the "factual" character will be judged by 
the evaluators and the Editor). If they wish, they may also provide a 
"manufacturer's response" which, if concise and pertinent in the 
judgement of the Editor, will be published along with the evaluation. 
Though the manufacturers will have the right to suggest corrections 
and to provide a response article, they will have no editorial control 
over the report. After giving the manufacturer several weeks to a 
month — and no more than that — to respond, the report and any ap¬ 
propriate response will be published in Dr. Dobb’s Journal. 

The products that are tested will become the property of People's 
Computer Company. Often, the evaluators will be "paid" for their 
services by giving them the products they have evaluated. This will 
both assure an active interest in the evaluation on the part of the team 
members, and will also provide us with the opportunity to observe 
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the units in operation over some period of time, wTh supplementary 
reports being given as appropriate. 

WILL THE MANUFACTURERS COOPERATE? 

Both the public and the manufacturers have often noted that com- 
merical magazines rarely if ever publish articles that are really critical 
of products available from companies that are advertising in that maga¬ 
zine. (One publisher, targeting for the computer hobbyist community, 
is widely reputed to consistently publish excellent "evaluations" of 
products from advertisers, and highly critical "evaluations" of pro¬ 
ducts from manufacturers who refuse to advertise in the publication). 

Thus, the public tends to take such evaluations in ad-carrying 
periodicals with a well-deserved grain of salt. Alternatively, Dr. Dobb’s 
Journal — and PCC before it — has had a consistent reputation for 
readily publishing compliments and complaints, including complaints 
about our publications. We believe that carefully done, comprehensive 
product evaluations, published in DDJ, will be accepted as being un¬ 
biased and accurate. 

If we publish a favorable evaluation of a product, it should be of 
significant value to that manufacturer. In particular, we herewith 
grant explicit permission to any manufacturer to reprint such evalua¬ 
tions from Dr. Dobb’s Journal, either in their entirety or a paragraph 
at a time. Such reprinting may be done without further permission 
from DDJ, and without any compensation whatsoever being paid to 
Dr. Dobb’s (other than possession of the products that were tested). 
Publication of less than a paragraph at a time, minimum, will require 
explicit permission from DDJ. We explicitly prohibit reprinting out- 
of-context portions of such a (copyrighted) evaluation, when it fails 
to accurately reflect the results of the evaluation. 

We also hope to — in the not too distant future — develop an ob¬ 
jective rating procedure for home computing products. Once devel¬ 
oped, we will invent and trademark a DDJ evaluation logo that in¬ 
cludes the ratings. Manufacturers may then mark their products as 
"Grade A — Tested in Dr. Dobb's Kitchen", or some such thing. 

We have already spoken with several manufacturers, outlining our 
plans. Reception has varied from an active interest in immediately 
participating, to a total rejection of the proposal. We will report the 
details, whenever it seems fair and appropriate to do so. 


****************************************** ♦ 

* I- 


BEWARE! THE DOLLAR GOBBLING INFLATION 
INFECTION IS ABOUT TO AFFLICT ONE OF YOUR 
LOVED ONES - - 

Subscription Rates for Dr. Dobb’s Journal 
Increase January 1st 

Almost all of our subscription rates are going up as 
of the start of 1977. This means that our basic sub¬ 
scription rate will now be as much as Byte’s. And, as 
always, a year’s subscription is for 10 issues; we pub¬ 
lish single issues for June/July and Nov./Dec. 

We had to either do this — and remain responsible 
only to our readers — or begin accepting paid adver¬ 
tising, along with its strong though perhaps subtle in¬ 
centive to “keep the advertisers happy.” Considering 
that we have been purusing an active .consumer advo¬ 
cacy role, ever since we started, and considering that 
we are significantly expanding that activity [see edi¬ 
torial on product and software testing and evaluation 
plans], we felt that the subscription increase was the 
preferable alternative. We are still awaiting the results 
of the question concerning whether or not we should 
carry paid advertising (a question posed in the last 
several subscription forms and in the subscription re¬ 
newal notices). 


Prize 

DDJ SEEKS SUPER LOGO! 


UNRESPONSIVENESS FROM ADVANCED 
MICROELECTRONICS 

I received a AY5-8500 6 Game MOS/LSI chip from 
Advanced Micro-Electronics, P.O. Box 17329, Irvine, CA 
92713. It didn’t operate properly. 1 wrote them a letter 
in August (two months ago) describing what the chip did 
and have received no answer. 

Thank you for reading my letter. 

Stuart R. Fallgatler 
7910 Rio Vista Dr. 

Goleta, CA 93017 

[We wrote them, saying:] 76-11-7 

We recently received a complaint concerning your company, a 
copy of which is enclosed. Recognizing that there are two sides to 
every story, and in keeping with our published policy (copy en¬ 
closed) [See DDJ, Vol. 1, No. 9] concerning handling of consumer 
complaints regarding vendors' products and services, we wish to offer 
you the opportunity to present your view of the situation. There¬ 
fore, we will withhold any decision concerning possible publication 
of the complaint for at least two weeks from the date of this letter, 
pending the possibility that you may wish to offer a timely response. 

If you do choose to respond, we will, of course, take your com¬ 
ments into consideration in deciding whether or not to publish the 
complaint. If we do decide to publish it, even in light of your com¬ 
ments, we will almost certainly also publish your response — your 
side of the story — unless you explicitly prohibit our publication of 
your reply. 

Also, if you choose to reply, we would appreciate your for¬ 
warding a copy of that reply to the complainant. Many thanks 
for your attention to these comments. We look forward to your 
reply. 

As of Dec. 2, 1977, we have received no reply.—JCW 


Like all massive organizations intent upon changing the 
fabric of society,Dr. Dobb’s Journal has concluded that it 
should have a logo — a symbol by which all people may 
instantly recognize us. It might be our current title mast¬ 
head .. . but that’s so longwinded. Ideally, it should be a 
symbol or figure that in some sense illustrates our activities 
(now, now — be nice). 

Knowing that computer people are delightfully inventive, 
we are coming to you for suggestions. We are looking for a 
logo that we can use in fairly large size in our masthead, 
letterhead stationery, advertisements, etc. We would also 
like for it to be recognizable, even when shrunken down to, 
say, l”x&”. Thus, it can’t have too much detail in it (or, 
the large version can have details, and the smaller versions 
must be in some way simplified). 

Please forward your suggestions. You can describe them, 
or you can provide a rough sketch, or you can submit an 
oversized camara-ready master. If we pick your suggestion 
as the basis for our logo, then we will thank you by giving 
you a five-year subscription to DDJ (extending your current 
subscription, if necessary). Of course, all suggestions be¬ 
come the property of People’s Computer Company, the 
publisher of Dr. Dobb’s. 


NOW WE CAN BLAME IT ON THE COMPUTER 

At long last, we have switched from manual processing 
of subscription records — so fraught with human error — 
to computerized subscription processing — thereby obtain¬ 
ing even more potential for human error. Therefore, please 
check your address label, and let us know if it is in any way 
incorrect. 
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It must have been a computer error. . . 

CORRECTION TO PHONE NUMBER FOR 
KENTUCKY FRIED COMPUTERS 

Our September issue carried an announcement of a 
10% discount on selected products, available to DDJ 
readers for a limited amount of time, offered by Ken¬ 
tucky Fried Computer Store in Berkeley, CA. We in¬ 
cluded the phone number, only to be told later that it 
was incorrect. When we checked the original copy sub¬ 
mitted by the store owners — a computer-edited article 
— we found that we had correctly copied an incorrect 
number. Tsk, tsk . . . must have been the computer. 

Their correct phone is (415) 549-0858, and they are 
located at 2465 Fourth St. 


NEW LOGARITHMIC CONVERTER 

by Jim Day 

Precision Monolithics, Inc., 1500 Space Park Dr., Santa 
Clara, CA 95050,408/246-9222, recently announced develop¬ 
ment of a D/A converter providing the 72-dB dynamic output 
range of a 12-bit converter from an 8-bit input. Three bits 
select one of eight chords (i.e., ranged approximating a loga¬ 
rithmic function) and four bits select one of 16 linear steps 
within each chord. Resolution near zero is equal to that of a 
12-bit converter, dropping to 5-bits (plus sign) at the extremes. 
Designated the D AC-76, this 18-pin DIP costs $19 in lots of 
100 . 

For high-quality audio output having negligible quantiza¬ 
tion error at low volume levels, 12-bit D/A converters are cus¬ 
tomarily used. These tend to be expensive and awkward to 
drive from an 8-bit MPU. Fortunately, the amplitude response 
of the human ear is logarithmic. This means that greater quan¬ 
tization error is tolerable at high volume, amking an 8-bit 
logarithmic D/A converter ideal for speech synthesis and com¬ 
puter-generated music when used with an 8-bit MPU. 


A SUPER BOOK, FULL OF COMPLETE 
SYSTEMS PROGRAMS 

Dear Dr., September 27, 1976 

A valuable new book is available for the computer 
hobbyist. Software Tools by B. W. Kemighan and P. J. 
Plauger, Reading, MA: Addison-Wesley, 1976 presents 
programs for a test editor, file formatter, macro processor, 
librarian and language preprocessor while teaching struc¬ 
tured programming, TTiese are complete programs avail¬ 
able from the publisher in machine-readable form (cost 
unknown) for a machine with a Fortran compiler. I’ve 
read the book — it’s great! It starts with a simple echoing 
routine and builds and builds very logically. 

A Tiny Fortran compler with integer arithmetic, charac¬ 
ter I/O, the IF statement and FUNCTION and SUBROU¬ 
TINE subprograms could implement an impressive array of 
tools. Tiny BASIC could do it if it were compilable and 
could pass arguments as parameters to subroutines. 

Implementation of these programs would be a big step 
toward having home computers help their owners do use¬ 
ful things; and home microcomputers are admirably suited 
to the word processing tasks the book presents. 

It’s sort of cheap, too; $8.95 in paper. 

Bill Pearson Division of Biology 156-29 

Calif. Instit. of Technology Pasadena, CA 91125 


Posted 76-10-25 

sees INTERFACE - STATUS REPORT 


Good news! Your regular SCCS Interface will be coming 
again to you soon! This is to bring you further up to date 
on the Southern California Computer Society publication. 

Originally the Society went to an outside service to print 
Sees' Interface on behalf of the Society. Certain differences 
have arisen with the publishing service and efforts at settle¬ 
ment have apparently failed. During our negotiations, the 
outside service printed its own magazine called Interface Age, 
the first copy of which appeared in August. You may have 
received copies of Interface Age in the mail. The Society 
did not mail it to its members. The logotype on Interface 
Age and the format of the magazine are very similar to SCCS 
Interface and you may not have even noticed the change. 
Interface Age is not an authorized publication of the Society. 
We have discussed our legal options with our attorneys. Now 
that we are free to move ahead, the Society has obtained its 
own publishing service. We will resume distribution of SCCS 
Interface next month. Only SCCS Interface will be the au¬ 
thorized publication of the Southern California Computer 
Society. 

We expect SCCS Interface will carry out the spirit and 
policy of the Society — to be objective with regard to ven¬ 
dors’ products and services, to report the activities of our 
Society, to provide an open forum for our members, to ex¬ 
periment and of course, to provide important articles of 
interest. 

We are working hard, fast and enthusiastically on this 
and appreciate your patience. The memberships of those 
who missed any copies will be extended. 

Larry Press has been named to fill the editor’s spot. 

Please send editorial contributions and suggestions, articles, 
announcements, inquiries on ads or distribution, aspirin and 
good wishes to Larry at 1702 Ashland Ave., Santa Monica, 
CA 90405, (213) 399-2083. 

The member authors whose articles appeared in August 
and September issues of Age intended to have their material 
appear in the official Society publication. We assure them 
that in the future no submitted material will appear in 
other than SCCS Interface. 

Very Truly Yours, 

The Board of Directors 
SCCS Interface 
October 18, 1876 

A FIXIT “KIT” FOR MARK-8 DOCUMENTATION 

Dear Jim, Sept. 17,1976 

I have been reading with great interest the issues of DD]\ I 
have an offering for "BUGS & FIXES." I have put together a 
modifications/corrections kit for the MARK-8 to fix up the over 
50 typos in the schematics, errors in design, and errors in instruc¬ 
tions. It includes instructions (11 pgs), complete set of new 
schematics, and a parts kit. The cost is set to only recover costs. 
MARK-8s have suffered in the software marketplace due to lack of 
enthusiasm, which I feel is in part due to the difficulties in getting 
them up. This package should help the problem clear up and create 
more spirit (since I still want BASIC for my 80081). 

MARK-8 Corrections/Mods Package - Fixes those glitches, 
interrupt structure, mem. addr. levels, LED bd., buffered 
CPU, clock phases, console controls, etc. Includes new 
complete schematics, instructions, and parts (even drill 
bit and wire). $10. Ronald Carlson, 14014 Panay Way 
Apt. 225, Marina del Rey, CA 90291. 

Sincerely, 

Ronald E. Carlson 14014 Panay Way, Apt. 225 

Marina del Rey, CA 90291 
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BYTE OFFERS AN EXCITING PROPOSAL 

Machine-Readable Programs 
in Magazine Format 

Praise by Jim Warren, Editor, DDJ 

OK, folks ... are you ready to throw away those can¬ 
tankerous and expensive paper-tape readers? Are you ready 
to give up those cat-naps you take while waiting for pro¬ 
grams to load from your kid’s audio cassette player (you 
do have a megabyte of memory, don’t you?)? Then look to 
Byte* for a better way! 

The November issue of Byte magazine carries an article by 
Walter Banks and Roger Sanderson of the University of Wa¬ 
terloo, and Carl Helmers of Byte, proposing an idea that 
should cause the hobbyist to gleefully reposition their prayer 
rugs in the direction of 70 Main Street in Peterborough, 

New Hampshire: a super-neat method for publishing machine- 
readable information. Walter and Carl are proposing that 
the bar-code scanning techniques already in widespread use 
in automated grocery checkout systems are equally appli¬ 
cable to publication of machine-readable programs and data. 

The basic idea is that programs and data that are of wide¬ 
spread interest can be encoded in a standard bar-code format, 
printed in a book or magazine (presumably with the human 
readable form on nearby pages), and loaded into an indivi¬ 
dual’s home computer by simply waving an optical scanning 
wand over the machine-readable pages. Programs and data 
could then be truly “published” — printing them instead of 
using the far more expensive and less convenient punched 
or recorded formats. The reading mechanism — the scanning 
wand — has the advantage of no mechanical parts, depend¬ 
ing on the human hand for its motive power. It’s simple; 
it’s nonmechanical; it should be cheap. Data transfer rates 
are obviously limited only by the speed of the hand and the 
speed of the processor that is interpreting the input from 
the scanner. 

This is not a future fantasy. The technology is already 
well-developed, both for printing of machine-readable infor¬ 
mation and for inexpensive optical scanners. Optical scan¬ 
ning of printed information has been in use for some years 
in the banking industry. There, total reliability is an abso¬ 
lute requirement, and the encoding format and scanner de¬ 
sign they use is considerably more complex than is necessary 
with bar-codes and bar-code scanners. Bar-code techniques 
have proven sufficiently reliable that they are in wide-spread 
use in grocery checkout facilities, where accuracy is a must 
(demanded by the paranoid consumer was well as by the 
food retailers), and where sloppy usage must be assumed. 

This is not an idle proposal or one-shot in the dark by 
Byte. The November article is an explicit, detailed, nuts-and- 
bolts article. The December issue of Byte will include sam¬ 
ples of machine-readable code in several experimental for¬ 
mats, an article on signal processing for optical scanning of 
bar-codes, and the specifics of the software that is necessary 
for reading bar-coded information. Articles in the immediate 
future are sure to include complete details for the construc¬ 
tion of bar-code scanning wands and their interfaces. 

We cannot praise this proposal too highly. If this tech¬ 
nique, in fact, proves feasible and reliable, it will provide a 
significant breakthrough for the problem of distribution of 
machine-readable software and data. Note: The import of 
this for the forseeable future well may be in its facility for 
distribution of data , rather than programs — e.g., census 
data, voting records, mathematical and engineering tables, 
encyclopedias, want ads, library indices, case law citations, 
you name it — all types of reference materials that it would 
be desirable to be able to search and access via machine. 


COMPUTER CONTROL OF TAPES HAS MUCH 
WIDER USE THAN MERELY FOR MUSIC SYSTEMS 

Dear Jim, Sept. 20, 1976 

I read your excellent article: “Computer Control of Music 
Tapes for Your Home Stereo” in DDJ Number 8. I think it is 
really a realizable fantastic fantasy. However, I have some objec¬ 
tion to the title (and the emphasis) of the article. 

Had you titled it: “Computer Control of Bach’s Music Tape 
for Your Home Stereo on the Second Floor,” I would have ob¬ 
jected even more. The hardware you described is a computer 
controlled tape deck that can handle both digital and analog re¬ 
cordings. The software you proposed is also a very general file 
system. As you have mentioned in your “bells and whistles,” 
this system would be ideal for many types of computer-aided 
instruction. I would also use it to play computer games, and 
many many more. Wouldn’t it be great to hear Dr. Spock talking 
when you play Startrek? I would also use the same system to 
save all the programs and all my secret files. In this case the 
analog part may be of no great value, but my stereo on the 
second floor just might announce: “We are now loading a 
version of TINY PASCAL dated April 1, 1977.” Anyway, my 
point is, don’t limit such a great system to “Music Tapes” or 
to “Home Stereo.” 

Another nitty gritty: On Page 5, you seem to imply that 
the $199 and the $299 packages from Triple I also include two 
tape transports. From what I know, only the $189 package 
includes two transports. You get only one transport in the 
deluxe model packages. 

Sincerely yours, 

Linchen Wang 

I debated phrasing the article in this more general applica¬ 
tions context, but decided to keep the main article “narrow¬ 
minded” and merely point out the much more general applica¬ 
bility of the system I outlined. I did so because I didn’t have 
the time or space to discuss the wider applications in the 
detail that I felt would be necessary to a more generalized 
article. 

Yer right on how many transports are included in each 
package. The $189 package includes two fixed-speed transports, 
but the $199 and $299 packages include only one transport. 
What’s worse, the prices have gone up ... but they’re still a 
good deal (see Phi-Deck article elsewhere in this issue). 

WE HAVE SPEECH SYNTHESIS . . . 

SOON: SPEECH INPUT 

We hear ... straight from the quadraped’s mouth ... 
that a speech recognition experimentation system will be 
placed on the market early next spring. In kit form, it 
will cost well over $500 and will plug into the SI00 bus. 

PUBLICATION DETAILS DESIGN OF A 
CONTROL PROCESSOR FOR A MICRO¬ 
COMPUTER NETWORK 

The Computer Systems Synthesis Group out of UCLA’s 
Computer Science Department has recently released a 231 
page tech report by R. Fenchel entitled, “A System Control 
Processor for a Microcomputer Network.” It discusses the 
design of a control processor for such a network, to be used 
as an education tool in a computer science lab. You can 
probably obtain a copy without cost (while they last) by 
writing the CS Department in the School of Engineering 
& Applied Science, UCLA, Los Angeles, CA 90024. 

*Are there any of our readers who don’t know about Byte magazine, 

70 Main St., Peterborough, NH 03458, $12/year? 
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Why Hassle With Those Single-Purpose Cassette Interfaces? 


USE AN ACOUSTIC COUPLER 
TO READ/WRITE TAPE CASSETTES 


Jim Warren, Editor 

Steve Moore* just phoned in a hot idea. Why not use a 
data communications modem or acoustic coupler to read 
from and write to audio cassettes? 

Here are the advantages: By doing so, suddenly all of the 
“recording standards” problems disappear. The standards 
for couplers and modems have been accepted and in use for 
some years — and are well debugged. Why waste our time 
haggling over which homegrown standard to adopt, when we 
can “steal” the standards that have been proven in industrial 
use for well over a decade? 

Couplers and modems are specifically designed to inter¬ 
face to a byte-oriented digital device. Plenty of them are 
around that are already built to plug into a 20 mA current 
loop or RS-232 standard interface. It should be a simple 
matter to modify the master/slave circuitry (see the “gotchas”, 
next section) so they can talk to a computer instead of a ter¬ 
minal. (Quick! — all you hardware fanatics: send in the hard¬ 
ware details to guide us naive systems fanatics in making the 
necessary changes). 

Modems and couplers have been around for so long that a 
number of them are on the used equipment market. Some 
months ago, Walt Gruninger at the Minicomputer Exchange 
(154 San Lazaro Ave., Sunnyvale, CA 94086, 408/733-4400) 
told me that couplers could easily be had for about $100. 

It’s a quick way to gain hardcopy facilities when you have 
no hardcopy device. Here’s how: have your system dump a 
text file into your kid’s $19.95 audio cassette via a coupler 
or modem. Take the whole thing over to anybody’s coupler- 
equipped time-sharing terminal. Play the tape into the coup¬ 
ler (via a telephone handset that you scrounged from a sur¬ 
plus phone), and watch the pretty hardcopy be printed. The 
cassette tape is just acting as a hand-carried “telecommunica¬ 
tions system.” 

Once the coupler or modem is interfaced to your coupler, 
of course it can easily be used for telecommuning with another 
computer or a central program and data storage facility. Such 
central repositories are already being discussed as (1) a good 
solution to the problem of home computers having access to 
continually updated programs and data, and (2) an appropri¬ 
ate project for any of the larger clubs (if “hams” can get to¬ 
gether in constructing co-op relay stations, why can’t we coop¬ 
erate in building machine-accessable central repositories?) 

A quick check with an old analog engineer friend, down in 
Silicon Gulch, assured me that using this technique to handle 
data-rates up to 300 baud would present no problems, even 
when using el-cheapo cassette units and audio tapes. Note 
that this is the same (rather slow) data-rate as the “Byte 
standard.” It is obviously no problem since, after all, coup¬ 
lers are rated up to 300 baud and are explicitly designed to 
function reliably over scuzzy, unconditioned, lowest-band- 
width telephone lines. Modems are currently available that 
will run up to 9600 baud over conditioned phone lines. My 
analog friend hedged somewhat on whether or not such higher 
data-rates would present problems on audio tapes. Again, I 
call on you hardware types for the necessary details to make 
this fantasy a reality. 

And now, the hidden gotchas: First of all, the garden vari¬ 
ety acoustic coupler is built with the electronic protocols for 
its analog end to slave to a master computer over the telephone 
handset, and its digital end to speak in full-duplex or half¬ 
duplex to a terminal. Its protocol circuitry must be modi¬ 


fied so that its digital port will be the slave to the computer 
and its analog part connect to the “terminal cassette.” Alter¬ 
natively, one might purchase a “master modem” that is nor¬ 
mally connected to a time-sharing computer; however, these 
are considerably more expensive, probably have unneeded 
bells and whistles, and are less available on the used market. 

If trouble appears in the analog end of this system, it will 
be considerably more difficult for the novice to debug and 
fix than is the case with strictly digital circuitry, or with the 
Byte or Tarbell cassette standards. If you use an acoustic 
coupler, you must homebrew a connection between it and 
the record and playback “I/O” of your cassette. This may 
require some amplification circuitry. 

Now it’s up to you. It is an interesting and valuable project 
that is obviously well within the limits of current technology 
and a hobbyist’s budget — a realizable fantasy. When you get 
it up and running, why not share your implementation with 
everyone via an article in DDJ? Incidentally, the quicker a 
computer-coupler interface becomes widely available for 
home computers, the quicker we will see the creation of the 
machine-accessable program and data repositories that I 
mentioned earlier — yet another “realizable fantasy.” 


*Steve Moore is a consultant with Moore Research, P.O. Box 
1562, Sacramento, CA 95814, (916) 441-1890. 
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ITALICS IN VIDEO DISPLAYS 

One possible enhancement of character generation in 
TV typewriters is the incorporation of an italic mode. The 
same ROM could be used to produce the basic dot patterns 
for both italics and non-italics, only the character timing 
would change. Figures 1 and 2 show how text strings 
would look in both modes. In the italic mode, successive 
lines of each character would be displayed with a different 
time delay. Assuming a 7 by 9 dot matrix, the first line 
of each character (i.e., the top line) would be displaced by 
4 dots to the right. Line 2 would be displaced by 3.5 
dots (i.e., three and a half dot-clock cycles), and so on. 

Line 9 would have no displacement. A shift register IC 
could be used to implement the displacement, and an 
embedded control character (such as CTRL I) could be 
decoded to turn the mode on or off. The regular and 
italic modes could both be used in the same fine of text 
with appropriate control of transitional timing, although 


this would complicate the 
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Italic Mode 



SCROLLING MOD FOR TVT-2’s 

Dear Sirs, Oct. 7,1976 

The TVT-2 is the most popular video terminal used by computer 
hobbyists today. Until now, the users have had to settle for the 'page 
concept' with their terminals. Your readers might be interested in the 
fact that now they can add scrolling to their TVT-2. A fully assembled 
scrolling modification board (model SM-2) is available from Lenwood 
Computer Systems, P.O. Box 67, Hiawatha, IA 52233. A complete 
set of instructions is supplied. The cost of the SM-2 is $20.00 plus 
$1.50 for postage and handling. 

Thank you for your time. 

Jay G. Francis P.O. Box 67 

Lemwood Computer Hiawatha, IA 52233 

Systems 


64 X 32 VIDEO DISPLAY KIT 

Gentlemen: 

I thought that some of the DDJ readers interested in video 
displays might want to look into a kit sold locally here in Dal¬ 
las. It is a 2K x 8 bit parallel I/O (32 lines of 64 chars); it may 
be optioned for RS232 also. 

The main reason for going to this unit was because of the 
several control codes that allow blink by code and blank. The 
blank/unblank allowed me to not only not use up my own 
rather limited core (RAM, actually), but to use the screen for 
extra RAM, as the unit will operate at machine speed — I’m 
using the INTEL 8080 prototyping kit. 

Readers interested can write to the company at this ad¬ 
dress: 

IOR 

P.O. Box 28823 

Dallas, TX 75228 

Sincerely, 

D. Moore 
Dallas, Texas 


64-CHAR MOD FOR TVT-II’S, NOW & SCROLLING, 
SOON 

Gentlemen: 

We would like to thank you and your readers for the interest in the 
TVT-11 64 character modification article that you published in your 
No. 6 issue. The response has been tremendous. After experiencing 
some initial problems with typo errors and delayed shipments we are 
now meeting with your 3 week delivery schedule. On November 1 we 
found it necessary to increase the price of our boards to $6.50 for the 
64 character board and $13.50 for the 2K memory boards. Printing 
costs have also required us to charge $2.00 for the instructions if re¬ 
quested without ordering the boards [a corrected copy of the necessary 
instructions is now available]. 

We have received many requests for a scrolling modification for the 
TVT-II and we are happy to announce that we will have one ready to 
ship out before the end of the year. The board is set up such that only 
five jumpers are required to install it. This was accomplished by hav¬ 
ing the board plug into sockets which replace IC's 34 and 41 on the 
mainframe. These IC's are relocated on the mod board. The board 
gives bottom line scrolling with the new line coming up clean. Nor¬ 
mal or scrolling modes are switch selectable with the scrolling not be¬ 
ginning until the page is full. Line feed is disabled when in the scroll¬ 
ing mode. It appears that the board will retail at $20.00 with sockets 
and instructions although this is not yet firm. 

Thank you, 

David O. Valliere Box 4241 

Digital Designs Victoria, TX 77901 


VTT GROUP BUY 

Dear Jim, Oct. 27, 1976 

In response to our conversation on the phone today, here are all the 
details on the VT4000 group buy. There are two different buys avail¬ 
able at this time. One is the VT4000B, a complete crt terminal with a 
Motorola 12" monitor, completely assembled, tested and ready to use. 
The second is for the do-it-yourself types. It consists of the five PC 
boards without parts, the power supply and the cabinet for the VT 
4000A. To qualify for the group buy price, we will have to buy at 
least 10 of the buy or buys we choose. To try and clarify further, we 
cannot combine the two to get a total of 10. If the minimum of 10 is 
not reached by 15 January 1977, all money will be returned. To quali¬ 
fy as an order, full payment must be made at time of order. 

Prices: 

VT4000BA Assembled Terminal regular retail 999.95 


less 20% 199.95 

800.00 + 6.5% 
state tax + 2% 

TOTAL 868.00 

Bare bones lit separate parts regular retail 240.00 

less 10% 24.00 

216.00 + 6.5% 
state tax + 2% 
handling fee 

TOTAL 234.36 


The above prices include delivery in the Bay Area, outside the Bay 
Area will be sent freight collect. If shipped outside Bay Area subtract 
Yi of the handling charge. 

Make checks payable to: Video Terminal Technology. Mark on 
lower left of check: Homebrew Computer Club Buy. Send orders to: 

Norman Walters 
3107 Laneview Dr. 

San Jose, CA 95132 


NEW COSMAC COMPUTER 

At last, someone has come out with a microcomputer based 
on the RCA 1802 (COSMAC) and suitable for many hobbyists. 
Produced by Infinite, Inc. (Box 906,151 Center St., Cape Ca¬ 
naveral, FL 32920), this machine has a 4-digit hex readout and 
integral hex keyboard. Standard on-board memory comprises 
256 bytes of RAM, externally expandable to 64K. Additional 
features include DMA as well as serial and parallel I/O. Assem¬ 
bled and tested, the price is $395 with case and power supply, 
$249.95 for a complete kit, or $179 for just the MPU board. 

Nov./Dec., 1976 
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MILITIA MAY AID HOBBYISTS 
COMPATIBILITY PROBLEMS 


Dear Jim, Sept. 7, 1976 

You are probably aware of the WESCON Session II paper 
described in the attached extract from Electronic Design (below). 
Looks like the military may be giving us a hand with standard¬ 
ization. 

I enjoyed meeting you at Personal Computing '76. 

Best wishes, 

Joe Gilbreth 1229 Vista Lane 

Birmingham, AL 35216 

Recommendations for use of a common bus system 
will be made in Session 11, but in another context—for 
the standardization of military microprocessor systems. 

That will be proposed in a Session 11 paper, “Compati¬ 
bility Among Families of yPs”, by Hank Malloy, military 
program manager, Intel Corp. Malloy is also chairman of 
a newly organized task force on military microcomputer 
LSI, which is sponsored by the Electronic Industries 
Associates and the National Electronic Manufacturers Asso¬ 
ciation. 

To achieve any kind of standardization it is essential 
that bus structure characteristics be specified, Molloy will 
argue. Also, high-order languages will have to be used. 

An example of how such languages can contribute 
to standardization, Molloy will point to PL/M. Two popu¬ 
lar 8-bit u Ps are the Intel 8080 and Motorola’s 6800. 
While PL/M was generated by Intel for the 8080, PL/M 
compilers are available to translate the syntax into object 
code for the 6800. [And Signetics 2650.] 

The EIA/NEMA task force will study drafts of two 
new MIL-M-3851 microprocessor detail specs, the /400 
for Motorola’s 6800 and the /420 for Intel’s 8080. 


MORE COMMENTS ON PROC.TOLOGY SOFT¬ 
WARE, PLUS SOME NOTES ON CASSETTE 
TAPE QUALITY 

Dear Jim, 

DDJ has become the best newsletter for the computer 
hobbyist. None of the commercial magazines can approach 
the wealth of information you provide. I enjoy every issue, 
especially the letters. Keep up the good work. [Aww, 
geee fellas . . .] 

Some more comments on Processor Technology software. 

I think the PT people have done a great job providing rea¬ 
sonably priced software. It seems that their programs are 
not thoroughly debugged. The source listings for FOCOL 
and BASIC do agree with the paper tapes. 

The problem with the PT BASIC INT function mentioned 
in DDJ No. 8 can be corrected as follows: 


AINT 

LDAX 

B 


SU1 

129 


JP 

AINT1 


XRA 

A 


MVI 

D,5 

AINT2 

STAX 

B 


DCX 

B 


DCR 

D 


JNZ 

AINT2 


STAX 

RET 

B 


Thanks for Fred Greeb for this fix. 

In addition, I’ve come across two more bugs: 

1. Formatted print will not work with fractional values. 
Example - %Z2% Variable = 1.097 Output =1.10 OK 

Variable = .097 Output = .0010 OOPS! 


FRIDEN DOCUMENTATION FOR $10 

Dear Editor, Oct. 31,1976 

Some months ago I purchased a Burroughs-Friden 
Printer-Keyboard and the associated interface electronics on 
the surplus market. The model number is 9530-2. The cost 
was in the vicinity of $300, and looked like a pretty good 
deal for a hard copy unit. The major shortcoming is the 
lack of any documentation. For effective use of the unit 
with home computers some changes are necessary, but are 
virtually impossible to accomplish without adequate docu¬ 
mentation. I spent nearly all of my spare time for the last 
half year on the incredible task of deciphering the circuits 
on the interface boards. There are over 300 integrated cir¬ 
cuits (obsolete types) on the boards. It was the hardest 
puzzle that I ever worked on. 

It is likely that there are other computer freaks who have 
bought similar units and are in need of documentation. For 
$10,1 will send a copy of my documentation to anyone for 
his or her personal use. The documentation includes com¬ 
ments on almost all of the inter-board wires and logic diagrams 
of the boards and typewriter switches. It does not include 
explicit instructions for modification of the boards for home 
use, but perhaps I can generate that later. 

Sincerely, 

Robert L. Smith 2300 St. Francis St. 

Palo Alto, CA 94303 

Does anyone have origiml manufacturer’s documentation for 
these units? — Editor 


$3000 FOR 2,400 LINE PER MINUTE PRINTER 

Houston Instruments has 80-column and 132-column 
printers that print up to 2,400 1pm and up to 1,400 1pm. 
They say their interfacing is explicity designed for easy 
connection to micros. 

Houston Instruments is located at 1 Houston Sq., 
Austin, TX 78753. 


2. When a variable in a FOR/NEXT loop is decremented and 
becomes zero it is not recognized as zero. 

Example - 10 FOR 1=2 TO -2 STEP -1 
20 IF 1=0 THEN . . . 

The relation on line 20 never becomes true. The zero is 
apparently a “negative zero” since 
20 IF ABS(I)=0 THEN . . . 
will work. 

If any of the DDJ readers have a solution I’d like to hear 
from them. A letter to PT regarding these problems has not 
been answered. 

Realistic Supertape has been recommended in some hobby 
magazines as suitable for digital data recording. The October 
76 issue of Consumer Reports contains a test of audio cas¬ 
settes. Recording music and digital data are not directly 
related. However, it is interesting to note that Supertape 
was rated below average in two important factors - output 
uniformity and freedom from dropouts. From personal ex¬ 
perience I’d have to agree with the test findings. 

The four top rated cassettes were BASF Studio Series, 
Maxell UD-XLC60, Scotch Master, and TDK Super Avilyn 
SAC60. I’m not sure this can be printed in DDJ since it 
is copyrighted info. 

Happy computing. 

Adolph P. Stumpf 5639-A Ute 

Glendale, AZ 85307 

[My impression is that one may copyright text, not informa¬ 
tion. — Jim] 
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THINKING OF OPENING A COMPUTER STORE? 


Average Earnings For An Average Month 


Before you do, consider the following financial figures. 
These were generated in September, 1976, by an independent 
ream of professional cost analysis consultants. They are pro¬ 
jected or “reasonable expectation ” figures for two classes of 
computer stores; a $20K/month store and a $30K/month 
store (gross). They are based on a number of in-person and 
in-depth telephone interviews with a large number of existing 
computer stores. 


NEW CANADIAN COMPUTER STORE 

The Computer Shop (of Calgary) is a brand new store 
serving the Canadian Rockies and western plains area. They 
carry a number of product lines, and hope to offer some of 
their own Canadian-made products in the near future. 

Austin L. Hook, The Computer Shop, 3515—18th St., SW 
Calgary, Alta., T2T 4T9, Canada, (403) 243-0301. 

“PERSONAL” COMPUTERS ARE SHOWING UP 
IN SCHOOLS 

The San Jose Unified School District is busying 14 Western 
Data Handlers, assembled. It already has ten IMSAI’s and a 
Polymorphic. It has originally been considering expanding a 
PDP-8 into a TSS-8 system, but decided to purchase these 25 
computers, instead — for the price of that TSS-8 expansion. 

Furthermore, Bob Albrecht noted, “SMRT won’t hurt 
San Jose.” (SMRT is the Single Message Rate Tariff that 
Pacific Telephone is about to inflict on users of business tele¬ 
phones who make lengthy calls. See August, 1976, DDJ.) 


Gross Sales 

$20,000.00 

$30,000.00 

Cost of Goods Sold 

13,600.00 

20.4Q0.0Q 

Gross Profit 
Deductions: 

6,400,00 

9,600,00 

Refunds, Bad Check 

$ 15.00 

$ 25.00 

Sales Expenses: 

Personnel Advertising 

10.00 

15.00 

Salaried Employees (2) 

1500.00 

1500.00 

Bonuses 

150.00 

250.00 

Royalties 

1000.00 

1500.00 

Subtotal 

/$2675.00/ 

/$3240.00/ 

Operating Expenses: 

Advertising (2Z) 

400.00 

600.00 

Automotive 

35.00 

50.00 

Dues & Subscriptions 

7.50 

7.50 

Entertainment 

10.50 

25.00 

Equip. Rental 

30.00 

40.00 

Insurance 

75.00 

75.00 

Interest 

7.50 

10.00 

Office Supplies 

10.00 

20.00 

Postage 

17.50 

25.00 

Printing 

20.00 

30.00 

Prof. Service (Ace/Lease) 75.00 

75.00 

Rent 

450.00 

600.00 

Taxes 

35.00 

50.00 

Telephone 

100.00 

150.00 

Travel Expense 

50.00 

75.00 

Utilities 

50.00 

75.00 

Subtotal 

/1373.00/ 

/1907.50/ 

Net Profit (11.7Z) 
Monthly 

2352.00 

(13.8%) 3462.50 

Yearly 

$28,224.00 

$41,550.00 


RES. AS OF MID-NOVEMBER (already badly outdated) 


Yojte 



Prepared by David Baran 
Age 11 
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JIM McCORD REPORTS ON THE LSI-11 

Dear Bob and Jim, Oct. 7,1976 

To follow up my conversation with Bob of a couple of 
weeks ago, this is to tell you about the LSI-11 stuff. 

At last count there were about 15 people in the S. Calif, 
area who were using the LSI-11. I understand that there are about 
an equal number in the Bay Area. Other than those two groups 
I know of no other “large” bodies of hobbyists using the machine, 
although there are undoubtably isolated people around the 
country who bought them from various distributors. Perhaps an 
announcement in PCC or Dr. Dobb’s will help pull us together. 

The S. Calif, group bought their machines from a company 
called Applied Information Development, a subsidiary of SDC. 
AID is apparently building something that incorporates the 
LSI-11 and is selling the components partly as a way to get 
their own unit costs down. We got a 25% discount of quantity 
one price with a $5K order, and some smaller orders have since 
been filled at the same discount. Whether they would still do 
this for other groups I do not know, but probably they would. 
(Amateurs pay cash.) I have also seen other distributors adver¬ 
tising “club discounts” on the LSI-11. By the way, we went this 
route after trying for almost a year to put together a group of 50 
people to buy directly from DEC and never succeeding. 

There is a common belief that the LSI-11 is too expensive 
for hobbyists. I don’t agree. For about $ 1K, you can get a 
processor, 8K bytes of memory and a serial I/O card, and a back¬ 
plane, fully assembled to industrial standards, that works when 
you plug it in. It took me 15 minutes to go from box to teletype. 
The machine has a very nice monitor, and for an extra $100 or 
so you get hardwired fixed and floating point instructions, for 
those who are into that. Plus, you get the very elegant and 
powerful instruction set of the PDP-11, all of the system software 
that has been developed for the 11 (at a price, of course), and 
the DECUS library which is full of 11 software and is going to 
get a lot fuller. All in all, I think it’s a pretty good deal. 

There are some disadvantages, of course. If the machine 
breaks you probably have to ship it back to DEC for repair. 

(DEC claims a very long MTBF, but who knows?). I don’t know 
what a nominal repair charge would be. Until somebody builds a 
LSI-11 — to — Altair bus interface, we won’t be able to use all 
the neat hobby peripheral cards. Memory is somewhat more 
expensive than for hobby machines, although it too comes fully 
assembled and checked out from a variety of vendors. You have 
to supply your own power supply and box, although that isn’t 
a big deal. Also, some of the most desirable software like the 
BASIC interpreter is still pretty expensive. I think DEC should 
consider releasing the papertape stuff to DECUS — probably they 
have recovered the cost by now! In all, though, I think that the 
LSI-11 has a lot to recommend it to the hobbyist, particularly to 
those who are more into programming than hardware. 

So far no really creative applications for the machine have 
emerged from our group, since most of us are still working on 
developing auxiliary hardware like terminals and stuff. Periphe¬ 
rals include a few TVT’s and TTY’S, papertape readers and 
punches, and cassettes. Three of us have built the InteColor 8001 
intelligent color terminal kit and are using it as our main I/O 
device (that’s a story for another day). The peripheral that most 
of us would like to get is, of course, a floppy disk, but so far we 
haven’t found anybody who makes an affordable controller for 
the LSI-11. That shouldn’t be too far off, though. 


POSTSCRIPT TO ‘COPYRIGHT MANIA’ 

Dear Jim, Aug. 25, 1976 

I am writing this letter as a postscript to the article 'Copyright 
Mania' in the May issue of Dr. Dobb’s. I became rather attracted 
to TRAC (trademark of Rockford Research, Inc., and don't you 
forget it) and therefore wrote to Mooers asking for information 
regarding the development of a TRAC processor. Two months 
later, I received a copy of a 'License Agreement for permission to 
use Rockford Research copyrighted writings on TRAC language in 
academic experimentation.' What it consisted of was an agreement 
that Rockford Research would not sue me if I signed the agreement 
and sent them $10. That (the promise that they won’t sue me) is 
all I get for my $10 (manuals are another $15). Also, once I 
finished the TRAC processor I could not: "publish, reproduce, 
resell, lease, give, lend, circulate, or license the . . . [TRAC pro¬ 
cessor] ... or any portion thereof in any manner or on any 
medium, which shall include but not be limited to copies, tapes, 
films, computer program library deposits . . ." (there was about a 
paragraph more). Anyway, that rules out sending to Dr. Dobb’s, 
which was my idea for the processor from the start. The agree¬ 
ment also wanted me to agree not to challenge the Rockford 
copyright. 

In short, I have no objection with a person or group copy¬ 
righting a program, but this seems a bit excessive. 

Thanks for the time, and keep up the good work. 

Yours, 

Chris Pettus PO Box 611 

__ Malibu, CA 90265 _ 

PRAISE FOR PALO ALTO TINY BASIC & TINY 
TREK, AND A QUIBLET ABOUT THE VDM SOFT¬ 
WARE 

Dear Jim, Oct. 5, 1976 

PALO ALTO TINY BASIC and TINY TREK have to be the best 
$4.00 investment I ever madel I'd like to recommend it to all Dr. Dobb 
Dobb’s readers. (For further details, refer to Dr. Dobb’s, May 1976, 
with an addition of software for a VDM display in June/July 1976.) 

The tapes came back within 4 days from the Community Compu¬ 
ter Centre (which must be a record for Trudeau's Turtles'), and every¬ 
thing worked immediately. The abbreviating possibilities of P.A.T.B. 
really make for conpact programming (P. instead of PRINT, for exam¬ 
ple), in conjunction with multiple statements per line. 

One thing I would have liked to have seen would have been simple 
strings for inputting and outputting words, names, etc., but one can't 
have everything in less than 2K, I guess. (Any chance of Li Chen Wang 
re-considering . . .?) 

I haven't had too much use out of TINY TREK — mainly because 
my kids won't let me have a turn I However, the times that I have 
played, I have thoroughly enjoyed it, and it ranks up there with the 
other versions I have played (STARTREK, and STARTREK 3D on an 
AMDAHL 470). As a matter of fact, it is extremely difficult to win, 
and that increased the enjoyment (with the frustration). 

Another problem in using the VDM software given in June/July 
1976 Dr. Dobb’s, is that when listing a long program the screen goes 
zzzip! and all you catch is the last few instructions that remain on the 
screen. A delay, or a hold feature would be nice. 

Still, for 6K of memory I have hours of fun — or at least my kids 
do. I'm reduced to playing after lights out for them. What the heck 
can I do with my other 10K? 

Sincerely, 

Basil R. Barnes, VE6BB Box 1226 

Bonnyville, Alberta 
CANADA, TOA 0L0 

P.S. Can I obtain Mr. Wang's address? [Dr. Lichen Wang, 150 
Tennyson Ave., Palo Alto, CA 94301, (415) 321-6983] 

more users before that becomes reasonable. 

See ya, 

Jim McCord 3710 State St. 

SysteMetrics, Inc. Santa Barbara, CA 93105 

P.S. 


Anyone who has an LSI-11 or is interested in one is welcome Jim, thanks for the stuff on PerSci. They had an ad in Inter- 
to write to me. So far there is no organized newsletter for the face this month, offering drive and controller for just over a kilo- 

machine but undoubtedly one will emerge when enough people buck. It’s a really fantastic intelligent controller, requiring prac- 
are interested. DEC will create a DECUS Special Interest Group tically no support software in the host machine. If I can’t find a 
(SIG) for hobby users of the 11 or 8 or both, which would take compatible controller for my 11,1 may go this route, writing my 
care of nuisances like printing and mailing, but we need a few own drivers. 
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A GOOD RESPONSE TO COMPLAINTS 
ABOUT TARBELL TAPE UNITS 

Dear Jim, Sept. 19,1976 

Thank you for giving me the opportunity to reply to the 
notes about my cassette interface in your Volume 1, Number 
8 issue. 

I believe that no product is ever perfect, so I continually 
revise both the documentation and the interface itself. Since 
I started delivering these units over a year ago, I have gone 
through four revisions of the boards, and at least six revisions 
of the manual. These changes were largely the result of com¬ 
plaints, suggestions, and returned survey forms, which are at 
the end of each manual. The first ten kits especially, were 
followed very closely, and the owners were asked to immedi¬ 
ately inform me of any problems they had with either the 
manual or the board. In this sense, the kits were “tested on 
persons unfamiliar with the device.” 

Although I realize that the term is a relative one, I 
don’t feel that the implementation of this device has been at 
all “sloppy.” Of course, I’ve had my share of problems, like 
any of the other manufacturers, but I’ve made every attempt 
to follow up what I consider good design practices, and to 
make the system as clean as possible. 

Unfortunately, I did have a run of boards that had bad 
plated-through holes, and got through my inspection 
undetected. I have since discontinued my relationship with 
the manufacturer that produced these boards, and selected 
another. My first revision D cassette interfaces were 
delivered September 3,1976 (before Dr. Dobb’s Number 
8). The boards in these kits, one of which is enclosed, are 
far superior to the previous ones, and the plated-through 
holes look beautiful. Revision D also includes all the latest 
modifications, including several unused inputs connected to 
pull-up resistors. The connector pin alignment has also been 
corrected slightly. 

Several months ago, I contracted with someone to com¬ 
pletely rewrite the manual. The rough draft is now being 
reviewed, so it will probably be ready to print in about a 
month. This manual provides new information, such as 
siagrams for all the integrated circuits, step-by-step instruc¬ 
tions for the beginner, and a more thorough theory of 
operation section. Although my present manual is not in a 
professional format, I am proud of the fact that it is chock- 
full of the kind of information a hobbyist needs to get his 
interface up and running and useful. The new manual will 
be even better, and some of the pages have already been 
added to the present manual. 

One page of the manual starts: “If you cannot make 
at least ten 8K-byte transfers with no errors, you have a 
problem, and the items below may be of some help:” 

This is followed by several items to check. The last two 
items on this page state: “If you still have problems, 
please return the unit, preferably with your cassette recorder, 
and I will get it operating perfectly for you without charge. 

If you are completely dissatisfied, you may return the 
interface for a refund within 90 days after you accepted 
delivery.” 

I don’t know if there’s another manufacturer that 
stands behind his product like this, but I think it attests to 
my confidence in the Tarbell Cassette Interface. I have not 
charged one penny for repairs yet, and in all the units I’ve 
shipped, only one has asked for (and received) a refund. I 
sincerely believe that most of the people with these units 
are completely happy with them. 

I completely support your suggestion to write or phone 
me directly. Please —if you have problems with your interface, 


and we can’t seem to get it going over the phone or by mail, 
send it to me for repair. There have been some units that 
have been difficult enough to repair that I’ve actually supplied 
a replacement unit, at no cost. I don’t really see how you can 
lose when you buy one of my interfaces. 

Sincerely, 

Donald E. Tarbell Tarbell Electronics 

(213) 832-0182 144 Miraleste Dr., No. 106 

Miraleste, CA 90732 

CONFERENCE ON COMPUTERS IN HUMANITIES 

Papers and participation are being sought for the Third International 
Conference on Computers in the Humanities to be held Aug. 2-5, 1977, 
at the University of Waterloo, Waterloo, Ontario. Send papers or ab¬ 
stracts to Prof. Paul Bratley, Dept. D'lnformatique, Universite de Mon¬ 
treal, Montreal, Quebec H3T 1J4 by January 15, 1977. 

TARBELL PRAISE, A FANCY DISASSEMBLER, 

& AN APL CHARACTER QUERY 

Dear DDJ, Sept. 26, 1976 

Just a quick note on the Tarbell interface about 
which you say you have been receiving a lot of com- 

E ilaints: mine worked the first time I tried it, and refused 
o drop so much as 1 bit when fed by a tape recorder 
with a variable speed control. I could go 20% slow, and 
about 10% fast, with no trouble. Only by intentionally 
trying, could I get it to drop a bit to see if my checksum 
routine was working. In daily use for about 2 months, 
it has dropped a bit only once. It is a fantastic peripheral. 
I use it to back up floppy disks as it is the only device 
that is 1) fast enough; 2) cheap enough; 3) reliable 
enough. I had no ‘non-plated-thru hole’ problems. A 
friend says Tarbell left some TTL inputs floating, which 
causes noise susceptibility, but I have not had this prob¬ 
lem. 

Keep up the fantastic work on supplying the 
hobbyist community with public domain software, and 
P.S. are you interested in a disassembler which I wrote 
and commented? It is 8080 based, uses sense switches to 
determine when to generate instructions, when to gener¬ 
ate DB’s with ASCII, or DB’s with hex. It can be used 
as a one-pass process to just see object, or can be used 
as 3 passes: 1) every address reference (JMP, LXI, CCLL, 
etc.) is placed in a symbol table compatible with Processor 
Tech Package No. 1; 2) a pass to edit the symbol table 
and change default labels (Lxxxx) into meaningful ones if 
you have some knowledge of the source code—this pass 
is entirely optional; 3) do the actual disassembly, with 
most labels put in, and all LXI’s, JMP’s etc. referencing 
labels. The output is a source listing, and optionally, 
using a sense switch, writes the source in a format com¬ 
patible with Processor Technology Package No. 1. 

I would appreciate you publishing a note asking if 
anyone knows a source for APL character generators which 
could be retro-fitted to a VDM. 

Sincerely, 

Ward Christensen 688 E. 154th St. 

Dolton, IL 60419 

Yes, Yes, Yes! Send us your super disassembler-including, 
of course, user documentation, at least nominal internal 
documentation, and annotated source code. 

What sort of disc system are you using and how do 
you like it? (And, may we publish your reply?) 

What sort of printer and printer software are you 
using? [The original of this letter had an unusual type 
face, and was left & right justified.] 

—Jim 
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TARBELL TOUTED 

About the Tarbell interface: I have two of them (since I have two 
machines) and they both work great. I recommend them. 

However, neither of them worked right off. One was an early type 
and needed fixes; the other had a bad board and needed fixing. But 
Tarbell gets them right back (a couple of weeks) and they're great! 

In fact, most of this stuff doesn't work immediately. None of my 
stuff has worked right off. That's why you should buy from someone 
who will back his merchandise. I've bought some used equipment and 
have regretted it. When you buy, buy quality and mentally add 25% 
for repairs unless you know at lot about this stuff that I don't know. 

Say, what's your experience with molex pins for 1C chips? I've 
not used them but I hear they work okay. Sure sounds better than 
buying sockets at 50 cents each. 

Jim Leek 2801 F 

Bakersfield, CA 93301 


TARBELL TRICKY 


A CLUB SURVEY: TOO SMALL FOR STATIS¬ 
TICAL SIGNIFICANCE, BUT WE LIKED IT 

Dear Mr. Warren, October 3, 1976 

Thought you might be interested in the enclosed results 
of our first membership survey. 

Sincerely, 

Robert R. Wier Texas A&M University Micro- 

Survey Chairman computer Club, Box M-9 

Aggieland Station, TX 77844 


These are the results of the first periodical Texas A&M Micro¬ 
computer Club Consumer Survey and Opinion Poll taken in Sept., 
1976. 


Dear Jim, Oct. 8, 1976 

A few weeks back you asked for user comments on the Tarbell 
Cassette Interface. Here are mine, based on a not-yet-up-and-running 
board. 

When I first put the thing together, I had trouble getting the 
sync light to come on at all. So I sent the board back to Don Tarbell, 
asking for help. He corrected a few errors, made some modifications to 
the circuit, and sent it back to me — no charge. I still had some trouble 
getting the unit to read in data, even after setting it up with the aid of 
the sync light, and set it aside until I could get hold of a scope. The 
scope showed that adjustment was even more critical than the instruc¬ 
tions would indicate. I was getting a good sync light reading over a 
wide range of settings, but the waveform was stable for only a very 
small range. That problem corrected, I could read in data, but still 
had substantial numbers of errors. I've pretty well stopped at that point, 
since business is taking me out of town too much to concentrate on a 
solution. 

My observations: 

— The interface is sensitive and error-prone. I assume this is the 
price one pays for the high speed. 

— A scope is nearly essential to correct problems. This is true for 
all computer applications, actually, but this was the first of six boards 
I've assembled that required more than a little initial prodding. 

— Don is good to his customers. I have no qualms about calling 
him if I can't get the error problem corrected, but want to put in my 
own best efforts before bothering him further. 

— An article in DDJ mentioned that the user has to figure out 
that a start byte is essential. True. This can be a real problem if you 
don't use Don's programs, because that's the only place mention is made 
of it. 

In short, I have mixed emotions. I appreciate the potential speed 
of the interface and Don's integrity in backing his product. But I would 
have been much farther along in getting a system running with a slower, 
but more fool-proof (literally) unit. Right now, I'm still using console 
switches, since I can't use the keyboard effectively without reloadable 
software. 

Sincerely, 

Jim Wilson San Diego, CA 


Dear Jim, Oct. 14,1976 

A P.S. to a letter I wrote a few days ago about my experiences with 
the Tarbell cassette interface unit: 

It is now up and running, apparently reliably. My solution finally 
was to hook it up to my hi-fi tape deck through an old Lafayette stereo 
amplifier that was going unused. I then used an oscilloscope to remove 
as much of the distortion as possible by adjusting the bass and treble 
controls. 

This is obviously a pretty unwieldy solution. So when I finish some 
more important things, I plan to buy a cheap audio amplifier with tone 
controls (something less than 10 bucks), and use it for a more perman¬ 
ent installation. 

Sincerely, 

Jim Wilson 
San Diego 


HOW TO READ IT: Companies are listed in each division in de¬ 
scending order of rating. Entries are of the form NAME (rating/ 
no. of respondees). The ratings are determined from a number of 
ratings based on response speed, quality of product, pricing, com¬ 
plaint satisfaction, and overall quality. Companies which received 
less than 2 ratings are not listed. Note that it could be "safer" to 
deal with a company which has a rating slightly lower than some 
others if a large number of parsons found it favorable. 

In all categories, most favorable rating was 5, least favorable was 1. 

COMPONENTS: 

DIGI-KEY (4.58/4) 

TRI-TEK (4.5/2) 

JAMES (4.42/10) 

S. D. SALES (4.42/6) 

NEWARK (4.36/3) 

ALTAJ (4.04/5) 

FORMULA INT’L (4.00/2) 

GODBOUT (3.9/4) 

MESHNA (3.82/6) 

DELTA (3.54/4) 

BABYLON (3.36/3) 

SOLID STATE SALES (2.89/5) 

POLYPAKS (2.62/8) 

OLSON (2.35/5) 

B-A (2.28/5) 

RADIO SHACK (1.92/11) 

PUBLICATIONS: 

Dr. Dobb’s (4.38/4) 

Byte (4.23/10) 

73 (4.18/3) 

Ham Radio (4.16/4) 

People’s Computer Company (4.10/4) 

Computer Hobbyist (3.75/2) 

Popular Electronics (3.65/10) 

Interface (3.08/3) 

Radio Electronics (2.92/9) 

Creative Computing (2.88/3) 

KITS AND MAJOR COMPONENTS: 

SWTPCO (4.16/8) 

HEATHKIT (4.16/9) 

PROCESSOR TECH (3.90/2) 

IBM (3.75/2) 

MOS TECHNOLOGY (3.74/3) 

IMS (3.73/4) 

MITS (2.82/5) 

"Should software be included in the price of the hardware?" 

YES: 82% NO: 18% 

Computer Stores: "Good, but expensive" was the general response. 


Seymour Cray, designer of giant machines for CDC, and 
designer of the monster CRA Y-I, is said to often refer to his 
machine as a “back-end processor. 
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IMSAI “INCOMPATIBILITY” 

Dear Jim, Oct. 14,1976 

I have just entered a real-life description of “compati¬ 
bility”. While trying to figure out why a simple three instruc¬ 
tion program would not work as documented in the Intel 
8080A manual being executed on my IMSAI 8080,1 dis¬ 
covered that the flag bits (as stored in memory via PUSH PSW) 
were not as Intel describes. 

For openers, bit-5 and bit-3 are supposed to be ‘O’. On my 
IMSAI 8080 bit-3 was always ‘1’, and bit-5 fluctuated with, 
as yet, no pattern sometimes being ‘0’ and other times being 
‘1*. At this time I played around a bit and found that the 
XRA A instruction did not work as documented. At this 
point, I contacted IMSAI. 

Very quickly, I was put in contact with Mr. Bruce Hollo¬ 
way of IMSAI. After Bruce confirmed that strange things 
were happening with his IMSAI 8080, he researched the 
problem and reported the following: (my interpretation 
follows) 

These IMSAI 8080’s use a NEC 8080A chip instead of an 
Intel chip. NEC reported in a confidential letter to IMSAI 
some “minor” differences between their chip and Intel’s. 

At all times, the chips were stated as being software compat¬ 
ible. The software differences are: (1) Flag bit-3 is always 
‘1’; (2) Flag bit-5 is set ‘1’ on subtract-type operations, and 
is reset ‘0’ on add-type operations; (3) The CY (carry) and 
AC (auxiliary carry) flags are now properly set for both adds 
and subtract operations; (4) The DAA (decimal adjust) opera¬ 
tion now works properly following either an add or a subtract 
(using flag bit-5); (5) THE AC FLAG IS NO LONGER 
CLEARED BY LOGICAL OPERATIONS. Additionally, 

Bruce mentioned that there are also some “minor” hardware 
differences, having to do with data on the same bus not being 
present at the same states as with the Intel chip (I wonder 
what problems this might cause?). 

When I heard all of this, I informed Bruce that the fact that 
the AC flag is not cleared means that software written for an 
Intel chip would not work on the NEC chip. For example: 

MVI A,9 

ADD A this forces the AC to be set 

XRA A this is supposed to clear AC and CY 

DAA this should result in ‘00’ but produced ‘06’ 
with the NEC chip!! 

At this point Bruce agreed with me since he has written 
similar code that would not function properly with the NEC 
chip. Bruce has informed me that this incompatibility was 
not known previously. 

Well, in the span of the last three days, I have uncovered an 
8080A “compatible” chip that is, for all purposes, as incom¬ 
patible to the Intel 8080A as is the Z-80: programs can be 
written that will run properly on the Intel 8080A, but will 
run properly on the NEC 8080A, and vice-versa. 

I am now waiting for the Intel 8080A IMSAI will be ship¬ 
ping shortly. What really disturbs me is not the imcompatibil- 
ity itself, but not being informed. I don’t believe that NEC 
should claim their chip to be “compatible”, but I abhor the 
fact that their letter describing these differences was labeled 
CONFIDENTIAL and not released to the end user of their 
chips. 

I hope that this letter may save some people untold hours 
debugging a program that doesn’t work because of the NEC 
chip. Hopefully, IMSAI will refrain from using such incom¬ 
patible chips on MPU boards, and will exchange customers’ 


NEC chips for truly compatible chips, or at least distribute the 
NEC ‘confidential’ documentation. 

Sincerely, 

Glenn S. Tenney Compro 

Sr. Designer 2111 Ensenada Way 

(415) 574-3420 San Mateo, CA 94403 

IMSAI RESPONDS 

Dear Mr. Warren, Oct. 18, 1976 

Following is the letter promised per our telephone conversation of 
October 15, 1976. We will be sending this information to all past and 
future customers who may have the NEC chip. 

All of the features described in the following synopsis were desiqned 
by NEC to improve the 8080A chip. 

Thank you for your cooperation. 

Very truly yours, 

IMS ASSOCIATES, INC. 14860 Wicks Blvd. 

Marvin Walker San Leandro, CA 94577 

General Manager (415) 483-2093 

SUMMAR Y OF DIFFERENCES BETWEEN I8080A AND uPD8080A 

1. During an interrupt, an RST or CALL instruction is accepted by both 
both processors. With the uPD8080A during M2 and M3 of a CALL 
instruction, the INTA status signal remains active. The I8080A re¬ 
quires the use of an 8228 to generate INTA by decoding 02H (all 
status inactive). Both I8080A and uPD8080A work correctly with 
Intel and NEC 8228/38. 

2. Interrupt during HALT state, with the uPD8080A INTE is reset at 
T2.02 of the next clock period following the sampling of I NT, as 
opposed to the I8080A where INTE is reset at Ml.T1.02 of the 
interrupt instruction fetch. 

3. Instruction Execution Times: All instruction execution times are 
the same except the following, which require the listed number of 
T (clock) states assuming no wait cycles. 



18080A 

uPD8080A 

MOV r,r 

5 

4 

RET 

10 

11 

DAD 

10 

11 

XTHL 

18 

17 

SPHL 

5 

4 


4. Data on Address Bus during Ml, T4 and T5 with uPD8080A is the 
same as during T1-T3. With the I8080A, the Address Bus is unde¬ 
fined during T4 and T5. 

5. Subtraction is performed as a direct binary operation in the 
uPD8080A and the carry. Auxiliary Carry and subtract flags are 
properly set to indicate the subtract operation and borrows from 
each four bit nibble for use with the DAA instruction. 

6 . DAA instruction works correctly, directly following both addition 
and subtraction operations with uPD8080A, while I8080A BCD 
subtraction must be performed by a sequence of additions and 
subtractions. 

With uPD8080A, three flags. Carry, Auxilliary Carry and SUB, 
are used for DAA operation, both for addition and subtraction 
(see Section 8 ). Carry and Auxiliary Carry are properly set to 
indicate borrows/carries from each four bit nibble for use with 
the DAA instruction. SUB flag is used to determine whether 
required DAA is for addition or subtraction. BCD arithmetic 
programs written to run on I8080A will also run on uPD8080A 
unless the operations ORA, XRA, ORI, XRI, INR, DCR or DAA 
are depended on to affect the AC flag. Also see Section 7. * 

7. Flag Registers for I8080A and uPD8080A are as follows: 

Do Di D 2 D 3 D 4 D 5 Dg D 7 

I8080A C 1 P 0 AC 0 Z S 

UPD8080A C 1 P 1 AC SUB Z S 

Note that if the flag byte is pushed on the stack to be used as a byte 
in any operation such as a compare, that the value will be different 
for the I8080A and the uPD8080A. 

8 . All flags are set the same for I8080A and uPD8080A except as 
noted. 

A. Number of Flags: 

I8080A: Five flags 

Zero, Carry, Sign, Parity and Auxiliary Carry 
uPD8080A: Six flags 

SUB is sixth flag (subtract) 

*We suggest the use of a SUB A to clear the AC and Flags, since the 

common XRA A does not clear the AC flag on the uPD8080A. 
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SUB flag is: 

set by . . . DCR, SUB, SBB, CMP, SUI, SBI 
and CPI 

reset by. INR, ADD, ADC, ADI, ACI and 
DAD 

affected by POP PSW 

B. Affect on Flags: 

Except as noted, the affect on the five common flags (Z, C, S, 

P and AC) are all the same for I8080A and UPD8080A. 

I8080A: AC is affected by INR, DCR and DAA 

AC is reset after logical operations ORA, XRA, 
ANI, ORI and XRI 

AC is not always set correctly to indicate bor¬ 
row from bit 4 after subtraction. (Subtract 
is performed by two’s complement and 
only Carry is complemented to indicate 
correct borrow.) 

UPD8080A: AC is not affected by INR, DCR and DAA 
AC is not affected by logical operations 
AC is always set correctly to indicate borrow 
from bit 4 after subtraction. 

9. Status information for I8080A and uPD8080A is the same except 
as follows: During HALT Acknowledge, D7 (MEMR) I8080A = 1, 
UPD8080A = 0; during Interrupt Acknowledge while HALT, D3 
(HLTA) I8080A = 1, uPA8080A = 0; and during CALL instruction 
following interrupt, DO (INTA) during M2 and M+ for I8080A = 

0 and for UPD8080A = 1. 

10. Pull-Up Resistors on the Data Bus: The uPD8080A does not 
utilize active pull-up resistors on the Data Bus. To make inter¬ 
facing easier on the DATA BUS V||vj |y)| |\j = 3.0 volts for the 
UPD8080A vs. 3.3 volts for the I8080A. With uPD8080A, DATA 
BUS input leakage current is the same as any other input. 

11. The temperature range for the I8080A is 0—70 degrees C. and for 
the uPD8080A is -10 to +70 degrees C. 

12. DC characteristics are the same except as noted: 


I8080A uPD8080A 

V|H 3.3 Min. 3.0 Min. 

Vqh — 3.5 Min. @ Ioh = -L0 ma 

Idd (AV) Typ = 40 Typ = 55 

IDD (AV) Max = 70 Max = 75 

! CC (AV) Typ = 60 Typ = 50 

'CC (AV) Max = 80 Max = 70 

IqI_ -2.0 ma Max. ±10uaMax. 

Ipi_ -100 ua Max. -10 ua Max. <s> V|(\j = 

Vgg + 0.45V 

13. AC characteristics are the same except as noted. See data sheet for 
details: 

I8080A UPD8080A 

l D01 output delay from 

01 low (SYNC.DBIN) - 160ns Max. 

*DS2 data setup time to 

02 during DBIN 150 ns Min. 

l RS01 ready setup time 

to 01 high — 

t|g INT set up time During 02 for 

all modes ex¬ 
cept HALT 
mode 

During 01 in 
HALT mode 

14. All instructions are executed in the same sequence except XTHL. 

The uPD8080A first reads the top of the stack then writes the 
contents of the L register into the top of the stack, next it reads 
the data at the stack pointer +1, and then writes the contents of 
the H register into the stack pointer +1. The I8080A reads the 
stack twice then writes the stack twice. 

15. Data on Data Bus During T4 and T5: 

I8080A: The contents of the internal bus during T4 and T5 

are available at the data bus. 

uPD8080A: Data Bus is in the high impedence state during T4 
and T5 

16. HOLD Operation while DAD: 

I8080A: Same timing as HOLD in Write mode, i.e., HLDA 

appears from 01 of the state following T3, and 
Address/Data Bus goes into floating state from 02 


of the state following T3. 

UPD8080A: Same timing as HOLD in Read mode, i.e., HLDA 
appears from T3-01 and Address/Data Bus goes 
into floating state frqm T3-02. 

NEC RESPONDS 

Dear Mr. Warren: Nov. 2,1976 

We recently received a copy of a letter sent to you by a Mr. 
Tenney, and feel that it is appropriate for us to respond. We 
hope that this will eliminate any concerns your readers may 
have about the use of the NEC y PD8080A. 

All the differences between the Intel I8080A and the NEC 
yPD8080A are clearly stated in our yPD8080A Family data 
sheet and y COM-8 Software Manual. These documents are 
available through any of our distributors, representatives or 
NEC Microcomputers, Inc. These documents clearly enumer¬ 
ate the additional features which lead to the improved per¬ 
formance of the y PD8080A, both in simplified code and 
faster execution. 

However, a user need not utilize these features in his pro¬ 
gram. If the application program is written for the Intel 
8080A, it will run on the NEC part except for a few very 
limited situations. For an example, all NEC PDA-80 and 
Intel MDS-800 programs operate properly using either part, as 
do all system programs in the IMSAI 8080 and the Altair 8800 
to the best of our knowledge. It is obvious from the differ¬ 
ences that one can create sequences of code that do operate 
differently in several of the 8080A’s on the market today, 
but most of these do not represent useful sequences of appli¬ 
cation programs. 

As far as the CLAIMS we make as referred to in Mr. Ten¬ 
ney’s letter, we do claim as explained above that the yPD- 
8080A is “compatible”, Upward Compatible! This is an im¬ 
proved part and we do not believe that our or IMSAI’s cus¬ 
tomers should be limited to the functionability of the 8080A 
when an improve part is available. We are concerned that 
some people do not understand the advantages of the yPD- 
8080A. Therefore, we encourage you to print this letter for 
your readers. 

If there is anything else we can do to help you in this 
matter, please contact me. 

Very truly yours, 

David F. Millet NEC Microcomputers, Inc. 

Technical Staff 5 Militia Dr. 

Microprocessors Lexington, MA 02173 


TSK, TSK . . . OUR HEADLINE WAS ONLY 
OFF BY A FACTOR OF 1000 

Dear Jim, Oct. 12, 1976 

Many thanks for your nice article about our super duper, low 
priced magnetic tape storage products on Page 6 of your September 
issue. Only one thing wrong with it: You're guilty of overbyte in 
the headline. Our maximum capacity is 60 Kilobytes, not Mega¬ 
bytes. The text had it right. [Must have been "a computer error." 
— Ed.l 

Two problems, come to think of it. Your second paragraph says 
that we manufacture only the drive and cartridges. Not true. In 
addition to the drive and cartridges, we also make what we call a 
digital OEM system. Unfortunately, the OEM system sells for $390 
in single quantity, which is a byte much for the non-manufacturer 
to chew. 

Yours very truly, 

Irma R. Johnson Micro Communications Corp. 

Vice President 80 Bacon St. 

Waltham, MA 02154 


240ns Min. 
During 02 for 
all modes 
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Product Review: POLY-88 -- 
AN EXCELLENT SYSTEM 

PLUSNOTES ON SOME S-100 “GOTCHAS” — CATCH 16 HE x 


by Jef Raskin 

Box 511, Brisbane CA 94005 
(415) 467-4674 


In our last “Gotcha” a few manufacturers were taken to 
task, and fewer still were praised for the quality of then- 
products and documentation. This time we take a brief look 
at the familiar Altair and IMSAI chassis, and a long look at 
the very interesting Poly 88. 

I refuse to revive the old Altair vs. IMSAI debate. As 
everybody now knows, the old Altair power supply was 
feeble. My Altair worked fine after I had replaced its supply 
with a custom 40 amp at 8 volt wonder. [In an external box 
that should never land on your foot.] I actually liked the 
Altair case better than IMSAI’s, and am glad to see MITS 
has carried the design over to its new machine. Just two 
screws and the top slides off. If the screws are omitted, the 
case is just as strong to top loading. On the IMSAI there 
are four load bearing screws which I could never get at 
because something was always sitting alongside the computer. 
If the screws are omitted, the top sits rather low. Not good. 

Since I get letters asking: Yes, the heavy duty supply on 
the IMSAI is excellent. I haven’t tested the new MITS supply, 
but it looks good. I don’t think they’ll make the same mistake 
twice. After all, if they’re smart enough to make a computer 

I find a serious flaw in the IMSAI front panel. Those big 
paddle switches that make the IMSAI look sort of like a PDP- 
11 have a small space between their tips. IMS should take 
note, as it prevents errors, and still makes it easy to hit two 
at once on purpose. 

The Poly 88’s almost S-100 bus (hobbyist bus, Altair bus, 

I could care less) has the best switches of all: there aren’t any. 
Polymorphic Systems, in Goleta (rhymes with “Lolita”) 
California makes this very unassuming little box that does a 
lot of things right, which the bigger names (with bigger boxes 
and price tags) are doing wrong. Not that Poly is perfect. My 
corrections to their manuals were extensive and numerous. 

But they listen harder. For example, when I called up IMS 
with a long list of carefully annotated errors in their manuals, 
they put me off, promised to call back, never did, put me off 
when I called again, etc. In the end, my careful documenta¬ 
tion of their manuals did them no good at all, and frustrated 
me. Polymorphic Systems listened, sent me extra manuals so 
that I could send them mine with corrections and the like. 
They’re not dumb; they’ve got a proof reader working for 
free. It is my opinion that manufacturers should hire a proof 
reader before sending manuals out, but the way that is now 
used is cheaper and only has the drawbacks of having a few 
hundred frustrated customers out there. And, they get hun¬ 
dreds of phone calls of the form, “Where does R21 go?” 
(Maybe the phone company is behind the bad manuals.) 

The Poly-88 system — which has replaced my Altair 8800 and 
my IMSAI 8080 — has but two controls on the box. An on- 
off switch with a power-on indicator fight, and a reset button 
with a halt fight. That’s all you get; that’s all you need. It 
surely doesn’t look impressive. Sort of like a toaster in size 
and shape. The Poly is by far the easiest of the S-100 bus 
computers to build. The backplane and power supply are all 
on one well-designed motherboard. The only wires leading to 
it are from the transformer and the front panel button via 
two Molex connectors. It is all very neat with almost no 
point-to-point wiring. Someone was thinking when they 
designed this one. To take the backplane/motherboard out, 
just pull the two connectors and undo six easy screws (which 
go into captive nuts on the board, nothing to get lost inside). 
Have you ever tried to take out an IMSAI backplane? More 
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screws than an X-rated movie, and then there are wires screwed 
onto the board. Dumb. 

For some reason Poly’s tiny little case requires eight screws! 
A bother. The kind of thinking that went into the electronic 
design was absent when the case was created. It is on such 
small shoals that great ships are wrecked. There are more 
bolts than slots. There are 5 slots. Is that enough? Let’s see, 
one for the CPU, one for the video board (it’s a dandy), one 
for a ROM board to hold something comfy, like BASIC, and, 
say, a 16K RAM board. With a Pixie Verter and a keyboard 
you’re ready to go into any American household with a TV, 
plug in and program away. And you’ve a lot left over — 
another 16K? Voila! (or ’Cello! for that matter) we have a 
32K computer with serial port, cassette interface, video 
interface, and software aplenty, power supply and on/off 
switch tucked away in our viola case. I must mention that 
a two-port serial interface is built into the CPU, and the RS- 
232 and cassette interface cards are snug against the connec¬ 
tors in the back of the case. That is a lot of computer in an 
itty-bitty base. 

That isn’t enough? You say you have a pile of old 4K 
boards? I do. Poly has the Idea of the Year (at the rate 
we get new ideas in this business, maybe the idea of the 
month): At one side of the chassis the backplane terminates 
in a male S-100 bus connector. On the other side of the 
chassis is a female connector. Aha. You can buy another 
chassis, put it alongside the one you already have, sort of 
nudge them together and guess what. Nope, you don’t get a 
litter of 4040’s. You push them together and you get... 
a ten-slot chassis. Actually, eleven slots ’cause you can put 
a card into the end and let it stick out instead of yet another 
chassis. This is useful and saves need for an extender board. 
The power supplies are separate and not bussed together. Like 
the IMSAI this machine has a substantial power supply. They 
rate it 6 amps at 5 volts. 1 loaded it down with 9 amps worth 
of boards and a length of nichrome wire and it was still putting 
out 8.2 volts. The point is, as you expand the chassis, you 
expand the power supply as well. Each expansion chassis 
costs $155. Takes two or three hours to build. Polymorphic 
Systems forgot (so typical of manuals) to tell you that R6 
should be omitted on slave chassis. So I tell you. 

Before I find some drawbacks (I am not in the employ of 
Poly) there was an advantage to the multiple chassis that I 
hadn’t suspected when I ordered the miniature monsters. 

When working on a board, sometimes it’s handy to have a 
program sitting around, but it disappears when you turn off 
the power to make a change on the board. But with the 
separate chassis idea, you put the CPU and memory in one 
box, the board under test in another. Just turn off the one 
chassis to remove the board, make the changes, replace and 
turn on the chassis. Program still there, testing continues. 

Not all is peaches and cream ... The diodes supplied 
with three of the four I’ve built—you know, the little ones 
for the plus and minus 16 volt supplies—were small signal 
diodes instead of power rectifiers. The smoke test lived up 
to its name. A quick trip to Radio Shack (it was Sunday) 
got me a handful of diodes of the right rating. 20 for $ 1.98 
or something like that. The first one I tested was bad. But 
there were 21 in the bag! The other 20 were good, so no 
complaint there. But, dear reader, always test. 


The assembly instructions were terrible. There were as many 
many errors as the other brands had [see DDJ, Vol. 1, No. 8]. 
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Lots. They say they’re coming out with a new manual. If 
it’s any good, I’ll probably write it up. Volume II of the 
instructions, however, is on the side of the Angels. This is the 
clearest manual on the 8080 instruction set I have ever seen. 

I leave it on the living room floor for people to pick up and 
read. It’s that good. Someday I may even get a coffee table 
for it. So if you want to learn the 8080, get that manual. 
Maybe some magazine will serialize it (in good serial style: 

“Last month our hero got saved from the evil Dr. Halt when 
an interrupt arrived in the nick of time ...”). 

What is life like without a front panel? Sheer joy, my 
friends, sheer joy. You can deposit, examine, single step, 
everything. You can do it in style, from a keyboard. When 
you single step you see not only the address and the con¬ 
tents (and in hex, not in binary [less than joyful to those 
who prefer octal]) but you also see: the accumulator, the 
flags, the B-C register, the D-E register, H and L, the program 
counter and the stack pointer. 

And you also see the first eight bytes of the stack, the 
location the PC points to, the next seven bytes thereafter, 
and the eight bytes pointed to by each of the B, D and H 
registers. It certainly beats lights; it also beats the hex displays 
found on a few other machines. 

I hate to say this, but the Polymorphic advertisements 
understate the advantages of their machine. Too bad for 
them. It should be clear that the conventional front panel 
is a holdover from an earlier era. It’s too bad that those 
lights and mysterious switches appeal to so many of our 
computer cult. Like those famous tailfins on cars, it im¬ 
presses the neighbors, but doesn’t make the machine run 
better. Of course this goes for all the ROM replacements 
for front panels. Having both a front panel and a ROM 
monitor is fine; you just have to pay for it. 

For just under $600 you get, with the Poly system, 
the bos, power supply, video board, the monitor in ROM, 

512 words of RAM, room for 3K more of ROM, and all the 
sockets you need for the ICs. Of the S-100 bus machines, it 
is the only one where the minimal system has to do real 
programming. (O’ course, you have to add a keyboard and 
a TV monitor — but nobody includes them for the price.) 
Enough free advertising for Poly. I am not so much interested 
in selling computers for them as I am in seeing my computer 
cousins not wasting their time flipping switches and misread¬ 
ing lights. Any system (as I said) with HEX display is better 
for a human being than the same system with a BINARY 
display, and of the S-100 systems available this week, the 
Poly will get more done per your hour than any of the others — 
that’s building hour, programming hour, and even earning 
hour. Other manufacturers, if you’ve got a better system, 
tell me about it. Don’t bother, unless you use the S-100 bus 
(so we can go to others than just you for add-ons). But, do 
tell me if you’ve got something really different like 8K for 
$50. 

A disadvantage of not having the conventional front 
panel (after all this, I do know one disadvantage) is that 
the CROMEMCO Bytemover program won’t work. It 
needs switches. You can get a parallel port and eight switches 
and wire it up for port address FF, but that’s a bother. So I 
called up CROMEMCO (if their documentation had been 
better this would not have been necessary) to find out how 
to write a 2707 EPROM without their program. The method, 
they told me, consists of writing each PROM in its entirety, 
from beginning to end, a number of times. Say a hundred to 
three hundred times. “How many times does the Bytemover 
write each PROM?” I asked. “Thirty-two,” I was told. So I 
wrote a little program that wrote the stuff into all the PROMS 
255 times (you can guess why). It worked. I sold my PROM 
containing the Bytemover program. [Another disadvantage 
of no switch register is that it means the user has no sense 
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switches, often useful in man-machine interacting programs. 

— Editor] 

There are a few devilish “gotchas” in the Poly system. The 
first problem showed up in trying to run MITS BASIC (duly 
purchased from MITS). Since the monitor likes to reside in 
low memory, and so does BASIC, there was a conflict. The 
solution: Poly provides a jumper to cut, and one to add to 
allow you, under program control, to switch back and forth 
between the processor-board memory (3K ROM, 14K RAM) 
and other memory having the same address. In my case the 
program that copied BASIC from PROM resided at location 
E400, so I used the following program to get BASIC up: 

3E 20 D3 04 C3 00 E4 

The seven bytes say: put 20 (hex) into the accumulator, then 
send it to port 4. Sending the 20 to port 4 turns the onboard 
stuff off. The next three bytes of the program jump to E400 
to get the program started. Now, of course, that little program 
is on the PROM. 

The next problem was with the old MITS serial board. 

I’ve always wondered why some serial boards have a crystal- 
stabilized clock of their own since they could just count down 
from the CPU’s clock signal which is on the bus. That’s what 
the old serial board did — it counted down. PROBLEM! The 
clock rate on the Poly system is a few percent slower than 
the MITS and IMSAI clock. So the old MITS serial I/O 
counts down to the wrong baud rate. You have to (as I did) 
rewire all the counter presets. You will have to calculate the 
proper values. Since my computer wasn’t up ’til this was 
fixed, I was glad to have my Model-T vintage HP-35 to do 
the necessary calculations. The newer MITS 88-2SI0 (a 
fine board in my book) does it right and has its own crystal 
(and works like a charm in my Poly, without modification). 

And another, almost unforgivable error on the Poly: it 
is not quite an S-100 system. Sure, everything I tried with 
it worked except for that one board. But when a manufac¬ 
turer came by my place with a prototype of their new 16K 
board and plopped it into the Poly it didn’t work. A few 
“unimportant” outputs and inputs to the CPU were left off 
the bus. More importantly the WAIT signal is not on the 
bus. This let the memory know that the computer was in the 
HALT state, which the memory needs to know. This is not 
the place to go into that (gotta leave something for other 
articles). This particular device did not need the other signals 
but some new board might. The point is this: you are either 
on a standard or not on a standard. There is no in-between. 
Polymorphic Systems’ Poly 88 is not really an S-100 compu¬ 
ter. You have to ask first: does the board you wish to use 
with it require separate disables (address, status, data out)? 

Does it need HLDA, INTE, WAIT? If it does, then the Poly 
won’t do. The disables are on the bus, in non-standard loca¬ 
tions, but they can only be disabled as a group (as required 
by DMA’s). One of the output signals such as WAIT can be 
fed through a spare buffer on the board to the bus. (For your 
information it’s IC 8, an 8T97. Because this is DDJ I’m sure 
the editor will permit the gory details.) Bus lines 22,18, 23, 

26,19, 28 and 27 are not on the bus. To put WAIT on the 
bus, jumper pin 24 on the 8080 to pin 2 of IC 8, and pin 3 of 
IC 8 to bus line 27. I don’t know if I’ve missed something else 
that should have been on the bus. I called Polymorphic Sys¬ 
tems; they tell me that are putting out a list of differences, and 
plan to connect the WAIT as I suggest. It’s the least they can 
do. 

Another problem with the Poly is that when a number of 
chassis are plugged into one another, the cooling, adequate 
with a single system, becomes inadequate. Not only does the 

system look like a toaster,_My friend, Kent Strother, made 

a cardboard enclosure with a super quiet ROTRON fan (as per 
the IMSAI). Now even the regulators run cool. The secret: 
put the fan on top, sucking up, thus forced air aids natural 
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convection. There are slots around the periphery at the bottom 
of the case, and all other openings are sealed, forcing the air to 
pass the boards and transformer. Not enouth attention has 
been given to air flow in the IMSAI or the ALTAIR 8800 which 
both have a lot of stagnant air spots even with the fan going. 
Kent also designed a cardboard case for the keyboard that used 
to he around naked. Call us the Cardboard Computer Com¬ 
pany. It’s cheap, in keeping with our homebrew budget, and 
if done carefully looks surprisingly good. 

Second, a word for the Poly video board, but first, a word 
for the Processor Technology video board. The PT VDM is a 
top-notch piece of equipment. Their check-out procedure as 
you put in the chips is a classic of good manual writing. The 
VDM board I built worked perfectly. The Poly video board 
suffers from drawing current at the hairy edge of what the 
regulator can handle. What I like about it is the relatively 
fine graphics it allows: a 128 by 48 bit resolution. The 
graphics can be mixed with alphanumerics in any arbitrary 
way. It is a good use of that eighth bit that the ASCII code 
doesn’t require. Use of the Motorola MCM6571AL character 
generator gives me upper and lower case Roman characters 
as well as the Greek alphabet and a gaggle of other special 
characters, including the entire official ASCII set, the square 
root symbol, etc. 

I don’t know enough to write articles like this without 
some help from my friends so: thanks to Doug Wyatt, my 
constant colleague on microcomputers, Kent Strother for 
the cardboard craftsmanship, Steve Calebotta for finding 
the problem with the missing WAIT, and out editor Jim 
Warren for the phrase “Hidden Gotchas” that graces these 
articles [who plagerized it from Dave Wyland at Ratheon]. 

If you find any hidden, or just plain hanging out gotchas, 
send them to me. I’ll check them out and include them in 
a future article. You’ll get credit in the mag, and as much 

moola as I get. Zilch. [Ahhh_but such glory and fame 

you get!] _ 

PRAIS^FO^RASKI^^UGGE§?r5S^^^™™ 
FOR DDJ 

Dear Jim, Sept. 25, 1976 

I just read the very informative articles by Jef Raskin 
["A Bit of Wheat Amongst the Chaff"—a critique of problems 
found in a number of kits] in the September issue and think it 
is the greatest aid to the hobbyist planning on purchasing his com¬ 
puter system. I certainly feel that both Dr. Dobb’s and Jef Ras¬ 
kin have done a great service for the hobbyist. Please publish more 
articles like this one. If Jef has inputs on software by all means 
let's hear them. Jef's appraisal was, I believe, very objective. 

In order to make more room for articles of value I would 
like to see you eliminate as much as possible the references to 
new clubs and new stores which I feel are more than adequately 
covered elsewhere, i.e.. Byte, Interface, On Line, etc. If you must 
how about a one-liner like On Line. [These items are used only as 
"filler" items.] 

You might consider using smaller type for all articles in 
order to make room for your backlog of articles to be published. 
[We're willin'. Are there any objections to dropping from 10-point 
type to 8 -point type?] 

It might also be appropriate to eliminate items such as the 
article on Energy Publications which does not seem to be per¬ 
tinent to the subject matter of Dr. Dobb’s. [This also happened 
to be a filler article of the right size. However, we do admit to a 
soft spot in our hearts for the topic of energy problems and 
people-oriented alternative energy sources. Our only excuse for 
its inclusion is that it is a technology-related subject closely 
associated with consumer advocacy.] 

Also, did you really need two pages for the PCC ad? 

IPCC newspaper was Dr. Dobb’s mama. Would you have us 
ignore our ma? Anyway, it's a "product" we think is well worth 
the attention of hobbyists, and as such, we published details 
about it.] 

All in all, I think Dr. Dobb’s is great, but it can be better. 

[We agree.] 

Very truly yours, 11 Linda Rd. 

R. I Demrow Andover, MA 01810 


SWTPC KEYBOARD IMPROVEMENTS 
Dear Jim, 

Here’s a plug for the latest in keyboards from SWTPC. 

For those of us whose only experience with SWTPC key¬ 
boards is with the original ones, the bad memories may make 
one a bit leery about giving them another chance. The new 
KBD-5 has much better contacts than before, and it uses the 
2376 keyboard encoder which makes it a cinch to redefine 
keys. At $50, plus another 10 for a UART+ to make it 
standard serial RS-232, this is the best possible buy I can 
imagine. 

Bob Powell 22 Bunker Hill Run 

E. Brunswick, NJ 09916 


A [WELL DESERVED] RAVE REVIEW FOR 
THE APPLE COMPUTER SYSTEM & FACTORY 
RESPONSIVENESS 

Editor, Journal of Dentistry Oct. 11, 1976 
Dear Jim, 

Last July I found out about the miracles the silicon engineers were 
performing. I was immediately hooked on home computing. But 
since I had very little experience with computers, I was worried about 
all the delays that everyone seemed to complain about when they 
returned equipment for serving or clearing up the inevitable bugs. 

After spending the summer carefully examining the systems avail¬ 
able, I went to the PerCom convention in Atlantic City at the end 
of August. There I saw an Apple computer working. Well, it was 
love at first sight. I bought one from Itty Bitty in Evanston and 
took it home with me to New York. Weil, it took them three weeks 
to send me two cables and two transformers and a keyboard that 
were needed to run it! When they finally arrived (after a prompting 
phone call), my Apple developed a glitch almost immediately (the 
only Apple that the Computer Mart of NY has ever seen with a 
problem!). Fearfully anticipating a two-month delay, I sent it to 
Steve Jobs at Apple Computer Co. He got it back into my hands in 
two weeks working perfectly!! He even explained an elementary 
error in a simple program I had tried! Since it took me over a 
month to even get literature from Sphere (and I wrote them a 
personal latter) or the Digital Group, this must be a record for a 
personal computer company. 

My Apple is terrific. Last night I loaded your 6502 floating 
point routine and can now multiply, etc. Unfortunately all the 
answers are complemented. I've got an 8K system with a cassette 
storage unit, keyboard, (used) TV monitor, and a 4K BASIC (that's 
not quite finished yet but does run) for less than $1 K. Moreover 
Apple promises (and I'm now a believer) to replace my current 
memory chips with the new 4K dynamic chips sometime next spring 
for about $500. The Apple was designed to be pin compatible with 
the new chips and so I’ll have 32K on board. 

Any company that can produce equipment like this and then match 
it with their service is really great. Companies like them and magazines 
like yours make home computing an accessible field for everyone. 

Yours, 

Raymond T. Hoobler 789 West End Ave. 

New York, NY 10025 

[Apple Computing is at 770 Welch Rd., Palo Alto, CA 94304, (415) 
326-42481 


PRAISE FOR SUNSHINE COMPUTER CO. 


Dear Editor, Nov. 24, 1976 

A commendation is in order for Sunshine Computer Company of 
Carson, California. I bought a Sanyo cassette recorder from them 
on Saturday, Nov. 20. They forgot to pack in the AC cord. When I 
discovered the omission Saturday night, I made a note to call them 
Monday about it. Sunday night they called and apologized, and 
said they'd mail it Monday. Received it Tuesday/postmarked Mon¬ 
day, as promised. Total time to resolve my query: minus one day. 
Sincerely, 

Jim Raehl 943 Begonia 

Escondido, CA 92027 
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It’s a BASIC, 

It’s an APL 


Dear Jim, Sept. 12,13,15, & Oct. 2,1976 

Here is my entry in the hobby software field. It’s a tiny 
language called CASUAL. That’s the Chicago Area Small Users 
Algorthmic Language. Here are the design goals used: 

• Must run on any 8080 system with a terminal and 2K 

of RAM starting at 000 000. 

• Complete machine control is possible — inputting from 

and outputing I/O ports, memory READ and 
WRITE (PEEK and POKE), machine language 
CALL. 

• 16 bit everything — fine numbers, expression values. 

• Arrays 

• String I/O 

• One tape works on any system — POKE’S itself for 

most popular I/O boards (like MITS BASIC). 

• Deletion of unwanted features at initialization time. 
Note: The source tape alone is 2Vi inches think (fan fold), 
somewhat greater than 75000 characters at this time. 

I am currently at version .164. Version .09 was 
distributed to local hobbyists three weeks ago. That version 
was 200 bytes longer and had some small bugs. 

While I don’t have the time or the means for mass 
distribution of CASUAL, binary paper tapes and documenta¬ 
tion are available from: 

1. CACHE Software Library, Lloyd Smith, 530 Pierce Ave., 

Dyer, IN 46311 

2. Chicago Computer Store, Lou Van Eperen, 517 Talcott 

Rd., Park Ridge, IL 60068 

3. Itty Bitty Machine Company, 1316 Chicago Ave., Evan¬ 

ston IL 60201 

4. American Microprocessor, Ed Cooper, at the Chicago 

Land Airport, 20 N. Milwaukee Ave., Prairie View, 

IL 60069. 

Converting CASUAL to other CPU’s: 

If you’re using a machine without a hardware stack, I’d 
say start from ground zero. CASUAL makes extensive use of 
the stack and almost no use of memory direct instructions. 

By putting CASUAL’s stack on my VDM, I was able to count 
48 bytes on the stack while LIFE was running. Perhaps an 
8008 with hardware stack mod wouldn’t be too bad, but it 
would take a lot more than 2K. 

Memory Info: If all features are retained at initializa¬ 
tion, 403 bytes are left in a 2K system. If all features are 
deleted, 610 bytes are left (slightly over 14K). The code for 
the interpreter, I/O drivers and all buffers except the 
CASUAL Program buffer takes 1.6IK. If all functions are 
deleted, it takes 1.40K. The first IK can be ROM or protected- 
after initialization. 

The mnemonics for the assembler have been significantly 
modified from the “Intel Standard” mnemonics. 

Loading Time: It takes about 5 minutes to load and 
initialize itself at 10 CPS. Using a Tarbell Cassette Interface 
at maximum baud rate, it should take about 4 seconds. 

Dr. Dobb’s is superb!!! Keep up the fine work! 

Bob Van Valzah (312) 852-0472 (Home) 

1140 Hickory Trl. (312) 971-2010 Ext. 231 (Work) 

Downers Grove, IL 60519 

P.S. I ’m 18 years old and entering my second year working 
for an EE degree. 


Bob Van Valzah 
1140 Hickory Trail 
Downer’s Grove, IL 60519 


• • • 


It’s CASUAL! 


NOTES ON MY ASSEMBLER 


MY OPCODE 

INTEL STANDARD 

LB H 

MOV 

B,H 

SP <> HL 

XTHL 


DE <> HL 

XCHG 


SP <HL 

SPHL 


LXI HL LABL 

LXI 

H,LABL 

JFZ 

JNZ 


JFS 

JP 


JTS 

JM 


JTZ 

JZ 


LCI 010 

MVI 

C,10 

ND E 

ANA 

E 

OR A 

ORA 

A 

STHL 

SHLD 


LDHL 

LHLD 


LAI ”G 

MVI 

A,’G’ 

CAL 

CALL 

XR A 

XRA 

A 

SU E 

SUB 

E 

SB D 

sue 

D 

DSD 

DW 


DSS 

DB 


177 

177Q 


0100 

100 


LBUL=072 

LBUL 

EQU 

NDI 300 

ANI 

300Q 

CP M 

CMP 

M 

* 200 

ORG 

200Q 

ENA 

INR 

A 


NUMBERS 

All numbers without leading zeros are taken as octal, all 
with leading zeroes are taken as decimal. "#" preceding a 
number causes it to be taken as hex. 

REGISTER SYMBOLS 

Eight bit registers are referenced with the letters A, B, C, 
D, H, and L. Register pairs are designated by PSW, BC, DE, 
HL, and SP. 

OPERATORS 

— Subtraction or unary minus 

+ Addition or unary plus 

Swaps the first and second bytes of a 16 bit quantity 
Evaluates to the ASCII equivalent of the character fol¬ 
lowing it, with the eighth bit low 
. Evaluates to the address of the first byte of the instruc¬ 
tion about to be assembled 
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CASUAL 


CASUAL STATEMENTS 


GOOD AND BAD POINTS 

16 BIT LINE NUMBERS, 1 - 65534 
LINE-NUMBERED "BASIC-LIKE" TEXT EDITOR 
CONTROL C (tC) ABORTS EXECUTION AND LISTING 
3 BYTE LINE OVERHEAD 
IMMEDIATE EXECUTION MODE 

MULTIPLE STATEMENTS PER LINE WITH COLON < " , " > 

PRINTS LITERAL STRINGS, EXPRESSIONS, OR CHRt FUNCTION 
CRLF SUPPRESSION AVAILABLE 

ONE LEVEL OF SUBROUTINE NESTING BUILT IN, EASILY EXPANDED 

PEEK / POKE FUNCTIONS FOR READING OR MODIFYING MEMORY 

INF / OUT FUNCTIONS FOR I/O PORT CONTROL 

SINGLE AND DOUBLE BYTE ARRAYS - SINGLE DIMENSIONAL 

SELECTABLE ARRAY BASE ADDRESSES FOP MULTIPLE ARRAYS 

SIMPLE VARIABLES A - Z, 26 OF THEM 

USER DEFINABLE FUNCTION, LIKE DEF FNA(X) 

RUB-OUT TAKES BACK LAST CHARACTER TYPED 
CONTROL U <*U> ABORTS LINE BEING TYPED 
72-CHARACTER LINE INPUT BUFFER 

FOUR (4) RELATIONAL OPERATORS, •. =. . « (NOT EQUAL) 

NO OVERFLOW CHECKING ON MATH FUNCTIONS 

15-BIT SIGNED ADD. SUBTRACT, MULTIPLY, AND DIVIDE 

STANDARD EXPRESSION HIERARCHY, RELOPS THEN *, / THEN +, - 

PARENTHESIS TO ALTER HIERARCHY, NO LIMIT OH NUMBER 

SPACES MAY BE INSERTED FREELY TO IMPROVE CLARITY 

OPERATOR TO PROVIDE REMAINDER AFTEP LAST DIVISION 

OPERATOR TO PROVIDE RESULT OF LAST EXPRESSION 

MACHINE-LANGUAGE CALL FUNCTION 

SINGLE-CHARACTER KEYBOARD INPUT FUNCTION 

RUN, AND RUN LINE NUMBER COMMANDS 

LIST, AND LIST LINE NUMBER COMMANDS 

NEW COMMAND CLEARS PROGRAM STORAGE AREA 

NOTHING CLEARS VARIABLE VALUES, NOTHING !! 

JUMP TO OPERATING SYSTEM PROVIDED 
INITIALIZATION DIALOGUE A LA MITS 

COMPLETE WITH BOOTSTRAP AND BINARY LOADERS (AUTO TRANSFER) 
oOOD ERROR MESSAGES 

RUNS IN 2K COMPLETE, > 400 BYTES LEFT IN A 2K SYSTEM 
CASUAL IS SLOW 

CASUAL DOCUMENTATION 


CASUAL IS AN INTERPRETER WRITTEN IN 3030 ASSEMBLER 
CASUAL IS ALSO THE NAME OF THE SYNTAX WHICH IS ACCEPTED BY 
THE INTERPRETER 

ONCE CASUAL HAS BEEN LOADED AND THE INITIALIZATION 
DIALOGUE COMPLETED, IT WILL TYPE OUT "CASUAL V XX", 

WHERE XX IS THE VERSION NUMBER THEN CASUAL WILL ENTER THE 
COMMAND INPUT MODE THIS IS INDICATED BY THE PRINTING OF A 
PERIOD (".") AS A PROMPT CHARACTER. CASUAL IS NOW 
READY TO ACCEPT A LINE OF INPUT FROM THE USER THE USER MAY 
BACKSPACE OVER TYPING ERRORS WITH THE RUB-OUT KEY 
HE MAY ELECT TO START THE LINE OVER BY STRIKING THE CONTROL 
U (+U) KEY WHEN THE USER IS DONE WITH A LINE, HE STRIKES 
THE CARRIAGE RETURN KEY, TELLING CASUAL TO PROCESS THE LINE 
JUST TYPED. DUPING LINE INPUT, ALL OTHER CONTROL 
CHARACTERS WILL BE IGNORED, EXCEPT CONTROL G (+G) (BELL). 

CASUAL HAS THE ABILITY TO EXECUTE COMMANDS IMMEDIATELY 
AFTER THEY ARE TYPED, OR TO STORE THEM AWAY FOR LATER 
EXECUTION AS A PROGRAM CASUAL WILL SCAN THE INPUT LINE 
FOR THE FIRST NON-BLANK CHARACTER IF THIS CHARACTER IS A 
NUMBER. CASUAL WILL SAVE THIS LINE IN THE CASUAL PROGRAM BUFFER 
IF IT IS NON-NUMERIC, CASUAL WILL ACCEPT THE LINE AS AH 
IMMEDIATE-MODE COMMAND, AND ATTEMPT TO EXECUTE IT 

EDITING 


IF LINES ARE INPUT TO CASUAL STARTING WITH NUMBERS, 
THEY WILL BE EDITED INTO THE CURRENT PROGRAM IN THE 
PROGRAM BUFFER LINES ARE ALWAYS STORED BY LINE NUMBER 
IN ASCENDING ORDER. THE INPUT: 

30 .=65535 
10 7/1NG/ 

20 7/TEST/; 

WILL BE SAVED AS, 

10 7/ING/ 

20 7/TEST/; 

30 =65535 

CORRECTIONS CAN BE MADE AFTER A LINE HAS BEEN 
ENTERED BY RETYPING THE CORRECTED LINE WITH THE SAME 
NUMBER AS THE BAD ONE THE NEW LINE WILL REPLACE THE 
OLD ONE OF THE SAME NUMBER. NEW LINES MAY BE INSERTED 
BETWEEN OTHER LINES, AT THE BEGINNING, OR END OF THE PROGRAM 
BUFFER THE USER SIMPLY GIVES THE HEW LINE A NUMBER 
BETWEEN THE NUMBERS OF THE LINES ABOVE AND BELOW IT. 

LINE NUMBERS MAY BE IN THE RANGE 1 TO 65534 INCLUSIVE 

THE USER MAY LOOK AT ALL OR PART OF THE PROGRAM 
CURRENTLY STORED IN THE CASUAL PROGRAM BUFFER BY USING THE 
LIST COMMAND. WHILE IN THE COMMAND MODE, TYPING "L" (CR) 
WILL START LISTING WITH THE LOWEST-NUMBERED LINE, AND 
STOP AT THE END OF THE BUFFER OR WHEN CONTROL C (+C) 

IS TYPED. TYPING "LXXXXX" WILL START LISTING AT LINE 
XXXXX. 


THE FOLLOWING SECTION WILL COVER ALL THE STATEMENTS 
WHICH ARE LEGAL IN CASUAL. AS EACH STATEMENT IS PRESENTED, 
EXAMPLES VIILL BE GIVEN OF ITS USE IF POSSIBLE, I RECOMMEND 
TRYING THESE EXAMPLES AS THEY ARE ENCOUNTERED 

CASUAL HAS BASICALLY ONLY THREE (3> TYPES OF STATE¬ 
MENTS, PRINT, ASSIGNMENT, AND STRING INPUT THIS IS ONE OF 
THE REASONS FOR ITS INHERENT SIMPLICITY VARIATIONS OF THESE 
THREE STATEMENT TYPES PROVIDE A WIDE RANGE OF FUNCTIONS 

THE PRINT STATEMENT 


THE FUNCTION OF THE PRINT STATEMENT IS TO SEND DATA 
TO THE USER'S TERMINAL. SINCE THE WORD "PRINT" IS MORE 
DIFFICULT TO RECOGNIZE THAN A SINGLE CHARACTER, A 
QUESTION MARK ("7") IS USED TO SPECIFY THE PRINT FUNCTION 
TRY THIS 

710-4 ( CR ) 

CASUAL WILL IMMEDIATELY PRINT 

6 


AS YOU CAN SEE, CASUAL RECOGNIZED THE "7" AS BEING 
A PRINT STATEMENT, EVALUATED THE FORMULA FOLLOWING 
IT. AND TYPED OUT ITS VALUE (IN THIS CASE 6) 

OF COURSE, CASUAL CAN DO MORE THAN SUBTRACT 
TRY THIS, 

710+4;10+4;10/4 ("+" MEANS MULTIPLY, "/" MEANS DIVIDE) 

CASUAL WILL TYPE. 

14 40 2 


NOTE THAT A SEMICOLON ("; ") IS USED TO 
SEPARATE THE FORMULAS. 

NOTE TOO, THAT IN THE EXAMPLES, A SPACE IS PRINTED 
BEFORE AND AFTER EACH NUMBER IF IT HAD BEEN A NEGATIVE 
NUMBER, THE LEADING SPACE WOULD BE A MINUS SIGN <"-") 

LITERAL STRINGS MAY BE PRINTED BY ENCLOSING THEM 
IN SLASHES. TRY THIS: 

7/THIS IS A CASUAL LITERAL STRING/ 

CASUAL WILL TYPE: 

THIS IS A CASUAL LITERAL STRING 


A COMMA (",") IN A PRINT STATEMENT CAUSES A SINGLE 
BYTE TAB CHARACTER TO BE SENT <011 OCTAL). A COMMA OR 
SEMICOLON ON THE END OF A STATEMENT WILL SUPPRESS THE CRLF 
AT THE END OF STATEMENT. SEE APPENDIX G FOR MORE INFORMATION. 
THE ASSIGNMENT STATEMENT 


NOTE, THIS SECTION IS DIVIDED INTO TWO PARTS: THE 
MEANING OF CHARACTERS WHEN THEY APPEAR ON THE LEFT OF 
AN ASSIGNMENT, AND THE MEANING ON THE RIGHT THEY DON'T 
ALWAYS MEAN THE SAME THING 

LEFT SIDE 


CHR. MEANING 


THE NUMBER OF THE NEXT LINE TO BE EXECUTED. =350 
CAUSES CASUAL TO EXECUTE LINE 350 AND CONTINUE FROM 
THERE =0 CAUSES CASUAL TO EXECUTE THE LINE 
AFTER THE CURRENT LINE. .=-1 CAUSES CASUAL 
TO STOP EXECUTION AND RETURN TO THE COMMAND MODE. 

CONDITIONAL BRANCHING IS DONE LIKE THIS, 

=940+(X<10) 

THE EXPRESSION ON THE RIGHT EVALUATES TO 940 IF THE 
CONDITION IS TRUE <X IS LESS THAN TEN). IF IT IS 
FALSE (X IS GREATER THAN OR EQUAL TO TEN), IT 
EVALUATES TO ZERO, AND THE NEXT LINE IS EXECUTED 

HAS THE SAME EFFECT AS "." (PERIOD) IN ADDITION, 
BEFORE CONTROL IS TRANSFERRED, THE NUMBER OF THE LINE 
FOLLOWING THE CURRENT LINE I 5 SAVED BY CASUAL. THE 
MOST RECENTLY SAVED VALUE IS RECALLED WHEN " $ " 

IS FOUND ON THE RIGHT SIDE OF AN ASSIGNMENT 

THIS IS USED TO BRANCH TO SUBROUTINES 
THIS CODE, 

40 X=5,?X;:$=100 
50 7:7X+2;=*=100 
60 ?/ PLUS TWO/ 

70 =-l 

100 7/IS YOUR NUMBER/; 

110 =$ 

WILL PRINT: 

5 IS YOUR NUMBER 


Page 20 


Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box E, Menlo Park, CA 94025 


Nov./Dec., 1976 


317 











7 IS YOUR NUMBER PLUS TWO 


EXPRESSION. BRACKETS ARE MANDATORY ON THE LEFT SIDE. 


IN LINE 40, X IS ASSIGNED THE VALUE 5, THEN 
THE VALUE OF X IS PRINTED. "*=100" CAUSES CASUAL TO 
BRANCH TO LINE 100 AND SAVE THE NEXT LINE NUMBER 
TO BE EXECUTED <50>. WHEN THE SUBROUTINE IS 
FINISHED, IT RETURNS BY ".=*". IN THIS CASE "*" HAS 
A VALUE OF 50 SO LINE 50 IS EXECUTED. HERE, ANOTHER 
VALUE IS PRINTED, AND "*=100" CAUSES CASUAL TO 
SAVE THE NUMBER OF THE NEXT LINE <70>. THIS TIME 
WHEN LINE 110 IS EXECUTED, "*" WILL BE EQUAL 
TO 70 AND CASUAL MILL CONTINUE EXECUTION AT LINE 
70 NOTE THAT A ROUTINE CALLED IN THIS MANNER ALWAYS 
RETURNS TO THE LINE FOLLOWING THE LINE CONTAINING 
THE CALL TO IT. 

♦ SETS THE MEMORY ADDRESS WHERE "PEEKING" AND "POKING" 

IS TO BE DONE. THE ADDRESS WILL REMAIN SET UNTIL 
ANOTHER "!" IS FOUND ON THE LEFT SIDE OF AN 
ASSIGNMENT STATEMENT WHEN LOADED, CASUAL 

SETS "!= 0", THEREFORE YOU MUST SET THIS ADDRESS 
BEFORE POKING, OR YOU MAY POKE CASUAL TO DEATH. 

SEE "4" AND BELOW 

4 IS USED TO STORE THE VALUE ON THE RIGHT OF 

THE ASSIGNMENT STATEMENT IN THE LAST MEMORY ADDRESS 
GIVEN WITH "!" THE VALUE WILL BE TRUNCATED TO 8 
BITS BEFORE IT IS STORED. THIS FUNCTION IS 
SOMETIMES CALLED "POKING". 

' IS USED TO SET THE BASE ADDRESS FOR THE SINGLE 

BYTE ARRAY THE BASE ADDRESS WILL BE SET TO THE 
VALUE ON THE RIGHT OF THE ASSIGNMENT STATEMENT. 

NO VALUE SHOULD BE ASSIGNED WHICH IS LESS THAN 
THE NUMBER TYPED IN RESPONSE TO "MEM SIZ?" 

" PERFORMS THE SAME FUNCTION AS "'", EXCEPT THAT 

IT SETS THE DOUBLE-BYTE ARRAY BASE ADDRESS. 

♦ DEFINES THE USER-DEFINABLE FUNCTION. IT IS EXECUTABLE, 
THEREFORE, MORE THAN ONE FUNCTION CAN BE USED 

IN THE SAME PROGRAM, BUT NOT AT THE SAME TIME 
THE VALUE ON THE RIGHT BECOMES THE NEW USER-DEFINABLE 
FUNCTION AT THE TIME IT IS DEFINED, IT IS 
EVALUATED. 

♦ SENDS THE VALUE ON THE RIGHT SIDE OF THE ASSIGNMENT 
STATEMENT TO THE OUTPUT PORT GIVEN BY THE LAST 
"0=" ASSIGNMENT SEE "0" BELOW 

0 SETS A NEW OUTPUT PORT NUMBER THE VALUE ON THE 

RIGHT IS SAVED FOR USE WITH "«■" AND "4" 

A - Z SETS THE VARIABLE A THRU Z TO THE VALUE ON THE 
RIGHT SIDE OF THE ASSIGNMENT STATEMENT 
THE OLD VARIABLE VALUE IS LOST. 

' C X 3 SETS THE X'TH ELEMENT OF THE SINGLE-BYTE ARRAY TO 

THE VALUE ON THE RIGHT OF THE ASSIGNMENT STATEMENT. 

“t X ] SETS THE X'TH ELEMENT OF THE DOUBLE-BYTE ARRAY TO 
THE VALUE ON THE RIGHT OF THE ASSIGNMENT STATEMENT. 

THE RIGHT SIDE 


CHR. MEANING 


HOLDS THE VALUE OF THE LINE CURRENTLY BEING 
EXECUTED IF IT APPEARS IN LINE 130, IT HAS THE 
VALUE 130 IF IT APPEARS IN A DIRECT STATEMENT, 

IT HAS THE VALUE -1. 

? CAUSES PROGRAM EXECUTION TO STOP FOR USER INPUT 

A QUESTION MARK AND SPACE ARE PRINTED ON THE 
TERMINAL AS A PROMPT THE USER INPUTS A LINE 
WITH A SINGLE EXPRESSION ON IT THE VALUE 
OF THIS EXPRESSION IS GIVEN TO THE LEFT SIDE OF 
THE ASSIGNMENT "X=?" CAUSES CASUAL TO STOP 
AND ACCEPT INPUT, WHICH IS THEN ASSIGNED TO THE 
VARIABLE X. DO NOT TYPE A QUESTION MARK IN RESPONSE 
TO THE INPUT PROMPT!! IF THE USER TYPES h RETURN 
INSTEAD OF AN EXPRESSION, CASUAL RETURNS TO 
COMMAND LEVEL 

* SEE DISCUSSION FOR LEFT SIDE. 

* REMAINDER AFTER LAST DIVISION IF 20/6- THE LAST 

DIVISION PERFORMED, */. WOULD BE EQUAL TO „ 

! PEEK FUNCTION TAKES ON THE VALUE OF THE CONTENTS 

OF THE MEMORY LOCATION ADDRESSED BY THE LAST ASSIGNMENT 
TO "!". SEE "!" FOR LEFT SIDE. RETURNS A VALUE 
0 TO 255. 

& INP FUNCTION TAKES ON THE VALUE OF THE DATA AT THE 

INPUT PORT WHOSE NUMBER WAS LAST SET WITH "<?=" SEE 
"0" FOR LEFT SIDE RETURNS A VALUE 0 TO 255. 

' C X 3 RETURNS THE VALUE OF THE X'TH ELEMENT OF THE SINGLE 
BYTE ARRAY. X MAY BE AN EXPRESSION THE BRACKETS 
ARE OPTIONAL IF AND ONLY IF THEY ARE NOT NEEDED TO 
SEPARATE THE SUBSCRIPT FROM THE REST OF THE 


"CX3 SAME AS 'C X 3 EXCEPT THIS IS THE DOUBLE BYTE ARRAY. 

♦ TAKES ON THE VALUE OF THE LAST EXPRESSION EVALUATED. 

THIS INCLUDES EXPRESSIONS IN SUBSCRIPTS AND IN PAREN¬ 
THESIS. < 2 + 3)* + IS EQUAL TO 25. 

0 THE USER FUNCTION. TAKES ON THE VALUE PASSED TO IT 

BY THE MACHINE-LANGUAGE SUBROUTINE IN DE REGISTER. 
INITIALLY, IT IS SET UP TO RETURN THE NUMERIC VALUE 
OF THE CHARACTER FOLLOWING THE "0". 

SEE APPENDIX F. 

\ SINGLE CHARACTER INPUT FROM THE KEYBOARD. EXECUTION 

WILL STOP UNTIL A CHARACTER IS INPUT. NO PROMPT IS 
PRINTED. RETURNS A VALUE 0 TO 127. PARITY MASKED 

A - Z TAKES ON THE VALUE OF THE VARIABLE A THRU Z. 

0-9 DIGITS OF NUMBERS INTERPRETED TO BE DECIMAL. 
EXPRESSIONS 


EXPRESSIONS ARE MATHEMATICAL FORMUALS WHICH EVALUATE 
TO 15-BIT SIGNED INTEGERS. THEY ARE USUALY FOUND ON THE 
RIGHT SIDE OF AN ASSIGNMENT STATEMENT, AND SEVERAL OTHER 
PLACES EXPRESSIONS CONSIST OF OPERANDS WHICH GET 
OPERATED UPON, AND OF OPERATORS WHICH SPECIFY THE 
OPERATION TO BE DONE ALL THE LEGAL OPERANDS HAVE JUST 
BEEN GIVEN IN THE SECTION COVERING THE RIGHT SIDE OF AN 
ASSIGNMENT STATEMENT. 

EXPRESSIONS ARE EVALUATED USING THE STANDARD 
MATHEMATICAL HIERARCHY. THE ORDER OF EVALUATION MAY BE ALTERED 
BY USING PARENTHESIS. THIS IS A LISTING OF LEGAL 
OPERATORS AND THE HIERARCHY: 

EVALUATED FIRST < 3 

<, >, =, « 

*, / 

EVALUATED LAST +, - 

THE FOUR RELATIONAL OPERATORS EVALUATE TO 
EITHER A ONE <1> IF THE CONDITION IS TRUE, OR A ZERO C0> IF 
THE CONDITION IS FALSE. NOTE: "#" IS NOT EQUAL TO. 

THE "*" AND OPERATORS EVLUATE TO THE PRODUCT 

AND QUOTIENT OF THEIR OPERANDS RESPECTIVLY. 

THE "+" AND "-" OPERATORS EVALUATE TO THE SUM AND 
DIFFERENCE OF THEIR OPERANDS RESPECTIVLY. 

THE "+" AND "-" OPERATORS ARE ALSO USED TO 
INDICATE UNARY PLUS AND MINUS RESPECTIVLY. THE FUNCTION 
IS DETERMINED BY CONTEXT 

WHEN EXPRESSIONS APPEAR IN PRINT STATEMENTS, CARE 
MUST BE TAKEN TO ENSURE THE MEANING OF THE AND 

OPERATORS ARE NOT MISINTERPRETED. BOTH OF THESE CHARACTERS 
DO A DOUBLE DUTY AND ARE EAI SLY MISUNDERSTOOD BY CASUAL. 

FOR INSTANCE, "? A /MILES PER GALLON/" WILL PRODUCE 
ALL SORTS OF GARBAGE BECAUSE THE SLASH </> IS TAKEN TO MEAN 
DIVISION AND NOT THE START OF A LITERAL STRING LIKE THE USER 
WANTED HERE IS THF FIX: "? A;/MILES PER GALLON/" HERE 

IT IS CLEAR THAT THE VALUE OF A IS TO BE PRINTED, 

FOLLOWED BY A LITERAL STRING. 

ARRAY REFERENCES ARE NOT LEGAL ELEMENTS OF AN 
EXPRESSION WHICH IS ITSELF THE SUBSCRIPT OF AN ARRAY. 

APPENDIX A 

LOADING PROCEDURE 

THE PURPOSE OF A BOOTSTRAP LOADER IS TO READ 
A LARGER BINARY LOADER INTO MEMORY WHICH IN TURN LOADS 
CASUAL THE BOOTSTRAP PROGRAM MAY 

BE LOADED FROM THE FRONT PANEL SWITCHES OR BY USING THE 
SYSTEM MONITOR ROM. IT IS 21 BYTES LONG AND GOES 
IN VERY QUICKLY THE BOOTSTRAP LOADER IS SO NAMED 
BECAUSE IT IS FREQUENTLY USED TO BRING THE SYSTEM 
UP AFTER A POWER-OFF CONDITION. THUS, IT IS PULLING THE 
SYSTEM UP BY ITS BOOTSTRAP. 

THE BOOTSTRAP PRESENTED HERE IS IN A NO-CHECKSUM 
FORMAT, BUT IT DOES ALLOW LEADER. IT SHOULD WORK EQUALLY 
WELL FOR PAPER TAPE OR CASETTE INPUT. THIS BOOTSTRAP 
WILL LOAD A BINARY LOADER AND THEN TRANSFER CONTROL TO 
THE BINARY LOADER AUTOMATICALLY THE BINARY LOADER LOADS 
A CHECKSUMMED-FORMAT TAPE AND ALSO TRANSFERS AUTOMATICALLY 
WHEN DONE LOADING THERE ARE TWO POSSIBLE ERRORS 
WITH THE BINARY LOADER: CHECKSUM ERROR AND MEMORY 
ERROR THE FIRST OCCURS WHEN THE CHECKSUM READ FROM THE 
TAPE DOES NOT MATCH THAT CALCULATED DURING LOADING 
BECAUSE A BYTE WAS READ FROM TAPE INCORRECTLY. 

A MEMORY ERROR OCCURS WHEN DATA READ FROM TAPE IS 
LOADED INTO MEMORY AND CAN'T BE READ BACK. THIS CAN 
BE CAUSED BY BAD MEMORY, PROTECTED MEMORY OR NON-EXISTENT 
MEMORY WHEN EITHER ERROR OCCURS, THE LOADER STOPS 
READING TAPE AND ENTERS AN INFINITE LOOP. AN ASCII 
CHARACTER IS PUT OUT ON PORTS 1, 10, 21, AND 23 (OCTAL). 

AN "M" FOR MEMORY ERROR, A "C" FOR CHECKSUM ERROR 
THIS CHARACTER IS ALSO STORED IN THE HIGHEST LOCATION 
OF THE PAGE WHERE THE BINARY LOADER RESIDES ( 007 377). 

AFTER A MEMORY ERROR, THE HL REGISTER WILL CONTAIN THE 
ADDRESS OF THE BAD MEMORY LOCATION. 

TO READ IN A TAPE: 
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1 LOAD THE BOOTSTRAP FOR YOUR I/O CONFIGURATION. LANGUAGE SUBROUTINES OR TO SET ASIDE MEMORY FOR CASUAL ARRAY 

CHECK THE TABLE TO FIND UHICH ONE TO USE. STORAGE 

2 VERIFY THAT THE BOOTSTRAP IS IN MEMORY CORRECTLY. 

3 EXAMINE 00Q 000 AND THE SET THE SENSE SWITCHES THERE ARE 4096 BYTES IN A 4K SYSTEM, 8192 IN AN 8K 

FOR THE TYPE OF I/O BOARD YOU ARE USING LOAD THE SYSTEM, 2048 IN A 2K SYSTEM 

CUSTOM I/O TABLE AT THIS TIME IF NECESSARY. 

4 PLACE THE TAPE IN THE READER IF YOU ARE USING THE ADDRESS GIVEN IN RESPONSE TO "MEM SIZ?" 

PAPER TAPE, MAKE SURE THE BOOTSTRAP LEADER IS IN MUST BE RAM, OR ELSE CASUAL WILL REPEAT THE QUESTION. THERE IS 

THE READER THIS IS THE FIRST SECTION OF TAPE ALSO A CERTAIN MINIMUM AMOUNT OF MEMORY CASUAL MUST HAVE TO 

UITH THREE OF THE EIGHT DATA HOLES PUNCHED. OPERATE. IF THE RESPONSE IS LESS THAN THIS MINIMUM, 

IF YOU ARE USING CASETTE, LOAD AND REWIND THE CASUAL WILL REPEAT THE MEMORY SIZE QUESTION. IN VERSION .16, 

TAPE AND START IT PLAYING. WAIT 15 SECONDS, THIS MINIMUM IS ABOUT 1700. 

AND PROCEED TO STEP 5. 

5 START THE BOOTSTRAP AT LOCATION 000 000 (SPLIT CASUAL WILL NOW ENTER A DIALOG WHICH ALLOWS 

OCTAL). NOTE: LOADERS G AND H START AT ADDRESSES YOU TO DELETE SOME COMMANDS AND FEATURES. IF FEATURES 

OTHER THAN ZERO, CHECK THE TABLE. ARE DELETED, THIS WILL LEAVE MORE FOR YOUR PROGRAM. 

5 WHEN THE BINARY LOADER HAS BEEN READ IN, THE HOWEVER, ATTEMPTING TO ACCES THESE FEATURES WILL GIVE 

ADDRESS LIGHTS WILL CHANGE AND THE TAPE AN ERROR, USUALLY THE SYNTAX ERROR. THE ONLY TO RESTORE 

SHOULD KEEP READING. A FEATURE WHICH HAS BEEN DELETED IS TO RELOAD CASUAL. 


ONCE THE BINARY LOADER HAS BEEN READ IN, THE ADDRESS 
LIGHTS WILL DISPLAY 007 277 WHILE NORMAL LOADING IS GOING 
ON IF AN ERROR OCCURS, 007 237 WILL BE DISPLAYED. IF THE 
TRANSFER ADDRESS WAS NOT READ PROPERLY, 007 257 WILL BE 
DISPALYED IF EITHER OF THE LAST TWO CONDITIONS OCCUR, 

GO BACK TO STEP 1 AND RELOAD 


THIS IS THE DIALOG UHICH WILL OCCUR: 

WANT SAVE/TAPE? ANSWER M Y" TO RETAIN SAVE AND 

TAPE COMMANDS IF YOU ANSWER 
■N", ASKS NEXT QUESTION. 


LOC. 

A 

B 

c 

D 

E 

F 

G 

H 

000 

041 

041 

041 

041 

041 

041 

041 

041 

001 

302 

302 

302 

302 

302 

302 

302 

302 

002 

007 

007 

007 

007 

007 

007 

007 

007 

003 

061 

061 

061 

061 

061 

061 

061 

061 

004 

023 

023 

023 

023 

023 

023 

023 

023 

005 

000 

000 

000 

000 

000 

000 

000 

000 

006 

333 

333 

333 

333 

333 

333 

333 

333 

007 

001 

005 

000 

000 

006 

000 

020 

020 

010 

346 

346 

346 

346 

346 

346 

346 

346 

011 

001 

001 

001 

040 

001 

040 

001 

100 

012 

310 

310 

300 

310 

300 

310 

310 

310 

013 

333 

333 

333 

333 

333 

333 

333 

333 

014 

000 

004 

001 

001 

007 

001 

021 

021 

015 

275 

275 

275 

275 

275 

275 

275 

275 

016 

310 

310 

310 

310 

310 

310 

310 

310 

017 

055 

055 

055 

055 

055 

055 

055 

055 

020 

167 

167 

167 

167 

167 

167 

167 

167 

021 

300 

300 

300 

300 

300 

300 

300 

300 

022 

351 

351 

351 

351 

351 

351 

351 

351 

023 

003 

003 

003 

003 

003 

003 

003 

003 

024 

000 

000 

000 

000 

000 

000 

000 

000 

025 







076 

257 

026 

NOTE 

LOADERS A 

- F 

START 

003 

323 

027 

A 

T 000 

000 

LOADERS 

G & H 

323 

020 

030 

START 

AT 000 025 



020 

000 

031 







076 

323 

032 







021 

021 

033 







323 

076 

034 







020 

004 

035 







307 

323 

036 








020 

037 








307 


WANT STR I/O? 


ANSWER "Y" TO RETAIN STRING 
INPUT AND OUTPUT. IF YOU 
ANSWER "N", ASKS NEXT QUESTION. 


WANT ARRAYS? 


ANSWER M Y" TO RETAIN SINGLE 
AND DOUBLE BYTE ARRAYS IF YOU 
ANSWER M N", BOTH ARRAYS 
ARE DELETED 


ONCE THIS DIALOGUE IS COMPLETE, CASUAL TYPES OUT, 


XXXXX BYTES FREE 
CASUAL V. YY 


XXXXX IS THE NUMBER OF BYTES 
AVAILABLE FOR PROGRAM 
STORAGE AND STACK SPACE 
YY IS THE CURRENT VERSION 
NUMBER. 


DELETING SAVE AND TAPE COMMANDS WILL FREE UP AN 
ADDITIONAL 106 BYTES, STRING I/O ANOTHER 34, AND 
DELETEING ARRAYS GIVES ANOTHER 62 BYTES. 

APPENDIX C 


ERROR MESSAGES 

WHEN AN ERROR OCCURS, CASUAL RETURNS TO COMMAND LEVEL 
AND TYPES THE PROMPT PERIOD VARIABLE VALUES AND 

THE CASUAL PROGRAM REMAIN INTACT. AFTER THE ERROR HAS BEEN 
CORRECTED, EXECUTION MAY BE CONTINUED WITH NO LOSS OF CONTEXT. 


WHEN AN ERROR OCCURS IN A DIRECT STATEMENT, NO LINE 
NUMBER IS PRINTED 


FORMAT OF ERROR MESSAGES, 


DIRECT STATEMENT 


ERROR XXX LL?LL 


BOOTSTRAP I/O FORMAT 


INDIRECT STATEMENT 


ERROR XXX IN YYYYY LL?LL 


A CONTROL LOGIC LOU SPEED READER 

B CONTROL LOGIC HIGH SPEED READER 

C. MITS S10 A, B, C BUT HOT REV. 0 

D MITS REV. 0 UITH UPDATE, USE C WITHOUT UPDATE 

E MITS ACR (AUDIO CASSETTE) 

F MITS SS-PIO VER. 32 AND LATER 

G. MITS 2SI0 VER. 3.2 AND LATER 

H MITS 4PI0 


IN BOTH CASES, "XXX H IS THE ERROR NUMBER. "LL?LL" IS 

THE STATEMENT IN UHICH THE ERROR OCCURRED A QUESTION 
NARK IS INSERTED AT THE POINT OF THE ERROR SOMETIMES. THE 
"YYYYY" WILL BE THE LINE NUMBER WHERE THE ERROR OCCURRED 
FOR THE INDIRECT STATEMENT. 

THE FOLLOWING ARE THE KNOWN ERROR NUMBERS AND THEIR 
MEANINGS, 


NOTE THE BINARY LOADER POKES ITSELF TO USE THE SAME 
DEVICE AS THE BOOTSTRAP; THEREFORE, YOU MUST USE A BOOT¬ 
STRAP OF THIS FORM, OR REWRITE THE BINARY LOADER. 

TO MAKE YOUR OWN BOOTSTRAP, PUT YOUR STATUS PORT 
NUMBER INTO LOC 007 PUT A MASK UHICH WILL LEAVE THE READER 
READY BIT INTO LOC 011 IF READY IS ACTIVE HI, PUT 310 INTO 
LOC 012 IF READY IS ACTIVE LO, PUT 300 INTO LOC. 012 
PUT THE INPUT DATA PORT NUMBER INTO LOC 014. LEAVE ALL OTHER 
LOCATIONS THE SAME AS LOADER A 

APPENDIX B 

INITIALIZATION DIALOGUE 

AFTER CASUAL HAS BEEN LOADED (PER INSTRUCTIONS IN 
APPENDIX A) AND ANY I/O PATCHES HAVE BEEN MADE, IT WILL ASK, 

MEM SIZ? 

IF YOU TYPE A CARRIAGE RETURN, CASUAL WILL USE ALL THE 
CONTIGUOUS MEMORY UPWARDS FROM ZERO THAT IT CAN FIND 
CASUAL WILL STOP SEARCHING WHEN IT FINDS ONE BYTE OF ROM OR 
NON-EXISTENT MEMORY, IE MEMORY WHICH WILL NOT ACCEPT AND SUC¬ 
CESSFULLY READ BACK A TEST BYTE THIS IS A NON-DESTRUCTIVE 
TEST SO I/O PATCHES AND SUCH WON'T BE DESTROYED 

IF YOU WISH TO ALLOCATE ONLY PART OF YOUR COMPUTER'S 
MEMORY TO CASUAL, TYPE THE DECIMAL ADDRESS OF THE FIRST 
BYTE WHICH CASUAL IS HOT TO USE THIS MIGHT BE DONE, 

FOR EXAMPLE, IF YOU WERE USING PART OF MEMORY FOR MACHINE 


98 SYNTAX ERROR. MISSING PARENTHESIS, ILLEGAL 

CHARACTER IN A STATEMENT, OR UNRECOGNIZABLE 
STATEMENT TYPE. 

291 ILLEGAL CHARACTER TERMINATING A STATEMENT. FOR 

EXAMPLE, X=3) GIVES ERROR 291. 

346 MISSING CLOSING SLASH IN A LITERAL STRING. 

410 UNDEFINED STATEMENT. AN ATTEMPT WAS MADE TO BRANCH 

TO A LINE NUMBER WHICH DOES NOT EXIST. THIS 
ERROR MAY OCCUR IN THE RUN XXXXX COMMAND, WHERE XXXXX 
DOES NOT EXIST. 

516 OUT OF MEMORY. PROGRAM TOO LARGE OR TOO 

COMPLICATED AN EXPRESSION OR A COMBINATION OF BOTH. 
SEE APPENDIX D 

761 DIVISION BY ZERO. 

801 MISSING EXPRESSION. A STATEMENT TERMINATOR WAS 

FOUND WHERE AN EXPRESSION WAS EXPECTED 

APPENDIX D 


SPACE HINTS 

IN ORDER TO MAKE YOUR PROGRAM SMALL AND SAVE SPACE, 
THE FOLLOWING HINTS MAY BE HELPFUL. 
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1) USE MULTIPLE STATEMENTS PER LINE. THERE IS 

A SMALL AMOUNT OF OVERHEAD <3 BYTES) ASSOCIATED WITH 
EACH LINE IN THE CASUAL PROGRAM. TWO OF THE BYTES CONTAIN 
THE LINE NUMBER IN BINARY. THIS MEANS THAT NO MATTER 
HOU MANY DIGITS YOU HAVE IN YOUR LINE NUMBER, IT TAKES THE 
SAME AMOUNT OF SPACE. PUTTING AS MANY STATEMENTS AS POS¬ 
SIBLE ON A LINE WILL REDUCE THE NUMBER OF BYTES USED BY 
YOUR PROGRAM. 


10 +*C/100*64+<C-C/108*100)/10*8+C-C/10*10 
20 C* 377. ? + PRINTS 255 

DECIMAL TO OCTAL. THIS FUNCTION ACCEPTS A DECIMAL NUMBER 
(0 - 255) IN THE VARIABLE D, AND RETURNS AN OCTAL REPRES¬ 
ENTATION OF IT AS A DECIMAL NUMBER 0 - 377. 

30 +=D/64*100+<D-D/64+64)/8*10+D-D/8*8 
40 D=255. ?+ GIVES 377 


2) DELETE ALL UNNECESSARY SPACES FROM YOUR 
PROGRAM. SPACES ARE ALLOWED ON THE RIGHT SIDE OF A CASUAL 
STATEMENT FOR CLARITY, BUT THEY ARE IGNORED. NOTE. 

ALL SPACES BETWEEN THE LINE NUMBER AND THE FIRST 
NON-BLANK CHARACTER ARE IGNORED. 

3) DELETE ALL REMARKS FROM THE PROGRAM. 

4) USE VARIABLES INSTEAD OF CONSTANTS. 

5) THE LAST STATEMENT OF A PROGRAM NEED NOT 
BE AN END STATEMENT. CASUAL WILL RETURN TO COMMAND 
MODE AUTOMATICALLY IF IT RUNS OUT OF PROGRAM TO 
EXECUTE. 


6) USE SUBROUTINES TO EXECUTE SECTIONS OF CODE 
WHICH APPEAR IN A PROGRAM MORE THAN ONCE. 

7) USE RELATIONAL OPERATORS INSETAD OF GOTOS. 
FOR INSTANCE. IF YOU WANT X = 10 IF Y = 10, AND X=0 IF 

Y # 10 : DO IT LIKE THIS: X=Y#10. 

8) USE THE " + " OPERATOR INSTEAD OF 
REPEATING AN EXPRESSION. 


STORAGE ALLOCATION INFORMATION 


THE USER-DEFINED FUNCTION USES NO MEMORY 
TO STORE THE DEFINITION. 

WHILE A PROGRAM IS BEING EXECUTED, SPACE IS ALLOCATED 
ON THE STACK. EACH LEVEL OF PARENTHESIS ENCOUNTERED IN 
AN EXPRESSION TAKES 8 BYTES OF STACK SPACE. 

APPENDIX E 


BASIC TO CASUAL STATEMENT CROSS REFERENCE 


BASIC 


RUN 

LIST 

NEW 

350 DEF FNA<X)=X*X+Y*Y 
999 END 
50 GOTO 100 
10 GOSUB 910 

16 IF X+10 > Y/2 THEN 214 

20 IF X>3 AND X<10 THEN 250 

140 INPUT X 

145 INPUT Y,Z,A 

147 LET A = B = 0 

107 LET W = <2+3)*4 

100 ON I GOTO 10,20,30,40 

105 ON SGN < X ) +2 GOTO 40, 50,60 

110 ON I GOSUB 50,60 

355 OUT I,J 

357 POKE I, J 

360 PRINT X, YiZ 

370 PRINT 

380 PRINT X,Yi 

390 PRINT "I THINK IT'S";A 

400 PRINT A,B, 

410 PRINT CHR*<Z-INT<Z/64)*64); 
500 REM SMALL IS GREAT !! 

50 RETURN 
9000 STOP 

APPENDIX F 


CASUAL 


R 

L 

N 

350 +=X*X+Y*Y 
999 .=-1 
50 .=100 
10 *=910 

16 =214 * <X+10 > Y/2) 

20 .=250 * <X > 3) * (X < 10) 
140 X=? 

145 Y = ?: Z = 7. A=? 

147 A = 0: B = 0 
107 W= < 2 + 3)*4 

100 .=I*10*<I > 0)*<I < 5) 

105 . =50+10*< (X > 0WX < 0)) 

110 $=40+1*10*(I > 0)*<I < 3) 

355 0=1: +=J 

357 1=1, &=J 

360 ?X,Y;Z 

370 ? 

380 ?X,Y; 

390 ?/I THINK IT'S/;A 
400 ?A, B, 

410 ?>Z-Z/64*64 

500 =510 SMALL IS GREAT I! 

50 =$ 

9000 =-l 


BASIC TO CASUAL FUNCTION CROSS REFERENCE 

THE FOLLOWING TABLE CAN BE USED TO MAKE CASUAL'S 
USER-DEFINABLE FUNCTION EQUIVALENT TO THE CORRESPONDING 
INTRINSIC FUNCTION OF BASIC. 


BASIC 


CASUAL 


ABS (X) 
SGN <X> 
USR <X> 
PEEK (X) 
INP <X> 
MOD (X) 
MAX <X, Y> 
MIN <X,Y> 


+=X*<<X>0-CX<0)) 

+=<X>0)-<X<0) 

+ = 0 

! = X: +=! 

0 = X: + = & 

♦=X/Y*0 + /J 

+=<X>Y)*X+<X-1<Y)*Y 

+=CX<Y)*X+(Y-1<X)*Y 


OTHER USEFUL FUNCTIONS 


APPENDIX G 


CASUAL/MACHINE LANGUAGE INTERFACE 

CASUAL HAS THE ABILITY TO LINK TO MACHINE-LANGUAGE 
SUBROUTINES, AND RECEIVE DATA FROM THEM. FIRST, YOU MUST 
SET ASIDE ENOUGH MEMORY TO HOLD THE MACHINE-LANGUAGE ROUTINE. 
WHEN CASUAL ASKS "MEM SIZ?", DON'T TYPE A RETURN, BECAUSE 
CASUAL WOULD USE ALL THE MEMORY IT COULD FIND, AND NONE WILL 
BE LEFT FOR YOUR MACHINE-LANGUAGE ROUTINE 

YOU SHOULD NOT ATTEMPT TO USE ANY MEMORY BETWEEN 
LOCATION ZERO AND THE LAST ADDRESS ALLOCATED FOR CASUAL, AS 
IT IS CONSTANTLY BEING MODIFIED BY CASUAL 

SINCE CASUAL MUST USE CONTIGUOUS BLOCKS OF MEMORY 
STARTING AT ZERO, IT IS BEST TO RESERVE HIGH LOCATIONS IN 
MEMORY FOR YOUR SUBROUTINES 

FOR EXAMPLE, IF YOU HAVE A 3K SYSTEM, THERE ARE 
3072 BYTES IN YOUR MACHINE <1024 * 3) THEY ARE NUMBERED 
0 - 3071. IF YOU WANTED TO USE A 50 BYTE SUBROUTINE, 

YOU WOULD TYPE 3022 IN RESPONSE TO "MEM SIZ?" THIS WILL 
ALLOCATE LOCATIONS 0 - 3021 FOR CASUAL, AND 3022 - 3071 
FOR YOUR SUBROUTINE. 

THE STARTING ADDRESS OF YOUR ROUTINE MUST BE STORED 
IN A LOCATION KNOWN AS "USRL". THE ADDRESS OF USRL IS FOUND 
AT ADDRESS 000 003 , SPLIT OCTAL. 

WHEN LOADED, USRL CONTAINS THE ADDRESS OF 
A ROUTINE TO RETURN THE NUMERIC VALUE OF THE ASCII CHARACTER 
FOLLOWING THE "0". USRL 

CONTAINS THE TUO BYTE ABSOLUTE ADDRESS CASUAL CALLS WHEN 
IT ENCOUNTERS AN AT SIGN ("0") IN AN EXPRESSION 

WHEN YOUR ROUTINE IS CALLED, THE STACK POINTER IS SET 
UP AND YOU ARE ALLOWED TO USE UP TO 11 LEVELS OF STACK SPACE 
<22 BYTES). TO USE MORE, YOU'LL HAVE TO SAVE CASUAL'S 
STACK POINTER AND SET YOUR OWN. YOU MAY USE ALL OF THE CPU 
REGISTERS EXCEPT HL. HL CONTAINS THE ADDRESS OF THE CHARACTER 
FOLLOWING THE "0". 

THE RESULT OF THE 0 FUNCTION IS PASSED BACK TO 

CASUAL IN THE DE REGISTER AS A 15 BIT SIGNED NUMBER THE MOST 
SIGNIFICANT BITS ARE IN THE D REGISTER. 

YOU MAY RECI EVE ARGUMENTS PASSED TO YOUR 
ROUTINE BY CALLING A ROUTINE CALLED SUBS. THE ADDRESS OF 
THIS ROUTINE IS HELD IN LOCATIONS 5 AND 6 THE ARGUMENT 
SHOULD BE ENCLOSED IN BRACKETS <"C" AND "]"). 

THE USERS ROUTINE MAY ENABLE INTERRUPTS, AS LONG AS 
THE USER USES ONLY RST 7 INTERRUPTS INTERRUPTING TO OTHER 
LOCATIONS WILL CAUSE TROUBLE. THREE BYTES HAVE BEEN LEFT 
AT LOCATION 56 DECIMAL, 70 OCTAL, 38 HEX. THESE LOCATIONS 
ARE LEFT SO THE USER CAN INSERT A JUMP TO AH INTERRUPT SERVICE 
ROUTINE 

CARE MUST BE TAKEN IN INTERRUPT SERVICE ROUTINES TO 
SAVE ALL OF THE CPU'S REGISTERS 

DON'T FORGET TO ENABLE INTERRUPTS BEFORE RETURNING, 

OR YOUR MACHINE WILL NEVER SEE ANOTHER INTERRUPT 

SUPPOSE YOU HAVE A 2K COMPUTER, AND NEED A ROUTINE 
TO READ THE NUMBER ON THE FRONT PANEL SWITCHES. 

NOTE: THIS FUNCTION CAN BE DONE DIRECTLY IN CASUAL 

YOU HAVE 2048 BYTES OF MEMORY MINUS 6 BYTES FOR THE 
ROUTINE LEAVES 2042 FOR CASUAL. THIS IS THE NUMBER 
YOU WOULD TYPE IN RESPONSE TO "MEMORY SIZE?". LOAD 
THIS INTO MEMORY: 


LOC 


DATA 

OPCODE 


007 

372 

333 

IN 

377 

087 

373 

377 



007 

374 

137 

MOV 

E, A 

007 

375 

026 

MV I 

D, 0 

007 

376 

000 



007 

377 

311 

RET 



APPENDIX H 


ASCII CHARACTER CODES < DEC IMAL) 


# 

CHR. 

# 

CHR. 

# 

CHR. 

# 

CHR 

32 

< SPACE) 

33 


34 


35 

It 

36 

$ 

37 

V, 

38 

& 

39 


4U 

< 

41 

) 

42 

* 

43 

+ 

44 

, 

45 

- 

46 


47 

/ 

48 

0 

49 

1 

50 

2 

51 

3 

52 

4 

53 

5 

54 

6 

55 

7 

56 

8 

57 

9 

58 


59 


68 

< 

61 

= 

62 

> 

63 

? 

64 

0 

65 

A 

66 

B 

67 

C 

68 

D 

69 

E 

70 

F 

71 

G 

72 

H 

73 

I 

74 

J 

75 


76 

L 

77 

M 

78 

N 

79 

0 

80 

P 

81 

Q 

82 

R 

83 

s 

84 

T 

85 

U 

86 

V 

87 

w 

88 

X 

89 

Y 

90 

z 

91 

c 

92 

\ 

93 

3 

94 

•T- 

95 

<r 


OCTAL TO DECIMAL. THIS FUNCTION ACCEPTS A THREE 
DIGIT OCTAL NUMBER IN DECIMAL PRINT FORMAT IN THE VARIABLE C. 


NOTE: SOME TERMINALS PRINT CODE 95 AS A BACK ARROW, AND 

SOME PRINT AN UNDERLINE. 
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CONTROL FUNCTIONS 


LINE FEED = 10 TftB = 11 FORM FEED = 12 

CARR I AGE RETURN = 13 BELL = 7 

THESE CODES ARE USED WITH THE ">" FUNCTION OF THE 
STATEMENT. ">" FOLLOWED BY AN EXPRESSION RETURNS A ONE 
CHARACTER STRING WHICH CONTAINS THE ASCII EQUIVALENT 
OF THE EXPRESSION. 

APPENDIX Z 


THANKS TO 

THE FOLLOWING PEOPLE FOR DEBUGGING EARLY VERSIONS: 

BILL SAIHDON, AL BAKER, MR ZIEGLER, AND SEVERAL OTHER 
CACHE MEMBERS. 

THE FOLLOWING PEOPLE FOR PROOFREADING: 

BILL PRECHT, MARK DAVISON AND MY FAMILY. 

GARRY SHANNON FOR PROPOSING THE SYNTAX. 

BYTE MAGAZINE FOR THE DECIMAL PRINT ROUTINE 

LOU VAN EPREN OF THE CHICAGO COMPUTER STORE FOR THE USE OF 
HIS EQUIPMENT 


PROGRAM NAME: CASUAL 
PATCH SHEET 

An optional patch to replace the RUN command with a 
CLEAR command. This command allows the user to 
allocate more or less memory for CASUAL after initializa 
tion. The argument is an expression which is the first 
location that CASUAL is not to use. This location must 
be RAM, and must be > = 1703 1 q. Returns to command 
mode when done. To run programs, you'll have to type 
. = <EXPR >, where <EXPR> is the first line number to 
be executed. 

LOCATION DATA OPCODE 


HI 

LOW 

OLD 

NEW 

OLD 

NEW 

004 

037 

317 

317 

TST"R 

TST"C 

004 

040 

122 

103 



004 

041 

173 

173 

IFNOT 

IFNOT 

004 

042 

005 

005 

OS? 

OS? 

004 

043 

312 

337 



004 

044 

024 

353 

JTZ 

EXPR 

004 

045 

004 

042 

RSSP 

DEOHL 

004 

046 

337 

377 


STHL 

004 

047 

303 

004 

EXPR 

STRS 

004 

050 

207 

307 

JMP 



GOTA 


Rockwell International had been considered by Zilog as 
a potential second source for the Z80 parts. Since Rock¬ 
well was not chosen, they went ahead with the develop¬ 
ment of their own Z80-type CPU chip (R80). It will be 
ready sometime in 1977. 

The words is that the chip will be pin compatible and 
software compatible. The device is mask microprogram- 
mable, similar to Western Digital’s 16-bit CPU chip set. 
Some of the instructions execute much faster than Zilog’s 
Z80, e.g., block move Z80 in 21 cycles/byte, vs. R80 in 
5 cycles/byte. Finally, there will be some instruction 
enhancements over the Z80 which include a hardware 
multiply and divide. 

MOSTEK AND FAIRCHILD TO SECOND 
SOURCE EACH OTHER 

Mostek is already the second source for Fairchild’s 
F-8 microprocessor chips. Now, Fairchild will become 
the second source for Mostek’s 4K-bit fast RAM, the 
16-pin MK4027 that runs at less than 200 ns. 


Dear Jim, Oct. 16, 1976 

I am still attempting to locate more information on a Chicago 
computer-fest. 

Scott Meaden (a local CASUAL user) has just written a neat 
game in CASUAL. It's called "Zapp the Moonman". It runs with 
a VDM by "poking" the screen, a moving target (a moonman) moves 
back and forth across the top of the screen. You shoot lightning 
bolts at him from your gun at the bottom. I am now twisting his 
arm to finalize it and send you a copy. 

Sincerely, 

Bob Van Valzah 1140 Hickory Trl 

(312)852-0472 Downers Grove, IL 60515 

(312) 971-2010 x231 

ZAPP THE MOON MAN 

Dear Dr. Dobbs, Oct. 21, 1976 

I’ve been using a nifty little language called “CASUAL” 
on my IMSAI (which is only 4K smart at the moment) 
with a VDM and came up with a program you might con¬ 
sider for publication. I call it “Zapp the Moon Man”. 

It starts a moonman (VDM character 7) moving from left 
to right and then back again across the top of the screen. 
Your job is to try to zap him with a lightning bolt (VDM 
character 4) that moves from the bottom of the screen to 
the top. The bolts are fired by the sense switches on the 
front panel of my IMSAI. The program also keeps track of 
how many bolts you have left and how many moonmen 
you’ve zapped. 

The start of the VDM screen must be set in line 3. My 
VDM is set up for CC(hex) 314(octal) which, in CASUAL 
decimal notation, is equal to —13312. You can use CASUAL 
to help you figure out what number to set Z to. For ex¬ 
ample, if your screen starts on page 364 (octal), type in 
?256*(3*64+6*8+4), hit return and CASUAL will print 
—3072. This is Z for that system. Also, if you want to use 
a different trigger source (say, passing your hand over an 
OP-80 papertape reader) you’ll have to change lines 11 and 
110 for port numbers and Ready bit. But remember, once 
that bit is ready you’ll have to give the data port an & to 
clear it. 

The game is set up so when a bolt gets to the top of the 
screen it checks 2 places to see if it hit (line 210). To make 
him harder to hit, type in: 

210 =240*(((X-2=P)*(B=0))+((X+2=P)*(B= 1))) 

Happy zapping! 

Scott Meadow 116 Surrey Dr. 

Glen Ellyn, IL 60137 

■ L 

3 Z=-133I2 
■t ?>12 

5 7-HOW MANY BOLTS DO YOU WANT'S*S=7*.=5.<S<1> 

6 .=5»<S>99> 

10 U=Z7754tL*Z*864* M=L* P*Z*32* N=Z-32*J=Z+722 

11 2=255 

15 ?>12S s !=Z*4=32*H=0I I-0* !=L-U28*t.= 1601L»L-M28 

20 '=Z-»592* ' Cl] =901 ' C2]=65l ' [31*801 ' C4]=83 

30 ' C32] =66* ' C33] =79* ' C34] =76* ' C35) =84* ' [36] =83 

40 '[971=76*'[981*691'[991*701'Cl 001=84*S=S*1* 1*4 00 

50 B=0*X*ZtY*Z*64 

100 S*3000 

110 ,=100«<0=«.> 

120 $=400 

130 !=L+64:|*»32:! =L: 8*>4iL=L-64: S-3000 
150 . *130* <L«N> 

200 !*P:fc=32 

210 .=24 0* < < < <X-1=P>♦<X-2=P>>♦<B=0))♦< < <X*1»P)♦<X+2=P> >♦r b«1))> 

220 .=5»<S<1> 

230 .=110 

240 H»H+1: I=H'10: !*J+1 :t«%+48: !»j:S*=I+48: I=H 
242 '=Z+32*'Cl]-90s'[23=65:'[33=80:'[43=80:'[53=33 

244 X=Zs!=X:W=0 

245 «*=32:X=X+1:!=X:W=U+1:.=245* <U«50> 

250 .=50 

400 S=S-l:L=M: V-S/10: !=U+1H-*M8:! =U:S.-V+48: V=S». =S 
3000 .=3900* <B=1> 

3100 !=X-l:«,=32:! =X: l*«7: X«X41: .=S*<X«Y> 

3200 X»X-1:B=1:.=* 

3900 !«X+l:i=32:! =Xs l*=7sX-X-l s .=S#(X»Z> 

4000 X«X+l:B=0:.=* 


RAW ROCKWELL RUMORS 

REVEAL ZILOG COMPETITOR 9/21/76 
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/ABBREVIATIONS USED IN COMMENTS: 


/-> 

/ABS( ) 

/ADR 

/ARG 

/BUF 

/BOTX 

/CR 

/CRLF 

/CHR 

/CMPR 

/DECR 

/EOP 

/EXPR 

--EOS 

/EOTX 

/EOB 

/EOL 

/FC 

/FUN 

/FZ 

/INIT 

/INFO 

/INCR 

/INST 

/INP 

/LANG 

/LF 

/LINE i 
/LL 

/NEOTX 

/OEOTX 

/OP 

/OS 

/PS 

/PGM 

/QUO 

/RETADR 

/RELOP 

/REG 

/ROT 

/STK 

/STMT 

/SONL 

/SO>L 

/SO<L 


/SOL 

/SUB 

/SOS 

/SR 

/SIG DIG 

/TXA 

/TST 

/TZ 

/VAL 

/VAR 

/VARNAM 


INTO 

ABSOLUTE VALUE OF ( > 

ADDRESS 

ARGUMENT 

BUFFER 

BEGINNING OF TEXT 

CARRIAGE RETURN 

CARRIAGE RETURN, LINE FEED 

CHARACTER 

COMPARE 

DECREMENT 

END OF PROGRAM 

EXPRESSION 

END OF STATEMENT, OR END OF STRING 

END OF TEXT 

END OF BUFFER 

END OF LINE 

FALSE CARRY 

FUNCTION 

FALSE ZERO 

INITIALIZE 

INFORMATION 

INCREMENT 

INSTRUCTION 

INPUT 

LANGUAGE 

LINE FEED 

LINE NUMBER 

LINE LENGTH 

NEW END OF TEXT 

OLD END OF TEXT 

OPERATOR 

OPERATING SYSTEM 
PARTIAL SUM 
PROGRAM 
QUOTIENT 
RETURN ADDRESS 

RELATIONAL OPPERATOR <<.>#=,*) 

REGISTER 

ROUTINE 

STACK 

STATEMENT 

START OF NEXT LINE 
START OF GREATER THAN LINE 
START OF LESS THAN LINE 
START OF LINE 
SUBTRACT 

START OF STATEMENT 
SUBROUTINE 
SIGNIFICANT DIGIT 
TEXT ADDRESS POINTER 
TEST 

TRUE ZERO 
VALUE 
VARIABLE 
VARIABLE NAME 


000 023 303 100 000 JMP NXTD /CONTINUED AT NXTD 

/ 

/RESTART 3 IS THE EXPRESSION EVALUATOR THE VALUE IS 
/RETURNED IN THE DE REG. SEE CONTINUATION FOR MORE INFO. 


030 000 

000 030 313 107 002 

000 033 353 

000 034 303 073 000 


*30 

CAL EXPA /GET THE VALUE OF EXPR -> DE 

DEOHL /RESULT -> HL, TXA -> DE 

JMP EXP1 /CONTINUED AT EXP1 


/RESTART 4 IS THE DEVO (DEVICE OUTPUT) ROUTINE THE CHR 
/IN THE A REG IS SENT TO THE OUTPUT DEVICE DOESN'T 
/MUNCH ANY REGS OR FLAGS. STACK USAGE: 4 BYTES. 


040 000 
000 040 363 

000 041 333 031 DEVQ, 
000 043 346 002 TORM, 
000 045 303 106 005 


*40 

PSHX PSW 
INP 1 
NDI 2 
JMP DEVP 


/SAVE A AND FLAGS 
/GET READY STATUS -> A 
/MASK TO THE BIT WE WANT 
/CONTINUED AT DEVP 


/RESTART 5 IS THE MESSAGE PRINTER IT SENDS CHR3 
/FROM MEMORY IMMEDIATLY FOLLOWING THE CALL TO IT UNTIL ONE 
/WITH BIT 7 HI COMES ALONG THE RETURN ADDRESS IS 
/MODIFIED STACK USAGE: 6 BYTES 


050 

000 030 343 
000 051 176 
000 052 347 
000 033 043 
000 034 267 
000 033 303 


e@0 


132 


*50 

MSG, SPOHL 

MSG1, LA M 

DEVO 
I NX HL 
OR A 
JMP MSG2 


/PRINT ADR -> HL 
/FETCH A CHR 
/SEND IT 

/BUMP TXA AND RETURN ADDRESS 
/BIT 7 HI YET ? 

/CONTINUED AT MSG2 


060 

000 060 174 
000 061 222 
000 062 300 
000 063 173 
000 064 223 
000 063 311 
000 066 377 


/RESTART 6 IS A 16 BIT UNSIGNED COMPARE CCMPR). FLAGS ARE 
/SET LIKE HL - DE STACK USAGE: 2 BYTES. 

/ 

*60 
LA H 
SU D 
RFZ 
LA L 
SU E 
RET 

DSD SPRS /ADR OF ADR OF ADR OF STACK RESET 


/RESTART 7 IS OPEN FOR INTERRUPT USE. 

/A RETURN IS PUT THERE SO INTERRUPTS WILL BE IGNORED TILL 
/IT IS PATCHED OUT THREE BYTES ARE LEFT FOR A JUMP 
/TO AN INTERRUPT SERVICE ROUTINE. 


000 070 


070 

311 

073 


*70 

RET 

*73 


000 073 042 
000 076 353 
000 077 311 


005 


STHL LRES 

DEOHL 

RET 


/SAVE RESULT 
/RESTORE TXA 


EP 1 


CASUAL 

CHICAGO AREA SMALL USERS ALGORITHMIC LANGUAGE 

WRITTEN BY, ROBERT A VAN VALZAH 
1140 HICKORY TRAIL 
DOWNERS GROVE, IL 

60313 


000 000 303 134 006 
000 003 007 005 
000 003 272 003 


H (312) 832-0472 
W (312) 971-2010 X 227 


JMP INIT 
DSD USRL 
DSD SUBS 


/WILL BE POKED TO JMP ENTR 

/ADR OF ADR OF ADR OF USERS ML ROT 

/ADR OF ROT USED TO GET USR FUN ARG 


/RESTART SUBROUTINES. 0 IS SYSTEM RE-ENTRY. 7 IS OPEN. 
/I - 6 ARE USED. 


/THE EQUIVALENCES BELOW SUBVERT MY ASSEMBLER INTO ASSEMBLING 
/SINGLE BYTE CALL INSTRUCTIONS (RESTARTS) WHENEVER THEY 
/APPEAR ON A LINE. 


317 000 TST=03172 

327 FETCH=RST 0200 

000 030 IFNOT=02 

367 CMPR=RST 0600 

337 EXPR=RST @300 

347 DEVO»RST 0400 

357 MSGP=RST @500 


/RESTART 1 IS THE TST FUNCTION. IN SOURCE CODE IT MUST 
/BE FOLLOWED BY AN IFNOT PSEUDO - OP. IT APPEARS LIKE THIS: 


/ TST “♦ 

/ IFNOT TRY- /CHR AT HL IS NOT “+", JUMP TO TRY- 

/ /FALLS THROUGH TO HERE IF CHP. AT HL IS M + " 


010 000 
010 176 
011 34? 

012 276 
613 043 
014 303 113 


020 000 
003 020 043 
00J 021 176 
000 022 376 072 
000 024 320 


/THE CHR FOLLOWING THE RESTART INSTRUCTION IS FETCHED AND 

/COMPARED TO THE CHR POINTED TO BY HL. IF THE 

/TEST IS TRUE, THE IFNOT ADDRESS IS IGNORED AND TST RETURNS. 

/ALSO HL IS BUMPED AND IT FALLS THROUGH TO NXTC TO SET FLAGS 

/IF THE TEST IS FALSE, THE RETURN ADDRESS ON THE STACK 

/IS IGNORED AND THE IFNOT ADDRESS IS RETURNED TO, 

/WITHOUT BUMPING HL 

/STACK USAGE, 2 BYTES. MUNCHES A * FLAGS 

/ 

*10 

LA M /FETCH TEST CHR 

SPOHL /TXA ON STK, REFERENCE ADR -> HL 

CP M /COMPARE WITH REFERENCE 

INX HL /MOVE RETADR 

JMP TST1 /CONTINUES AT TST1 

/ 

/RESTART 2 IS THE FETCH THE NEXT CHR ROUTINE. HL IS BUMPED 
/BEFORE THE FETCH. SPACES ARE IGNORED. ON RETURN, FC 
/MEANS NON-NUMERIC (NOT 0 - 9), TZ IF A STATEMENT TERMINATOR 
/(COLON OR END OF LINE NULL) STACK USAGE: 2 BYTES. 


NXTC, 


*20 


I NX HL 
LA M 

CPI "9+1 
RFC 


/BUMP TXA TO NEXT CHR 
/FETCH IT 
/IS IT 0 - 9 
/>9 CARRY FALSE 


000 100 376 040 NXTD, 

000 102 312 020 000 

000 103 376 060 

000 107 077 

000 110 074 

000 111 073 

000 112 311 

800 113 302 124 000 TST1, 

000 116 043 

000 117 e43 

000 120 343 

000 121 303 020 000 

000 124 176 NGOT, 

000 125 043 

000 126 146 

000 127 157 

000 130 343 

000 131 311 


000 132 362 031 000 MSG2, 
000 133 343 
000 136 311 


CPI " 

JTZ NXTC 

CPI "0 

CMC 

INA 

DCA 

RET 

JFZ NGOT 
I NX HL 
I NX HL 
SPOHL 
JMP NXTC 
LA M 
I NX HL 
LH M 
LL A 
SPOHL 
RET 

JFS MSG1 

SPOHL 

RET 


/IGNORE BLANKS 
/< 0 ? 

/SET FLAG WTIHOUT AFFECTING CARRY 


/NO MATCH 

/MATCH - IGONRE IFNOT ADR 
/RESTORE TXA 

/FOUND IT, INCR TXA AND SET FLAGS 
/LOW ORDER IFNOT ADR -> A 

/IFNOT ADR ON STK, RESTORE TXA 


/BIT 7 WAS LOW, PRINT MORE 
/WAS HIGH. TIME TO RETURN 


000 137 313 142 
000 142 357 
000 143 013 
000 144 012 
000 143 103 
000 146 122 
000 147 122 
000 130 117 
000 131 322 
000 132 343 
000 133 313 064 
000 136 313 032 
000 161 032 011 
000 164 053 
000 163 321 
000 166 367 
000 167 302 174 
000 172 357 
000 173 277 
000 174 327 
000 173 312 204 
000 200 347 
000 201 303 166 


/ EP 2 

/ERRO IS THE ERROR MESSAGE PRINTER. IT MUST ALLWAYS BE 
/CALLED, THE RETURN ADDRESS IS USED AS THE ERROR NUMBER. 

/ 

000 SNER, CAL ERRO /SYNTAX ERROR TO BE JUMPED TO 

ERRO, MSGP /PRINT "ERROR" 

DSS 13,12,"E,“R,-R,"0,"R+200 


004 

004 

005 


ERRP, 

000 


ERRQ, 

000 

000 


SPOHL 
CAL HLPT 
CAL INPT 
LDHL SSTM 
DCX HL 
POPX DE 
CMPR 

JFZ ERRQ 
MSGP 

DSS "?+200 
FETCH 
JTZ ENTR 
DEVO 

JMP ERRP 


/PRINT ERROR ADDRESS 

/PRINT LINE NUMBER OF ERROR 
/START OF LAST STATEMENT -> HL 

/ERROR TXA -> DE 
/AT BAD SPOT YET? 

/NOPE - PRINT A CHR 
/YUP - INSERT A "?" 

/END OF STMT? 

/YUP - BACK TO COMMAND MODE 
/NOPE - PRINT ONE CHR AND 
/KEEP TRYING 


000 204 313 134 
000 207 313 024 
000 212 337 
000 213 256 
000 214 041 377 
000 217 042 262 
000 222 315 016 
000 225 327 
000 226 312 207 
000 231 322 055 


/MAIN INTERPRETER ENTRY AND RE-ENTRY POINT. ENTR SENDS CRLF 
/AND ENTERS LINE INPUT MODE NOCR DOES SAME, WITHOUT CRLF 
/NUMBERED LINES ARE EDITED INTO TEXT BUFFER. 

/UN-NUMBERED LINES ARE PASSED TO STMT FOR EXECUTION 


003 ENTR, 
004 NOCR, 


3 77 
004 
002 


CAL CRLF 
CAL RSSP 
MSGP 

DSS ".+200 

LXI HL '377 377 

STHL CURL 

CAL GETL 

FETCH 

JTZ NOCR 

JFC STMU 


/RESET 8080 STACK 
/PRINT PROMPT PERIOD "." 

/SET IMMEDIATE MODE FLAG 

/FETCH AN INPUT LINE 
/BLANK LINE? 

/YUP - IGNORE 

/NOT NUMERIC - EXECUTE IT 
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000 234 313 
000 237 343 
000 240 323 
000 241 363 
000 242 001 
000 243 176 
000 246 267 
000 247 043 
000 230 003 
000 231 302 
000 254 361 
000 233 303 
000 236 363 
000 237 315 
000 262 303 
000 263 322 
000 266 333 
000 267 032 
000 272 032 
000 273 002 
000 274 003 
000 273 023 
000 276 367 
000 277 322 
000 302 140 
000 303 131 
000 304 033 
000 305 042 
000 310 321 
000 311 361 
000 312 312 
000 313 032 
000 320 343 
000 321 301 
000 322 011 
000 323 345 
000 324 313 
000 327 303 
000 330 343 
000 331 301 
000 332 367 
000 333 176 
000 334 002 
000 333 013 
000 336 033 
000 337 302 
000 342 341 
000 343 042 
000 346 333 
000 347 321 
000 330 163 
000 331 043 
000 332 162 
000 333 043 
000 334 321 
000 335 032 
000 336 167 
000 357 043 
000 360 023 
000 361 267 
000 362 302 
000 363 303 


000 370 032 
000 373 104 
000 374 113 
000 373 176 
000 376 043 
000 377 266 
001 000 053 
001 001 310 
001 002 176 
001 003 043 
001 004 345 
001 003 146 
001 006 137 
001 007 367 
001 010 341 
001 011 363 
001 012 043 
001 013 313 
001 016 361 
001 017 077 
001 020 310 
001 021 077 
001 022 320 
001 023 303 
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/'START OF LINE TEXT EDITOR 

/ 

/TEXT BUFFER FORMAT 


/BOTX, 


LINE 1 
LINE 2 
LINE 3 


/EOTX. 000 


/LINE STORAGE FORMAT : 


/ LINE NUMBER LOU 8 BITS 

/ LINE NUMBER HIGH 8 BITS 

/ CHRS WHICH APPEAR ON LINE 

/ 000 


205 004 


002 000 

EDT, 


245 000 


310 000 
260 004 

EDT1, 


272 000 


260 004 

207 000 
260 004 


EDT2, 


367 001 


ED21, 


332 000 
260 004 


EDT3, 


333 000 
207 000 


CAL DEINT 
PSHX HL 
PSHX DE 
PSHX PSU 
LX I BC 2 
LA M 
OR A 
IN* HL 
I NX BC 
JFZ EDT 
POPX PSU 
PSHX BC 
PSHX PSU 
CAL LFNL 
PSHX BC 
JFC EDT2 
DEOHL 
LDHL EOTX 
LDAX DE 
STAX BC 
I NX BC 
I NX DE 
CMPR 
JFC EDT1 
LH B 
LL C 
DCX HL 
STHL EOTX 
POPX DE 
POPX PSU 
JTZ NOCR 
LDHL EOTX 
SPOHL 
POPX BC 
DADX BC 
PSHX HL 
CAL EOM? 
PSHX BC 
SP< >HL 
POPX BC 
CMPR 
LA M 
STAX BC 
DCX BC 
DCX HL 
JFZ ED21 
POPX HL 
STHL EOTX 
DE<>HL 
POPX DE 
LM E 
I NX HL 
LM D 
I NX HL 
POPX DE 
LDAX DE 
LM A 
I NX HL 
I NX DE 
OR A 
JFZ EDT3 
JMP NOCR 


/GET LINE * -> DE 
/FIRST CHR ADR SAVE 
/SAVE LINE * 

/ZERO TRUE IF BLANK LINE 
/LINE LENGTH 3 BYTE OVERHEAD 
/COUNT UP LINE LENGTH -> BC 


/KEEP COUNTING 
/RESTORE FLAGS 
/SAVE LINE LENTH 
/SAVE FLAGS 

/INSERT ADR -> BC, SONL -> HL 
/SAVE INSERT ADR 
/COULDN'T FIND, SO INSERT ONLY 
/SONL -> DE 

/DELETE OLD LINE 


/DONE YET? 
/NOPE 

/SAVE NEW EOTX 


/INSERT ADR -> DE 
/ANYTHING TO INSERT? 

/NOPE - EXIT EDITOR 

/EOTX -> BC, LL -> HL 

/NEW EOTX -> HL 
/SAVE IT 

/ROOM FOR THIS LINE? 

/OEOTX -> HL. NEOTX -> BC 

/MOVE UP FOR NEW LINE 
/FROM OEOTX -> NEOTX 


/NOT DONE YET 
/RESTORE NEOTX 

/INSERT ADR -> HL 
/LINE ft -> DE 
/PUT IN NEU LINE ft 


/ADR OF TEXT ON LINE 
/PUT IT IN BUFFER 


/NOT DONE INSERTING 
/GET ANOTHER LINE 


/LFND IS THE LINE FINDER 

/TRIES TO FIND THE LINE ft IN DE IN THE BUFFER 

/IT WILL EITHER FIND IT, OR HIT THE EOB FIRST. OR GO 

/ONE LINE PAST BUT NOT HIT EOB RETURN CONDITIONS FOLLOW : 

/ IF 


EOB 


GOT IT NEXT > 


CARRY 

ZERO 


EOB 

EOB 

FALSE 

TRUE 


SONL 

SOL 

TRUE 

TRUE 


SOL 

SO<L 

FALSE 

FALSE 


/USES ALL REGS AND FLAGS EXCEPT DE STACK USAGE: 6 BYTES. 


236 004 LFND, 
LFNE, 


333 001 


373 000 


LDHL BOTX 
LB H 


DCX HL 
RTZ 


I NX HL 
PSHX HL 
LH M 
LL A 
CMPR 
POPX HL 
PSHX PSU 
I NX HL 
CAL FSNL 
POPX PSU 
CMC 
RTZ 
CMC 
RFC 

JMP LFNE 


/START AT BEGINNING OF TEXT 
/SAVE START OF LINE -> BC 

/EOB? 


/YUP - ZERO TRUE, CARRY FALSE 
/RELOAD LOU ORDER -/ A 

/SAVE SOL TXA+I 
/LINE ft -> HL 

/LINE ft UE WANT ? 

/SOL +1 -> HL 

/SAVE RESULT OF COMPARE 

/START OF NEXT LINE -> HL 

/RESTORE RESULT OF COMPARE 
/FOUND IT? 

/YUP - CARRY, ZERO TRUE 
/PAST IT? 

/YUP - CARRY, ZERO FALSE 
/NOPE - KEEP LOOKING 


/THIS IS THE INTERPRETER CONTROL SECTION 


001 

001 

001 

001 


001 


001 


001 


001 


001 


001 

001 

001 


001 

001 

001 

001 

001 

001 


001 

001 

001 

001 

001 

001 

001 

001 

001 

001 

001 

001 

001 


001 


001 

001 

001 

001 

001 

001 


/STMT IS THE STATEMENT EXECUTOR ENTER IT WITH THE TXA 
/OF THE STRING TO BE EXECUTED -1 IN HL KEEPS GOING TILL: 
/IT FINDS LINE ft 0, CONTROL C <+C) ABORT, OR GOTO 
/-I (MINUS ONE). IT PUSHES THE ADDRESS OF RTRN 
/BEFORE LEAVING. SO WHEN THE STMT HANDLER RETURNS, IT SHOWS 
/UP AT RTRN AT RTRN, TXA SHOULD POINT TO COLON <:> OR 
/END OF LINE NULL 


026 315 160 003 RTRN, 
031 176 

032 376 072 COLN, 

034 312 034 001 
037 267 

040 304 142 000 
043 043 

044 313 100 002 
047 353 

050 042 262 004 
033 333 

054 327 STMT, 

055 042 011 003 STMU, 

060 021 026 081 

063 323 

064 310 

063 317 077 

067 363 005 SIPK, 

071 312 154 005 PRT1, 

074 310 CR?, 

073 317 073 

077 304 O01 

101 303 074 001 

104 317 054 PCOM, 

106 116 001 

110 076 011 

112 347 

113 303 074 001 

116 176 QUOT, 

117 376 057 

121 302 144 001 
124 043 

123 176 QUOS, 

126 267 

127 314 142 000 

132 043 

133 376 057 
133 312 163 001 

140 347 

141 303 125 001 

144 317 076 PXCL, 

146 340 005 PXPK, 

150 337 

131 173 

132 347 

153 303 163 001 

136 337 PEXP, 

137 343 

160 353 

161 313 170 004 

164 341 

165 033 PEXQ, 

166 327 

167 303 071 001 

172 343 NPRU, 

173 043 

174 317 073 
176 313 003 

200 337 

201 343 

202 317 036 
204 232 001 

206 341 GOT, 

207 172 GOTA, 

210 263 

211 310 

212 172 

213 243 

214 074 

213 312 204 000 
220 313 370 000 GOTB, 

223 140 

224 131 
223 053 

226 330 

227 313 142 000 


CAL ABRT 
LA M 
CPI 

JTZ STMT 
OR A 

CFZ ERRO 
I NX HL 
CAL FELN 
DE<>HL 
STHL CURL 
DE<>HL 
FETCH 
STHL SSTM 
LXI DE RTRN 
PSHX DE 
RTZ 

TST *? 

IFNOT NPRT 
JTZ CRLF 
RTZ 
TST 

IFNOT PCOM 
JMP CR? 

TST ", 

IFNOT QUOT 
LAI 11 
DEVO 
JMP CR? 

LA M 
CPI "/ 

JFZ PXCL 
I NX HL 
LA M 
OR A 

CTZ ERRO 
I NX HL 
CPI "/ 

JTZ PEXQ 
DEVO 

JMP QUOS 
TST " : 

IFNOT PRI) 
EXPR 
LA E 
DEVO 

JMP PEXQ 
EXPR 
PSHX HL 
DEOHL 
CAL SHLP 
POPX HL 
DCX HL 
FETCH 
JMP PRT1 
PSHX HL 
I NX HL 
TST " = 

IFNOT CMD? 
EPF 
SP< >HL 
TST 

IFNOT LEF* 
POPX HL 
LA D 
OR E 
RTZ 
LA D 
ND E 
I HA 

JTZ ENTR 
CAL LFND 
LH B 
LL C 
DCX HL 
PTC 

CAL ERRO 


/TEST FOR CONTROL C OC> 

/MORE ON THIS LINE? 

/YUP - EXECUTE IT 
/END OF LINE? 

/NOPE - ILLEGAL TERMINATION CHR 
/MOVE TO SONL 

/LINE ft -> DE. RE-ENTER IF EOB 
/MAKE IT CURRENT LINE 


/SAVE THE START OF THIS STATEMENT 
/PUSH DESIRED RETURN ADR 


/A PRINT STMT? 

/MIGHT BE POKED TO NPRU 

/RETURN UITH NO CR IF TERMINATOR 


/IGNORE SEMICOLONS - NO CR IF EOS 
/A COMMA ? 

/YUP - SEND A TAB 

/NO CR IF EOS 

/LEADING SLASH FOR LITERAL ? 

/NOPE - TRY CHR* 

/YUP - MOVE OVER SLASH 
/FETCH A CHR 
/END OF LINE ? 

/YUP - NO CLOSING SLASH ERROR 

/FINAL SLASH? 

/YUP 

/NOPE - SEND IT 
/DO MORE 

/A CHR* FUNCTION ? 

/TRY STRING PRINT. MIGHT BE POKED 

/TRUNCATED EXPR -> A 
/SEND IT 

/MUST BE AN EXPRESSION 
/SAVE HL DURING PRINT 
/NUMBER TO PRINT -> HL 
/PRINT THE SIGNED NUMBER 
/RESTORE TXA 
/SET Z FLAG IF EOS 


/SAVE SOL TXA ON 5TK 
/SECOND CHR "=" ? 

/NOPE - MUST BE A COMMAND OR ARRAY 
/YUP - EVALUATE RIGHT SIDE 
/SOL -> HL. EOL ON STK 
/A GOTO STMT ? 

/EOS -> HL 
/GOTO LINE ZERO? 

/YUP - FALL THRU TO NEXT STMT 
/GOTO LINE 65535 ? C-l) 


/YUP - THIS IS A STOP 
/FIND HIS LINE 
/NEU LINE TXA -> HL 

/MOVE TO PRECEDING LINES NULL 
/FOUND THE LINE - EXECUTE IT 
/NO FIND ERROR 


232 317 044 LEF*, 
234 233 001 

236 313 335 001 

241 176 

242 043 

243 146 

244 157 

243 042 003 005 
230 303 206 001 

233 317 041 MEMA, 

233 265 001 

257 353 

260 042 016 003 

263 341 

264 311 

265 317 046 POK?, 

267 277 001 

271 032 016 005 
274 163 
273 341 

276 311 

277 317 137 OUT?, 

301 315 0O1 

303 076 323 
305 062 013 005 

310 173 

311 341 

312 303 013 005 

315 317 100 PAD?, 

317 327 001 

321 173 

322 062 014 005 

323 341 

326 311 

327 317 136 DEF?, 
331 310 005 DFPK, 

333 043 

334 042 003 003 
337 341 

340 311 


TST "* 

IFNOT MEMA 
CAL FSNL 
LA M 
I NX HL 
LH M 
LL A 

STHL DLAD 
JMP GOT 
TST " ! 

IFNOT POK? 
DE< >HL 
STHL MADR 
POPX HL 
RET 
TST "& 

IFNOT OUT? 
LDHL MADR 
LM E 
POPX HL 
RET 
TST 

IFNOT PAD? 
LAI 323 
STA RAM 10 
LA E 
POPX HL 
JMF RAM I 0 
TST "0 
IFNOT DEF? 
LA E 

STA RAMI 0+1 
POPX HL 
RET 

TST “♦ 

IFNOT BSES 
I NX HL 
STHL DEFF 
POPX HL 
RET 


/A G03UB ? 

/FIND SI ART OF NEXT LINE 
/SAVE ITS LINE NUMBER 


/DO A GOTO 

/SET A MEMORY ADDRESS ? 

/STORE NEU MEMORY ADDRESS 
/RESTORE EOS TXA 
/A POKE ? 

/GET THE SET MEMORY ADDRESS 
/POKE IT UITH LOU ORDER EXPR 
/RESTORE EOS TXA 

/AN OUT INST ? 

/NOPE 

/OUT INST BINARY -> MEMORY (RAM) 

/DATA TO OUTPUT -> A 
/RESTORE EOS TXA 
/DO THE OUT, AND RETURN 
/SET PORT NUMBER ? 

/TRUNCATED EXPRESSION -> A 
/SET NEU PORT NUMBER INTO RAM 
/RESTORE EOS TXA 

/DEFINE A FUNCTION ? 

/MIGHT BE POKED TO LETS 
/MOVE TXA TO EXPRESSION 
/SAVE FUNCTIONS TXh 
/RESTORE EOS TXA 
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001 341 
001 344 
001 343 
001 330 
00 * 331 
001 332 
001 333 
001 334 


313 

163 

302 

043 

162 

341 


202 005 LETS, 


LETT, 


JF2 LETT 
INX HL 
LM D 


-'GET THE IHDES OF THE VAR 

✓STORE THE VAL IN MEMORY 

✓DON'T WRITE HI BYTE IF SINGLE ARRAY 


✓IGNORE TXA FROM LOKU 
✓RESTORE EOS TXA 


POPX HL 
POPX HL 
RET 

✓FSNL FINDS THE START OF THE NEXT LINE IN MEMORY 
HL IS BUMPED TO POINT TO THE LO ORDER LINE NUMBER OF THAT 
✓LINE A « PSU GET MUNCHED STACK USAGE: 2 BYTES 


001 333 176 
001 336 043 
001 337 267 
001 360 302 353 
001 363 311 


FSNL, LA M 

INX HL 

OR A ✓ENDING NULL YET? 

JF2 FSNL 
RET 

/ 

✓EOM AND EOM? CHECK TO MAKE SURE THAT THERE IS AT LEAST 24 
✓BYTES OF STK SPACE LEFT FOR NORMAL OPERATIONS EOM? LOOKS 
✓FOR 24 BETWEEN HL AND CURRENT SP EOM LOOKS FOR 24 BETWEEN 
✓CURRENT EOTX AND SP. BOTH MUNCH PSW * A 


001 364 032 260 004 EOM, 

001 367 323 EOM?, 

001 370 333 

001 371 041 330 377 

001 374 071 

O01 375 367 

001 376 333 

001 377 321 

002 G00 320 

002 001 315 142 000 


LDHL EOTX 

PSHX DE 

DEOHL 

LXI HL -024 

DADX SP 

CMPR 

DE<>HL 

POPX DE 

RFC 

CAL ERRO 


✓CURRENT EOTX 
✓SAVE DE 
✓SAVE HIS HL 
✓LOOKING FOR 24 BYTES 
-ADD IN CURRENT SP 
✓SUBTRACT PASSED HL 
✓RESTORE HIS HL 
✓RESOTRE DE 

✓PLENTY OF ROOM LEFT - RETURN 
✓OUT OF MEMORY ERROR 


002 141 131 002 
002 143 313 163 002 
002 146 30O 
002 147 137 

002 150 311 RET I, 

002 131 317 043 TRYN, 

002 133 130 002 

002 133 313 163 002 

002 ?60 310 

002 161 137 

032 162 311 


IFNOT TRYN 

CAL RSUM 

RFZ 

LE A 

RET 

TST 

IFNOT RET I 

CAL RSUM 

RTZ 

LE A 

RET 


✓GET RIGHT SUM 
✓NOT EQUAL IS FALSE 


✓NOT EQUAL TO ? 

✓NO RELOPS - RETURN 
✓GET RIGHT SUM 


✓RSUM GETS THE RIGHT SUM AFTER A RELOP HAS BEEN FOUND 
✓ENTER WITH LEFT SUM IN DE AFTER FETCHING THE RIGHT SUM, 
✓RIGHT AND LEFT ARE COMPARED WITH A 16 BIT SIGNED COMPARE 
✓ON EXIT: FLAGS ARE SET LIKE LEFT - RIGHT- 
✓DE =0, A = 1. TXA POINTS TO END OF EXPRESSION 


002 163 323 

002 164 313 206 002 

002 167 343 

002 170 174 

002 171 232 

002 172 362 176 002 

002 173 333 

002 176 367 

002 177 341 

002 200 021 000 000 

002 203 076 001 

002 203 311 


RSUM, PSHX DE 
CAL SUM 
SP< >HL 
LA H 
XR D 

JFS SAMS 
DEOHL 

SAMS, CMPR 

POPX HL 
LXI DE 0 
LAI 1 
RET 


✓LEFT ON STK 

✓GET RIGHT SUM -> DE 

✓LEFT -> HL, TXA ON STK 

✓COMPARE SIGN OF LEFT AND RIGHT 

✓SAME SIGN - DON'T SWAP 

✓DO THE COMPARE 
✓RESTORE TXA 
✓SETUP RESULT OF RELOP 
✓DO A LE A IF TRUE 


✓SUM EVALUATOR 

✓ <SUM> = < TERM> I <SUM> ♦ <TERH> I <SUN> - < TERM > 


✓THE VALUE OF THE SUM IS LEFT IN DE ON EXIT 


THIS ROUTINE INPUTS A LINE OF TEXT AND PLACES IT 
✓AT LIMB WHEN ENTERED AT GETL RUBOUT 
DELETES THE PREVIOUS CHR CONTROL U OU> DELETES THE 
✓ENTIRE LINE BEING TYPED AND STARTS OVER A MAXIMUM 
✓OF LBUL CHRS WILL BE ACCEPTED AFTER WHICH THE 
✓BELL WILL RING INSTEAD OF ECHOING CHRS AS NORMAL 
✓CONTROL CHRS OTHER THAN CONTROL U, CONTROL G (BELL), 
✓AND CARRIAGE RETURN WILL NOT BE ECHOED BUT IGNORED 
✓ROUTINE RETURNS ON ENTRY OF A CARRIAGE RETURN BY 
✓ECHOING A CRLF AND PLACING 3 NULLS AT THE END OF BUFFER 
✓ON EXIT, HL POINT LINB-1 STACK USAGE: 10 BYTES. 


002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 


002 

002 

002 


033 

337 

334 

003 

302. 023 
313 134 
041 264 
006 001 
313 117 
376 007 
312 037 
376 013 
312 143 
376 023 
312 013 
376 040 
332 023 
376 177 
312 004 
1 17 

170 

376 111 
076 007 
322 074 i 

171 
161 
043 
004 
347 

303 023 


GET J, 


002 

003 GETK, 
004 GETL, 


DCX HL 
MSGF 

DSS “x+200 
DCB 

JFZ GETM 
CAL CRLF 
LXI HL LIMB 
LBI 1 
CAL TTYI 
CPI 7 
JTZ GETH 
CPI 15 
JTZ CRLE 
CPI 23 
JTZ GETK 
CPI " 

JTC GETM 
CPI 177 
JTZ GET J 
LC A 
LA B 

CPI LBUL+1 
LAI 7 
JFC GETO 
LA C 
LM C 
INX HL 
1NB 
DEVO 

JMP GETM 


✓DECR CHR POINTER 
✓SEND A BACK SLASH 

✓DECR CHR COUNTER 
✓DELETED TOO MANY? - NOPE 

✓CHRS WILL GO HERE 
✓INITIALIZE CHR COUNT 
✓GET CHR -> A 
✓A BELL? 

✓YUP - PUT IN BUFFER 

✓ A CR? 

✓YUP - EXIT THRU CRLF 
✓CONTROL U? 

✓YUP - START OVER 
✓< SPACE, CONTROL CHR ? 

✓YUP - IGNORE 
✓RUBOUT? 

✓YUP - IGNOR LAST CHR 
✓SAVE CHR 

✓GET LINE LENGTH -> A 

✓COMPARE WITH MAXIMUM 

✓GET READY TO RING BELL IF TOO LONG 

✓RING IT 

✓RESTORE CHR 

✓PUT IT IN BUFFER 

✓INCR BUFFER POINTER 

✓ I NCR CHR COUNTER 
✓ECHO CHR 

✓DO SOME MORE 


✓THIS ROUTINE FETCHES A LINE NUMBER FROM MEMORY -> DE 
✓IF IT IS LINE 0 (ZERO), THIS MEANS EOB AND IT GOES TO ENTR. 
✓IF NOT 0, JUST RETURN MUNCHES DE « A S FLAGS, BUMPS HL. 
✓HL POINTS TO LOU ORDER ON ENTRY, HI ORDER ON EXIT. 

✓STACK USAGE 2 BYTES 


002 1O0 136 
002 101 043 
002 102 126 
0O2 103 172 
002 104 263 
002 105 300 
002 106 307 


FELN, LE M 


✓LO ORDER -> E 


✓HI ORDER -> 
✓IS DE = 0 ? 


✓NOPE - RETURN 

✓YUP - BACK TO COMMAND MODE 


✓EXPRESSION EVALUATOR. USES ALL REGISTERS RESULT IS LEFT 
IN THE DE REGISTER. WILL PROBABLY RECURSE AT LEAST ONCE 

✓ 

✓ HIERARCHY 

✓ 

✓EVALUATED FIRST C ) 

✓ *, / 

✓ EVALUATED LAST <, >, * 

/ 

✓OPERATORS ON THE SAME LEVEL ARE EVALUATED LEFT TO RIGHT 


< SUM > I <SUMX<SUM> I <SUH>XSUM> 

< SUM >=< SUM > I < SUM >§< SUM > 


✓STACK USAGE: >= 10 BYTES CALLS EOM BEFORE RECURSING 


002 

002 

002 

002 

302 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 


107 313 206 002 
112 317 074 
114 124 002 
116 313 163 002 

121 320 

122 137 

123 311 

124 317 076 
126 137 002 

130 313 163 002 

133 330 

134 310 
133 137 

136 311 

137 317 073 


EXPA, 

EXPS, 


CAL SUM 
TST "< 
IFNOT TRY) 
CAL RSUM 
RFC 
LE A 
RET 

TST "> 

IFNOT TRYE 

CAL RSUH 

RTC 

RTZ 

LE A 

RET 

TST " = 


✓GET LEFT SUM 
✓FOLLOWED BY "<" ? 

✓GET RIGHT SUM AND COMPARE 
✓FALSE - DE = 0 
✓TRUE - MAKE DE = 1 

✓GREATER THAN ? 

✓GET RIGHT SUM 
✓FALSE 

✓EQUAL IS FALSE 
✓ TRUE 

✓EQUAL TO ? 


002 206 313 246 002 SUM, 

002 211 317 033 SUMA, 

002 213 230 082 

002 213 323 

002 216 315 246 002 

002 221 343 SUM1, 

002 222 031 

002 223 333 

002 224 341 

002 223 303 211 002 

002 230 317 033 SUN, 

002 232 130 002 

002 234 323 

002 233 313 246 002 

002 240 313 246 004 

002 243 303 221 002 


CAL TERM 
TST "♦ 
IFNOT SUN 
PSHX DE 
CAL TERM 
SPOHL 
DADX DE 
DEOHL 
POPX HL 
JMP SUMA 
TST 

IFNOT RET I 
PSHX DE 
CAL TERM 
CAL COMD 
JMP SUM 1 


✓GET LEFT TERM 
✓FOLLOWED BY A ? 

✓SAVE LEFT HALF 

✓GET RIGHT HALF 

✓LEFT -> HL- TXA ON STACK 

✓RIGHT ♦ LEFT -> HL 

✓RESULT -> DE 

✓RESTORE TXA 

✓CHECK FOR MORE SUMS 

✓FOLLOWED BY ? 

✓NOPE - DONE WITH ALL SUMS 

✓SAVE LEFT TERM 

✓GET RIGHT HALF 

✓DE = -RIGHT 

✓RESULT = -LEFT ♦ RIGHT 


✓ EP 11 
✓TERM EVALUATOR 

✓ < TERM > = <FACT> I < TERM) * <FACT> I (TERM) ✓ (FACT) 


002 246 313 023 003 TERM, 

002 231 317 032 TERA, 

002 233 340 002 

002 233 323 

002 236 313 023 003 

002 261 343 

002 262 343 

002 263 041 013 005 

002 266 066 021 

002 270 001 000 000 

002 273 172 LOOP, 

002 274 037 

002 273 127 

002 276 173 

0O2 277 037 

002 300 137 

002 301 065 

002 302 312 331 002 

002 303 343 

002 306 322 316 002 

002 311 343 

002 312 011 

002 313 104 

002 314 113 

002 313 341 

002 316 267 SKIP, 

002 317 173 

0O2 320 027 

002 321 137 

002 322 174 

002 323 027 

002 324 147 

002 323 343 

002 326 383 273 002 

002 331 321 MULS, 

002 332 120 

002 333 131 

0O2 334 311 

002 333 303 231 002 

802 340 317 037 TERN, 

002 342 150 082 

002 344 323 

002 343 313 023 003 

002 330 313 233 004 

002 333 343 

002 334 333 

002 333 3!* 237 004 

002 360 3C*j 

002 361 104 

002 362 113 

002 363 353 

002 364 170 DV02, 

002 363 261 

002 366 314 142 000 

002 371 021 000 000 

002 374 173 DIV1, 

002 373 221 

002 376 137 

002 377 174 

003 000 230 

003 0O1 147 

003 002 023 

003 003 322 374 002 

003 006 033 

003 007 011 

003 910 042 020 003 

003 013 301 

003 014 170 

003 013 267 


CAL FACT 
TST "* 

IFNOT TERN 

PSHX DE 

CAL FACT 

SP(>HL 

PSHX HL 

LXI HL RAM10 

LMI ill 

LXI BC 0 

LA D 

RAR 

LD A 

LA E 

RAR 

LE A 

DCM 

JTZ MULS 
SP(>HL 
JFC SKIP 
PSHX HL 
DADX BC 
LB H 
LC L 
POPX HL 
OR A 
LA L 
RAL 
LL A 
LA H 
RAL 
LH A 
SP()HL 
JMP LOOP 
POPX DE 
LD B 
LE C 
POPX HL 
JMP TERA 
TST “✓ 

IFNOT RET I 
PSHX DE 
CAL FACT 
CAL CHSG 
SPOHL 
DE(>HL 
CAL CHS? 
PSHX BC 
LB H 
LC L 
DE<>HL 
LA B 
OR C 

CTZ ERRO 
LXI DE 0 
LA L 
SU C 
LL A 
LA H 
SB B 
LH A 
INX DE 
JFC DIV1 
DCX DE 
DADX BC 
STHL PMDR 
POPX BC 
LA B 
OR A 


✓GET LEFT FACT 

✓FOLLOWED BY AN ? 

✓NOPE - TRY DIVISION 

✓SAVE LEFT FACT 

✓GET RIGHT FACT 

✓LEFT -> HL- TXA ON STACK 

✓HUMBER OF BITS 

✓CLEAR PARTIAL PRODUCT 
✓16 BIT DE ROTATE RIGHT 


✓ONE BIT DONE 
✓ALL BITS DONE 

✓BIT NOT ONE - SKIP ADD 


✓CLEAR CARRY 

✓16 BIT HL ROTATE LEFT 


✓CLEAN JUNK OFF STACK 
✓RESULT -> DE 

✓RESTORE TXA 

✓LOOK FOR ADDITIONAL OPERATORS 
✓FOLLOWED BY “/" ? 

✓NOPE - DONE WITH ALL FACTORS 
✓SAVE LEFT FACT 
✓GET RIGHT FACT 
/CHANGE SIGN IF NEEDED 
/TXA ON STK, LEFT -> HL 
✓LEFT -> DE, ABS(RIGHT) -> HL 
✓ABS(LEFT) -> DE 
✓SAVE SIGN OF RESULT 

✓ABS(RIGHT) -> BC 
✓ABS(LEFT) -> HL 
✓DIVISION BY ZERO? 

✓YUP - ERROR 
✓CLEAR QUOTIENT 
✓LEFT = LEFT -RIGHT 


✓QUO=QUO ♦ 1 

✓STILL POSITIVE - SUB AGAIN 
✓TOO FAR - QUO = QUO -1 
✓GET REMAINDER -> HL 
✓SAVE IT 

✓GET THE SIGN OF RESULT 
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003 016 374 246 004 

003 021 341 

003 022 303 231 002 


CTS COND 

POPX HL 
JMP TERA 


/COMPLIMENT RESULT MAYBE 
^RESTORE TXA 

/LOOK FOR ADDITONAL OPERATORS 


/COMMAND PROCESSOR. 


/FACTOR EVALUATOR. 


<CONSTANT> I < VAR I ABLE > I -<FACT> 
+< FACT > I < < EXPR >) I . I ? I * I 
! I * I 0 I + I \ 


/VALUE OF FACTOR LEFT IN DE ON EXIT 


003 023 
003 027 
003 031 
003 032 
003 033 
003 036 
003 041 
003 043 
003 043 
003 030 
003 033 
003 053 
003 037 
003 060 
003 063 
003 064 
003 063 
003 067 
003 071 
003 072 
003 073 
003 076 
003 077 
003 101 
003 103 
003 104 
003 107 
003 110 
003 111 
003 113 
003 113 
003 116 
003 121 
003 122 
003 123 
003 126 
003 130 
003 132 
003 134 
003 137 
003 142 
003 143 
003 143 
003 146 
003 130 
003 132 
003 133 
003 136 
003 161 
003 162 
003 163 
003 164 
003 166 
003 170 
003 171 
003 174 
003 173 
003 176 
003 200 
003 202 
003 203 
003 206 
003 211 
003 212 


317 

031 

033 

327 

332 
314 
317 
033 
313 
303 
317 
065 

333 
032 
333 
311 
317 
077 
333 
032 
333 
311 
317 
111 
333 
032 
333 
311 
317 
126 
333 
032 
1 7b 
333 
303 
317 
146 
076 
062 
313 
137 
026 
311 
317 
164 
349 
313 
032 
337 
341 
311 
317 
176 
333 
032 
333 
311 
317 
220 
343 
313 
032 
343 
311 


203 004 
142 000 
033 
003 

023 003 
246 004 
036 
003 

262 004 


044 

003 


043 

003 


041 

003 


142 003 
046 
003 
333 

013 003 
013 003 


136 

003 


364 001 
003 003 


137 

003 


364 001 
007 003 


TST “ + 
IFNOT FACA 
DCX HL 
FETCH 
JTC DEINT 
CT2 ERRO 
TST *- 
IFNOT TRY. 
CAL FACT 
JMP COMD 
TST " . 
IFNOT TRY* 
DE<>HL 
LDHL CURL 
DE<>HL 
RET 

TST "* 
IFNOT TRY5C 
DE<>HL 
LDHL DLAD 
DE<>HL 
RET 

TST “7. 
IFNOT TRY! 
DEOHL 
LDNL RMDR 
DE<>HL 
RET 
TST " ! 
IFNOT TRY* 
DE<>HL 
LDHL MADR 
LA H" 

DE<>HL 
JMP ARET 
TST "* 
IFNOT TRY* 
LAI 333 
STA RAM 10 
CAL RAMIO 
LE A 
LDI 0 
RET 

TST "♦ 
IFNOT TRY«- 
PSHX HL 
CAL EOM 
LDHL DEFF 
EXPR 
POPX HL 
RET 

TST " + 
IFNOT USR? 
DE<>HL 
LDHL LRES 
DE<>HL 
RET 

TST "0 
IFNOT TRY\ 
PSHX HL 
CAL EOM 
LDHL USRL 
SPOHL 
RET 


/UNARY PLUS ? 

/IGNORE IT 

/IS THIS A CONSTANT? 

/SET FLAGS/ TC IS 0 - 9, T2 IS TERMN 
/YUP - GET VAL -> DE AND EXIT 
/MISSING EXPRESSION ERROR 
/UNARY MINUS ? 

/GET FACTOR TO NEGATE 
/COMPLIMENT IT/ RETUPN FROM COMD 
/CURRENT LINE ? 

/SAVE TXA IN DE 

/GET CURRENT LINE # -> DE 

/RESTORE TXA 

/RETURN ADDRESS ? 

/SAVE TXA 

/GET RETURN ADDRESS -> HL 
/RESTORE TXA 

/DIVISION REMAINDER ? 

/SAVE TXA 

/GET REMAINDER -> HL 
/RESTORE TXA 

/PEEK ? 

/SAVE TXA 

/GET LAST MEMORY ADDRESS -> HL 

/PEEK -> A 

/RESTORE TXA 

/RETURN VALUE IN A REG 

/PORT INPUT ? 


/SETUP INP INST IN RAM 
/EXECUTE IT 

/SETUP TWO BYTE VALUE - 


/USER DEFINED FUNCTION REFERENCE 
/SAVE TXA 

/VERIFY ROOM FOR RECURSION 
/TXA OF DEFINITION 
/EVALUATE THE FUNCTION 
/RESTORE TXA 

/RESULT OF LAST EXPRESSION ? 
/SAVE TXA 

/GET LAST EXPR RESULT -> HL 


/MACHINE LANGUAGE CALL ? 
/SAVE TXA 

/ENUF STACK SPACE ? 

/HIS ROT ADR ON STK, 


/GOTO TO HIS ROT 


TXA -> HL 


/SAMPLE USR ROT TO RETURN THE ASCII VALUE OF THE CHR 
/FOLLOWING THE 0 


003 213 136 
003 214 026 i 
003 216 043 
003 217 311 

003 220 317 
003 222 232 
003 224 313 
003 227 303 
003 232 317 
003 234 266 
003 236 343 
003 237 313 
003 242 341 
003 243 337 
003 244 317 
003 246 137 
003 230 311 
003 231 313 
003 234 136 
003 233 026 
003 237 302 
003 262 043 
003 263 126 
003 264 341 
003 263 311 


134 

003 

117 003 
142 003 
030 
003 

364 001 


202 003 TRYV, 


LDI 0 
I NX HL 
RET 

TST "v 
IFNOT TRYt 
CAL TTYI 
JMP ARET 
TST "< 
IFNOT TRY? 
PSHX HL 
CAL EOM 
POPX HL 
EXPR 
TST ") 
IFNOT SNER 
RET 

CAL LOKU 
LE M 
LDI 0 
JF2 TRYW 
I NX HL 
LD M 
POPX HL 
RET 


/SETUP TWO BYTE VALUE -> DE 


/MOVE TXA OVER CHR 


/SINGLE CHR INPUT ? 

/GET THE INPUT -> A 

/EXPRESSION IN PARENTHESIS ? 

/MAKE SURE THERE IS ROOM BEFORE 
/RECURSING 

/RECURSIVE 

/GOT TO HAVE A RIGHT TO MATCH 
/NOPE - ERROR 

/GET THE VARIABLES INDES -> HL 
/VAR VAL -> DE 

/CLEAR HIGH BITS IF SINGLE ARRAY 
/SINGLE BYTE ARRAY, DON'T LOAD HI 


/RESTORE TXA, PUSHED BY LOKU 


/TRY? WILL HANDLE THE INPUT OPERATOR IF PRESENT EXECUTIO 
/UILL STOP AND A M ?“ WILL BE PRINTED ON THE OUTPUT DEVICE 
/THE USER RESPONDS WITH ANY VALID EXPRESSION, AND HITS 
/RETURN IT IS NOT A GOOD IDEA TO TYPE QUESTION MARKS 
/IN RESPONSE TO AN INPUT STMT !•!! MUNCHES LINE 


003 266 317 
003 270 231 
003 272 337 
003 273 077 
003 274 240 
003 273 343 
003 276 313 
003 301 313 
003 304 327 
003 303 312 
003 310 337 
003 311 341 
003 312 311 
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077 

003 


TRY?, 


364 001 
016 002 


TST "? 

IFNOT TRYV 
MSGP 

DSS "?, " +2' 

PSHX HL 
CAL EOM 
CAL GETL 
FETCH 
JT2 ENTR 
EXPR 
POPX HL 
RET 


/THE LINE INPUT OPERATOR 7 


/SEND THE QUESTION MARK 


/SAVE THE TXA 

/VERIFY ROOM FOR RECURSION 
/GET HIS INPUT 
/GET FIRST CHR, RETURN f 
/YUP - CLEAR STK AND RE-ENTER 
/EVALUATE HIS INPUT RECURSIVE 
/RESTORE TXA 


003 313 317 133 
003 315 334 003 
003 317 176 
003 320 043 
003 321 376 133 
003 323 302 317 003 
003 326 043 
003 327 337 
003 330 343 
003 331 303 341 001 
003 334 341 
003 333 317 114 
003 337 004 004 
003 341 313 205 004 
003 344 313 370 000 
003 347 140 
003 350 131 
003 331 076 
003 352 043 
003 333 31 


LISC, 
160 005 LISA, 


066 


003 356 315 154 005 
003 361 315 100 002 
003 364 345 
003 363 333 
003 366 313 
003 371 341 
003 372 043 
003 373 176 
003 374 267 
003 373 312 352 003 
004 000 347 
004 001 303 372 003 

004 0O4 317 116 

004 006 037 U04 

004 010 032 236 004 

004 013 257 

004 014 167 

004 013 043 

004 016 167 

004 017 043 

004 020 167 

004 021 042 260 004 

004 024 301 

004 023 052 377 004 

004 030 371 

004 031 305 

004 032 052 236 004 

004 033 033 

004 036 311 

004 037 317 122 
004 041 173 003 
004 043 312 024 004 
004 046 337 
004 047 303 207 001 


TST "C 
IFNOT CMD 
LA M 
I NX HL 
CPI M ] 

JFZ LOP 
I NX HL 
EXPR 
SP< >HL 
JMP LETS 
POPX HL 
TST "L 
IFNOT NEW? 
CAL DEINT 
CAL LFND 
LH B 
LL C 
DSS 76 
I NX HL 
CAL ABRT 
CAL CRLF 
CAL FELN 
PSHX HL 
DEOHL 
CAL NOSP 
POPX HL 
I NX HL 
LA M 
OR A 

JTZ LISC 
DEVO 

JMP LISB 

TST "N 
IFNOT RUN? 
LDHL BOTX 


I NX HL 
LM A 

STHL EOTX 
POPX BC 
LDHL SPRS 
SP< HL 
PSHX BC 
LDHL BOTX 
DCX HL 
PET 

TST "R 
IFNOT OS? 
JTZ RSSP 
EXPR 

JMP GOTA 


/ARRAY LET STMT ? 

/NOPE - IT'S A COMMAND 
/MOVE TO RIGHT EXPR 


/MOVE OVER "=" 

/EXPR VALUE -> DE 

/EOS TXA ON STK, SOS TXA -> HL 

/DO THE ASSIGNMENT 

/RESTORE SOL TXA 

/LIST COMMAND ? 


/GET ARG -> DE, 
/FIND THAT LINE 
/START ADDRESS - 


IF NO ARG 


/SETUP BOGUS LAI 
/SKIPPED FIRST TIME THRU, 
/CONTROL C 00 CHECK 


EXIT IF ZERO 


/FETCH LINE « -> DE, 

/SAVE DURING PRINT 
/LINE # -> HL 
/PRINT IT 

/FIRST CHR OF LINE 
/GET A CHR 

/EOL? 

/LAST ON LINE - DO NEXT LINE 
/NOT LAST - PRINT IT 
/DO REST OF LINE 

/NEW COMMAND ? 

/PUT EOB MARK IN BUFFER 


/RETURN ADDRESS -> BC 
/HOLDS STACK RESET ADDRESS 

•RESTORE RETURN ADDESS 
/INCASE THIS IS SUICIDAL 
/BOTX - 1 -> HL 


/RUN COMMAND ? 

/NO ARG - RESET STACK AND GO 
•GET THE ARGUMENT 
/DO A GOTO 


/THESE ROUTINES ARE USED TO PRINT THE 16 BITS IN THE 
/HL REGISTER AS DECIMAL ASCII ON THE TERMINAL INPT PRINTS 
/THE NUMBER IN CURL IF IT IS NOT 63535 -NOT IMMEDIATE MODE). 
/THE WORD "IN" PRECEDES THE NUMBER IF IT IS PRINTED SHLP 
/FRINTS A 15 BIT SIGHED NUMBER IN HL (-32768 TO 32767; 

/HLPT PRINTS THE 16 BIT UNSIGNED NUMBER IN HL <0 TO 65535) 
/NOSP PRINTS 16 BIT UNSIGNED NUMBERS IN HL WITHOUT THE 
/LEADING SPACE NORMALLY PRINTED ALL NUMBERS ARE FOLLOWED 
/BY ONE TRAILING SPACE SHLP PRINTS A MINUS SIGN ("-") 

-IN PLACE OF THE LEADING SPACE IF HL IS NEGATIVE 


/STACK USAGE 


BYTES. 


MUNCHES ALL REGS 


004 052 032 262 004 INPT, 

004 033 174 

004 056 245 

004 037 074 

004 060 310 

004 061 337 

004 062 111 

004 063 316 

004 064 357 HLPT, 

004 063 240 

004 066 021 136 004 NOSF, 

004 071 323 

004 072 016 081 

004 074 343 POSI, 

004 073 136 

004 076 043 

004 077 126 

004 100 043 

004 101 343 

004 102 006 000 

004 104 173 DIVD, 

004 105 223 

004 106 137 

004 107 174 

004 110 232 

004 111 147 

004 112 004 

004 113 322 104 004 

004 116 003 

004 117 031 

004 120 257 

C04 121 260 

004 122 302 131 004 

U-.4 123 261 

004 126 302 136 004 

004 131 306 060 PRNT, 

004 133 016 000 

004 133 347 

004 136 173 BYPA, 

004 137 075 

004 140 302 074 004 

004 143 321 

004 144 171 

004 143 267 

004 146 312 153 004 

004 151 357 

004 152 260 

0O4 153 357 SPOU. 

004 134 240 
004 155 311 

004 136 020 047 TENS, 

004 160 350 003 


LDHL CURL 
LA H 
ND L 
INA 
RTZ 
MSGP 

DSS “I,"N + 20 
MSGP 

DSS " +200 
LX I DE TENS 
PSHX DE 
LCI 1 
SP< >HL 
LE M 
I NX HL 
LD M 
I NX HL 
SP< >HL 
LB I 0 
LA L 
SU E 


SB D 
LH A 
INB 

JFC DIVD 
DCB 

DADX DE 
XR A 
OR B 


ADI "0 
LCI 0 
DEVO 
LA E 
DCA 

JFZ POSI 
POPX DE 
LA C 
OP A 

JTZ SPOU 
MSGP 

DSS "0+200 
MSGP 

DSS M +200 
RET 

DSD 010000, 


/CURRENT LINE NUMBER 
/IS IT 377 377 


/YUP - 
/NOPE 


RETURN PRINT NOTHING 
- PRINT "IN” 


/PRINT A SPACE 

/POINT TO POWERS OF TEN TABLE 
/PUT TABLE ADR ON STACK 
/CLEAR SIGNIFICANT DIGIT FLAG 
/NUMBER ON STK, TABLE - HL 
/POWER OF TEN -> DE 


TABLE ON STK. NUMBER -> HL 
THIS DIGIT = 0 

/16 BIT SUBTRACT HL = HL - D 


/INCREMENT THIS DIGIT 
/NOT NEGATIVE YET - KEEP SUBTRACING 
•GONE ONE TOO FAR. DIGIT = DIGIT -1 
•'GONE TOO FAR, ADD BACK TEN POWER 
/ A = 0 

/IS THIS DIGIT ZERO ? 

/NOPE - PRINT IT 

/ANY SIGNIFICANT DIGITS YET ° 

/NOFE - DON'T PRINT THIS ZERO 
/ADD IN ASCII BIAS 
/SET SIGNIFICANT DIGIT FLAG 
/SEND THIS DIGIT 
/ON THE LAST DIGIT ? 

/NOPE - DO NEXT ONE 
YUP - CLEAN UF STACK 
/SIGNIFICANT DIGIT FLAG -> w 
HAVE WE SENT ANY SIG DIGS YET ? 
/YUP - OUTPUT THE TRAILING SPACE 
/NOPE - WE'RE PRINTING A ZERO 
/SEND A ”0" 

/PRINT A SPACE 
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004 

162 

144 

000 





803 

137 

311 



RET 


004 

164 

012 

000 









/ 



004 

166 

001 

000 









/ABRT 

CHECKS THE CONSOLE DEVICE FOR A CHR AND IF THERE. 

004 

170 

333 



SHLP» 

DE<>HL 

/NUMBER -> DE 





/CHECK 

IF IT'S A CONTROL C. IF NOT. RETURN WITH A MUNCHED. 

004 

171 

313 

233 

004 


CAL CHSG 

/ABS<NUMBER) -> DE 





/IF YES. FALL THROUGH 

TO STOP ROUTINE. 

004 

174 

353 




DE< >HL 

/ABS<NUMBER) -> HL 





/STACK 

USAGE. 6 BYTES. 

004 

173 

362 

064 

004 


JFS HLPT 

/WAS POSITIVE. PRINT SPACE 





/ 



004 

200 

337 




MSGP 

/PRINT THE MINUS SIGN ("-“) 

003 

160 

313 

134 

003 ABRT, 

CAL TRDY 

/IS DATA READY FLAG UP ? 

004 

201 

233 




DSS "-+200 


005 

163 

310 


TIB. 

RTZ 

/NOPE - RETURN 

004 

202 

303 

066 

004 


JMP NOSP 

/PRINT THE NUMBER 

003 

164 

313 

117 

003 

CAL TTYI 

/YUP - FETCH THE CHR 






/ 



003 

167 

376 

003 


CPI 3 

/A CONTROL C (+C> ? 









003 

171 

300 



RFZ 

/NOPE - RETURN 






/ 



085 

172 

307 



RST 

/BACK TO ENTRY POINT 






/DEINT 

TAKES ASCII FROM MEMORY INTO BINARY IN DE 





/ 








✓MOVES 

TXA UNTIL CHR 

IS NOT 0-9 





/ 








✓STACK 

USAGE 4 BYTES MUNCHES ALL REGS EXCEPT BC 

005 

173 

317 

117 

OS?, 

TST "0 

/JMP TO OS ? 






/ 



003 

173 

002 

006 

OSPK, 

IFNOT SAV? 

/MIGHT BE POKED TO SNER 

004 

205 

053 



DEINT, 

DCX HL 

/DECR FOR FETCH 

003 

177 

303 

000 

374 

JMP OS 


004 

206 

021 

000 

000 


LXI DE 0 

/CLEAR PARTIAL SUM 





/ 



004 

211 

327 



DEIM, 

FETCH 

/FETCH CHR 0-9? 








004 

212 

320 




RFC 

/NOPE - DONE 





/LOKU 

GETS THE INDES 1 

OF THE VARIBLE POINTED TO BY HL AND 

004 

213 

343 




PSHX HL 

/SAVE CHR ADR 





/RETUNS THEM IN HL. 

THE TXA IS BUMPED OVER THE VARNAM. 

004 

214 

142 




LH D 

/PARTIAL SUM -> HL 





/AND PUSHED BEFORE RETURNING. YOU MUST POP AFTER CALLING 

004 

213 

133 




LL E 






/LOKU 

USES ALL REGS 

EXCEPT DE. STACK USAGE. 4 BYTES IF 

004 

216 

031 




DADX DE 

/HL = DE * 10 





/VAR IS A - Z, >■ 16 

IF SUBSCRIPTED. ZERO FLAG IS TRUE 

004 

217 

051 




DADX HL 

/PS = PS * 10 





/IF IT 

IS DOUBLE BYTE 

VAR (SIMPLE OR DOUBLE ARRAY). ZERO 

004 

220 

031 




DADX DE 






/IS FALSE IF SINGLE BYTE VARIABLE (SINGLE BYTE ARRAY). 

004 

221 

031 




DADX HL 






/ 



004 

222 

326 

060 



SUI "0 

/REMOVE ASCII BIAS 

005 

202 

176 


LOKU, 

LA M 

/VARNAM -> A 

004 

224 

137 




LE A 

/SETUP 16 BIT DIGIT -> DE 

003 

203 

326 

101 


SUI "A 

/IS IT A - Z ? 

004 

223 

026 

000 



LDI 0 


003 

205 

332 

232 

003 LKP1, 

JTC DARY 

/NOPE 

004 

227 

031 




DADX DE 

/ADD IN NEW DIGIT 

003 

210 

376 

033 


CPI 027 

/26 LETTERS ♦ 1 

004 

230 

333 




DE<>HL 

/PARTIAL SUM -> DE 

003 

212 

322 

232 

003 LKP2, 

JFC DARY 

/NOPE - TRY ARRAYS IF NOT POKED 

004 

231 

34 1 




POPX HL 

/RESOTRE TXA 






/SAVE NEU TXA 

ON STACK BEFORE RETURNING 

004 

232 

303 

211 

004 


JMP DEIM 


003 

213 

043 



I NX HL 

/MOVE TXA OVER VARNAM 









003 

216 

343 



SPOHL 

/PUT TXA ON STK 






✓ CHS? 

CHECKS THE SIGN 

1 OF DE REG IF POSITIVE. RETURN A 

003 

217 

343 



PSHX HL 

/PUT RETURN ADDRESS BACK 






/MUNCHED, SIGH BIT FALSE IF NEGATIVE, COMPLIMENT DE, 

003 

220 

04 1 

022 

003 

LXI HL VART 

/BASE ADDRESS -> HL 






/A MUNCHED. SIGN BIT 

SAME AS THAT OF B REG CHSG 

003 

223 

007 



RLC 

/MULTIPLY INDEX BY 2 






/CLEARS THE SIGN BIT 

OF B REG FIRST COMD UNCONDITIONALLY 

003 

224 

117 



LC A 

/TWO BYTE INDEX -> BC 






/COMPLIMENTS DE REG 

STACK USAGE 2 BYTES 

003 

223 

006 

000 


LBI 0 










003 

227 

011 



DADX BC 

/ADD IN INDEX TO 8ASE 

004 

233 

006 

000 


CHSG, 

LBI 0 

/CLEAR RESULT SIGN 

003 

230 

237 



XR A 

/SET ZERO FLAG. THIS IS DOUBLE BYTE 

004 

237 

172 



CHS?, 

LA D 

/IS DE POSITIVE ? 

003 

231 

311 



RET 


004 

240 

267 




OR A 






/ 



004 

241 

360 




RFS 

/YUP - RETURN 



232 

003 

EOP1*. 


/THIS WILL BE BOTX-1 IF ARRAYS. 

004 

242 

170 




LA B 

/NOPE - FLIP SIGN OF B 







/STRINC, AND TAPE / SAVE ARE DELETED 

004 

243 

336 

200 



XRI 200 






/ 



004 

245 

107 




LB A 

/AND FALL THRU TO COMPLIMENT DE 

003 

232 

317 

042 

DARY, 

TST ■" 

/DOUBLE BYTE ARRAY ? 

004 

24 6 

172 



COMD, 

LA D 


005 

234 

23? 

003 


IFNOT SARY 


004 

247 

037 




CMA 


003 

236 

313 

272 

003 

CAL SUBS 

/GET THE SUBSCRIPT -> BC 

004 

230 

127 




LD A 


003 

241 

343 



SPOHL 

/INDES -> HL, TXA ON STK 

004 

25 1 

173 




LA E 


003 

242 

343 



PSHX HL 


004 

232 

05 7 




CMA 


003 

243 

032 

336 

003 

LDHL DBSE 


004 

233 

137 




LE A 


003 

246 

01 1 



DADX BC 


004 

234 

023 




I NX DE 


003 

247 

011 



DADX BC 


004 

233 

311 




RET 


003 

230 

237 



XR A 

/SET ZERO FLAG, THIS IS DOUBLE BYTE 






/ 



003 

231 

311 



RET 










003 

232 

317 

047 

SARY, 

TST 

/SINGLE BYTE ARRAY ? 






/ 



003 

234 

137 

000 


IFNOT SNER 







/RAM DEFINITIONS 


003 

236 

313 

272 

003 SSUB, 

CAL SUBS 

/SUBSCRIPT -> BC 






/ 



003 

261 

343 



SPOHL 

/TXA ON STK. INDES -> HL 

004 

236 

154 

006 


B0TX, 

DSD EOP 

/ADR OF FIRST CHR IH BUFFER 

003 

262 

343 



PSHX HL 


004 

260 

136 

006 


EOTX, 

DSD EOP+2 

/ADR OF LAST CHR IN BUFFER 

003 

263 

032 

334 

003 

LDHL SBSE 


004 

262 

377 

377 


CURL, 

DSD '377 377 

/CURRENT LINE NUMBER 

005 

266 

01 1 



DADX BC 




1 10 

000 


LBUL=072 

/INPUT LINE BUFFER LENGTH 

003 

267 

366 

001 


OR I 1 

/RESET ZERO FLAG. TO SAY SINGLE BYTE 



000 

374 


0S='374 

/ADDRESS OF OPERATING SYSTEM 

003 

271 

31 1 



RET 


004 

264 

000 



LINB, 

DSS 0 

/LEAVE SPACE FOR INPUT LINE BUF 





/ 





377 

004 



*.+LBUL+2 






/SUBS 

GETS THE SUBSCRIPT FOR A STRING OR ARRAY -> BC 

004 

377 

000 

010 


SPRS, 

DSD '10 

/ADDRESS OF STACK POINTER RESET 





/MUNCHES ALL REGS EXCEPT DE STACK USAGE: >* 14 BYTES. 

003 

001 

ooe 

000 


LRES, 

DSD 0 

/HOLDS RESULT OF LAST EXPR EVAL 





/ 



005 

003 

000 

0C0 


DLAD, 

DSD 0 

/HOLDS RETURN LINE NUMBER FOR "*" 

003 

272 

323 


SUBS, 

PSHX DE 

/SAVE DE 

00 5 

0O3 

033 

001 


DEFF, 

DSD COLN+1 

/INITIALIZE TXA OF USER DEFINED FUN 

003 

273 

317 

133 


TST "[ 

/IGNORE "t" 

005 

007 

213 

003 


USRL, 

DSD USR 

/ADR OF USERS MACHINE LANG CALL 

003 

273 

277 

003 


IFNOT SUB0 


005 

01 1 

154 

006 


SSTM, 

DSD EOP 

/INITIALIZE START OF LAST STMT 

003 

277 

337 


SUB0, 

EXPR 

/GET THE SUBSCRIPT -> DE 

005 

013 

323 

010 


RAM I0, 

OUT 10 

/RAM AREA FOR INP AND OUT 

003 

300 

102 



LB D 

/SUBSCRIPT -> BC 

005 

015 

31 1 




RET 


003 

301 

113 



LC E 


005 

816 

000 

000 


MADR, 

DSD 0 

/SAVE AREA FOR PEEK / POKE ADDRESSES 

005 

302 

321 



POPX DE 

/RESTORE DE 

603 

020 

000 

000 


PMDR, 

DSD 0 

/SAVE AREA FOR DIVISION REMAINDER 

003 

303 

317 

133 


TST " 3 

/IGNORE "3" 

005 

022 

000 



VART, 

DSS 0 

/LEAVE ROOM FOR PROGRAM VARIABLES 

003 

303 

307 

003 


IFNOT SUB1 




106 

003 



* +051 


003 

307 

311 


SUB!, 

RET 










003 

310 

317 

047 

BSES, 

TST 

/SET SINGLE BYTE ARRAY BASE ? 









003 

312 

322 

003 


IFNOT BSED 







/DEV0 

STARTS AT RESTART 4 

003 

314 

333 



DEOHL 

/NEW BASE -> HL 






/DEV0, 

PSHX PSW 


003 

313 

042 

334 

003 

STHL SBSE 

/SAVE NEW BASE 







INP 1 


003 

320 

341 



POPX HL 

/RESTORE EOS TXA 







NDI 2 


003 

321 

311 



RET 


003 

106 

312 

041 

000 

DEVP, 

JT2 DEVO 

/NOT READY 

003 

322 

317 

042 

BSED, 

TST "" 

/SET DOUBLE BYTE ARRAY BASE ? 

003 

1 1 1 

361 




POPX PSU 


003 

324 

341 

001 


IFNOT LETS 

/MUST BE A LET 

005 

112 

323 

010 


T0DP, 

OUT 10 


003 

326 

333 



DEOHL 

/NEW BASE -> HL 

005 

114 

311 




RET 


005 

327 

042 

336 

005 

STHL DBSE 

/SAVE NEW BASE 

005 

115 

000 

000 



DSD 0 

/PATCH ROOM 

003 

332 

341 



POPX HL 

/RESTORE EOS TXA 









003 

333 

311 



RET 







/TTY I 

GETS A CHR FROM THE INPUT DEVICE. CAN MUNCH A AND 





/ 








/FLAGS 

STACK USAGE: 

4 BYTES 

003 

334 

010 

370 

SBSE, 

DSD '370 10 

/ADR OF SINGLE BYTE ARRAY BASE ADR 









003 

336 

010 

370 

DBSE, 

DSD '370 10 

/ADR OF DOUBLE BYTE ARRAY BASE ADR 

005 

1 1 7 

313 

134 

003 

TTY I , 

CAL TRDY 

/IS INPUT READY ? 





/ 



005 

122 

312 

1 17 

003 

TIA, 

JT2 TTYI 

/NOPE - KEEP TRYING 



340 

005 

E0P2=. 


/THIS WILL BE BOTX-1 IF STRINGS AND 

003 

123 

333 

000 


TIDP, 

INP 0 








/TAPE / SAVE ARE DELETED. 

005 

127 

346 

177 



NDI 177 






/ 



003 

131 

31 1 




RET 


003 

340 

317 

051 

PRI). 

TST ") 

/PRINT STRING ARRAY ? 

005 

132 

000 

000 



DSD 0 

/LEAVE ROOM FOR PATCHES 

003 

342 

156 

001 


IFNOT PEXP 







/ 



003 

344 

313 

236 

003 

CAL SSUB 

/GET STRINC TXA -> HL. TXA ON STK 






/TEST 

TERMINAL INPUT 

READY BIT STATUS MUNCHES A & FLAGS 

003 

347 

333 



DEOHL 

/STRING TXA -> DE 






/STACK 

USAGE 2 BYTES 

003 

330 

341 



POPX HL 

/TXA BACK -> HL 






/ 



003 

331 

032 


STRA, 

LDAX DE 

/GET A STRING CHR 

003 

134 

333 

00 : 


TRDY, 

INP 1 

/GET INPUT STATUS 

003 

332 

267 



OR A 

/EOS YET ? 

003 

136 

346 

001 


TIRM, 

NDI 1 

/MASK TO INPUT READY BIT 

003 

333 

312 

163 

001 

JTZ PEXO 

/YUP - DO MORE OF ? STMT 

003 

140 

31 1 




RET 

/FZ MEANS READY. TZ MEANS NOT READY 

005 

336 

347 



DEVO 

/NOPE - PRINT IT 

005 

141 

000 

000 



DSD 0 

/ROOM FOR PATCHES 

003 

337 

023 



I NX DE 

/BUMP STRING TXA 






/ 



003 

360 

303 

331 

003 

JMP STRA 

/PRINT SOME MORE 

005 

143 

25 7 



CRLE, 

XR A 

/A CONTINUATION OF CETL 





/ 



005 

144 

167 




LM A 

/PUTS EOB/EOL MARK IN LINB 

003 

363 

317 

031 

NPRT, 

TST ") 

/STRING INPUT ? 

003 

143 

04 3 




I NX HL 


085 

363 

172 

001 


IFNOT NPRU 


005 

1-6 

167 




LM A 


003 

367 

313 

256 

003 

CAL SSUB 

/GET STRING DESTINATION TXA -> HL 

005 

147 

04 5 




I NX HL 


003 

372 

337 



MSGP 

/PRINT PROMPT " 

003 

150 

167 




LM A 


003 

373 

033 



DSS "-. " +200 

005 

15; 

04 1 

263 

004 


LXI HL LINB-I 

l 

0O3 

374 

240 













0O3 

373 

313 

021 

002 

CAL GETL+3 

/USE GETL TO INPUT STRINC 






/CRLF 

SEND A CARRIAGE RETURN AND LINE FEED TO TERMINAL 

006 

000 

34 1 



POPX HL 

/GET TXA BACK. (PUSHED BY SSUB) 






/MUNCHES A l FLAGS 

STACK USAGE 3 BYTES 

0O6 

001 

311 



RET 


0G5 

154 

237 



CRLF, 

MSGP 




002 

006 

E0P3=. 


/THIS WILL BOTX-1 IF SAVE / TAPE 

003 

135 

013 




DSS 13.212 








/IS DELETED 

003 

136 

212 










/ 
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/SAV? PUNCHES TAPES OF THE CONTENTS OF THE TEXT 
/BUFFER. RETURNS TO COMMAND MODE WHEN DONE 
/COMMAND IS FOLLOWED BY A SINCLE CHR PROGRAM NAME SO 
/MORE THAN ONE PCM CAN BE PUT ON A TAPE IF CR IS 
/GIVEN FOR NAME/ PUNCH NAME AS A NULL 
/ 

/TAPE FORMAT : 

/ 

/ 232 START CHR 

/ XXX NAME OF PROGRAM/ 000 IF NULL NAME 

/ NNN DATA BYTES BETWEEN BOTX AND EOTX 

/ 000 


006 002 317 123 SAV?, 

006 004 040 006 

006 006 076 232 

006 010 313 126 006 

006 013 176 

006 014 313 126 006 

006 017 032 260 004 

006 022 333 

006 023 032 236 004 

006 026 176 SAVA, 

006 027 313 126 006 

006 032 367 

006 033 043 

006 034 302 026 006 

006 037 307 


000 EOT IS MARKED BY THREE NULLS 


TST "S 
IFNOT TAP? 
LAI 232 
CAL PNOU 
LA M 

CAL PNOU 
LDHL EOTX 
DEOHL 
LDHL BOTX 
LA M 

CAL PNOU 
CMPR 
I NX HL 
JFZ SAVA 
RST 


/SAVE COMMAND ? 

/START OF TAPE CHR 
/SEND IT 

/PROGRAM NAME CHR -> A 
/SEND IT 

/STOP ADDRESS -> DE 

/START OF TEXT ADR -> HL 
/CHR OF PROGRAM -> A 
/SEND IT 
/DONE YET ? 

/BUMP TXA 

/NOPE - KEEP SAVING 
/ALL DONE- RE-ENTER 


/TAP? READS A TAPE FROM THE READER INTO THE TEXT 
/BUFFER RETURNS TO COMMAND MODE WHEN DONE COMMAND IS 
/FOLLOWED BY A SINGLE CHR PROGRAM NAME- LIKE SAVE 
/IT WILL SEARCH THE TAPE FOR A START CHR FOLLOWED BY THE 
/NAME GIVEN IF CR IS GIVEN FOR A NAME- TAKE FIRST ONE 
/FOUND. IF THE NAMED PROGRAM CAN'T BE FOUND, THE TEXT 
/BUFFER IS LEFT ALONE WHEN READING STARTS, THE NAME 
/BYTE FROM TAPE IS ECHOED SO YOU'LL KNOW IT IS LOADING 


006 040 317 124 

006 042 137 000 

006 044 313 142 006 

006 047 376 232 

006 031 302 044 006 

006 034 313 142 006 

006 037 276 

006 060 312 072 006 

006 063 107 

006 064 176 

006 063 267 

006 066 170 

006 067 302 044 006 

006 072 347 

006 073 032 236 004 

006 076 016 003 

006 100 313 142 006 

006 103 167 

006 104 313 367 001 

006 107 176 

006 110 043 

006 111 267 

006 112 302 076 006 

006 113 013 

006 116 302 100 006 

006 121 033 

006 122 042 260 004 

006 123 307 


TAP?, TST "T 

IFNOT SNER 

TAPA, CAL CHIN 
CPI 232 
JFZ TAPA 
CAL CHIN 
CP M 
JTZ TAPF 
LB A 

LA M 
OR A 
LA B 

JFZ TAPA 
TAPF, DEVO 

LDHL BOTX 

TAPB, LCI 3 

TAPC, CAL CHIN 
LM A 
CAL EOH? 

LA M 

I NX HL 
OR A 

JFZ TAPB 
DCC 

JFZ TAPC 
DCX HL 
STHL EOTX 
RST 


/READ A TAPE COMMAND ? 

/GET A CHR 
/START CHR ? 

/NOPE - KEEP LOOKING 
/YUP - GET NAME CHR 
/THE ONE WE WANT ? 

/YUP - START READING 
/SAVE NAME IN B 

/DID HE GIVE DON'T CARE NAME ? 

/NAME FROM TAPE -> A 

/NOPE - DON'T READ THIS ONE IN 

/SEND NAME OF PGM BEING READ 

/WHERE IT WILL GO 

/INITIALIZE EOT NULL COUNTER 

/GET A CHR 

/PUT IN RAM 

/PGM TOO BIG ? 

/GET CHR BACK 

/BUMP 

/A NULL ? 

/NOPE - KEEP READING 
/DECR EOT NULL COUNT 
/NOT THIRD ONE - KEEP READING 
/STORE NEW EOTX 

/BACK TO COMMAND MODE 


006 126 363 
006 127 333 003 
006 131 346 002 
006 133 312 127 
006 136 361 
006 137 323 016 
006 141 311 


/PNOU IS THE PUNCH DRIVER USED BY SAVE ENTER WITH CHR TO 
/SEND IN A REG STACK USAGE 2 BYTES 


PNOU, 

PNOV. 
CORN, 

006 COA, 

CODP, 


PSHX PSW 
INP 3 
NDI 2 
JTZ PNOV 
POPX PSW 
OUT 16 
RET 


/SAVE CHR TO SEND 
/GET PUNCH STATUS 
/READY YET ? 

/IT'S READY- SEND THE CHR 


006 142 333 003 
006 144 346 001 
006 146 312 142 
006 131 333 004 
006 133 311 


/CHIN IS THE READER INPUT ROUTINE CALLED BY THE SAVE 
/COMMAND. IT MUNCHES A 4 FLAGS STACK USAGE: 2 BYTES 


CHIN- 
CIRM- 
006 CIA, 
CIDP. 


INP 3 
NDI 1 
JTZ CHIN 
INP 4 
RET 


/GET READER STATUS 
/READY YET ? 

/NOPE - WAIT FOR IT 

/GOT A READY, GET THE INPUT 


000 007 
134 006 


EOP=. 


PGE='7 /PAGE FOR BINARY LOADER 

/THIS IS BOTX-1 IF TAPE / SAVE ARE KEPT 


/INIT IS THE INITIALIZATION ROUTINE IT IS LOCATED IN THE 
/MIDDLE OF THE CASUAL PROGRAM STORAGE AREA IT IS ENTERED 
/WHEN CASUAL IS EXECUTED AFTER LOADING IT POKES OUT 
/THE JUMP TO IT. RESPOND TO "MEM SIZ ?" WITH THE 
/DECIMAL NUMBER OF THE HIGHEST ADDRESS TO BE USED BY CASUAL 
/OR HIT CARRIAGE RETURN TO USE ALL RAM AVAILABLE 


006 134 061 000 010 INIT, 

006 137 337 

006 160 013 

006 161 012 

006 162 113 

006 163 103 

006 164 113 

006 163 040 

006 166 123 

006 167 111 

006 170 132 

006 171 277 

006 172 313 016 002 

006 173 327 

006 176 302 221 006 

006 201 041 247 006 

006 204 176 INIS, 

006 203 037 

006 206 167 

006 207 276 

006 210 037 

006 211 167 

006 212 302 247 006 

006 213 043 

006 216 303 204 006 


LXI SP PGE +'l /SETUP TEMPORARY STACK POINTER 
HSCP /SEND "MEM SIZ? " MESSAGE 

DSS 13, 12, "M, "E. “M, " . "S, " I, "Z, "?+200 


CAL GETL 

FETCH 

JFZ NUM 

LXI HL MMEH 

LA M 

CMA 

LM A 

CP M 

CMA 

LM A 

JFZ INIU 
I NX HL 
JMP INIS 


/GET HIS RESPONSE 
/FETCH FIRST CHR, A RETURN ? 
/NOPE - GET A NUMBER 
/START OF RAM SEARCH 
/GET A CHR FROM MEMORY 

/WRITE IT BACK COMPLIMENTED 
/DID IT GO ? 

/RESTORE MEMORY 

/NOPE - THIS IS END OF RAM 
/YUP - KEEP TRYING 


006 221 313 203 004 NUM, 


006 224 333 

006 223 021 247 006 

006 230 367 

006 231 332 134 006 

006 234 033 

006 233 176 

006 236 037 

006 237 167 

006 240 276 

006 241 037 

006 242 167 

006 243 043 

006 244 302 134 006 


CAL DEINT 
DE< >HL 
LXI DE MMEM 
CMPR 

JTC INIT 
DCX HL 
LA M 
CMA 
LM A 
CP H 
CMA 
LM A 
I NX HL 
JFZ INIT 

MMEM=. 


/GET NUMERIC ARGUMENT 
/REQUESTED ADDRESS -> HL 
/MINIMUM POSSIBLE ADR -> DE 
/REQUEST < MINIMUM ? 

/YUP - GIVE THE CHUMP ANOTHER CHANCE 
/FIRST LOC FOR STACK 
/GET CONTENTS 

/WRITE IT BACK COMPLIMENTED 
/DID IT GO ? 

/RESTORE CONTENTS 

/NOPE - NO RAM WHERE HE SAYS 

/LOWEST LOC FOR STACK RESET 


006 247 042 377 004 INIU, 

006 232 041 154 006 

006 233 313 066 007 

006 260 123 

006 261 101 

006 262 126 

006 263 103 

006 264 037 

006 263 124 

006 266 101 

006 267 120 

006 270 103 

006 271 277 

006 272 313 034 007 

006 275 041 137 000 

006 300 042 173 005 

006 303 041 002 006 

006 306 313 066 007 

006 311 123 

006 312 124 

006 313 122 

006 314 040 

006 313 111 

006 316 037 

006 317 117 

006 320 277 

006 321 313 034 007 

006 324 041 136 001 

006 327 042 146 001 

006 332 041 172 001 

006 333 042 067 001 

006 340 041 340 003 

006 343 313 066 007 

006 346 101 

006 347 122 

006 330 122 

006 331 101 

006 332 131 

006 333 123 

006 354 277 

006 333 313 034 007 

006 360 041 137 000 

006 363 042 206 003 

006 366 042 213 003 

006 371 303 003 007 


STHL SPRS /YUP - MAKE IT THE STACK RESET ADR 

LXI HL EOP /BOTX IF HE SAYS "YES" 

CAL WANT /ASK "WANT SAVE / TAPE?" 

DSS "S, "A, "V, "E. "/, "T, "A, "P- "E, "?*2tl0 


CAL YSNO 
LXI HL SNER 
STHL OSPK 
LXI HL E0P3 
CAL WANT 
DSS "S, "T, " 


R, " 


/GET HIS ANSWER 

/HE SAID NO - POKE OUT TEST 

/FOR SAVE / TAPE 

/BOTX IF HE SAYS YES -> HL 

/ASK "WANT STRING I/O" 

. "I, "/, "0, "? + 200 


CAL YSNO 
LXI HL PEXP 
STHL PXPK 
LXI HL NPRU 
STHL SIPK 
LXI HL E0P2 
CAL WANT 
DSS "A,"R."R, 


/GET HIS ANSWER 

/HE SAID NO. POKE OUT STRING PRINT 

/POKE OUT STRING INPUT TEST 

/BOTX IF HE SAYS YES -> HL 
/ASK "WANT ARRAYS? " 

"A,"Y,"S,"?+200 


CAL YSNO 
LXI HL SNER 
STHL LKP1+1 
STHL LKP2+1 
JMP ICON 


/GET HIS ANSWER 

/HE SAID NO- POKE OUT ARRAY LOOKUP 
/MAKE IT A SYNTAX ERROR 

/CONTNUED AT ICON 


000 007 

007 000 303 101 007 

/ 

007 003 041 341 001 ICON, 

007 006 042 331 001 

007 011 041 232 003 

007 014 237 INIV, 

007 013 167 

007 016 043 

007 017 042 236 004 

007 022 167 

007 023 043 

007 024 167 

007 023 043 

007 026 167 

007 027 042 260 004 

007 032 041 204 000 

007 033 042 001 000 

007 040 337 

007 041 013 

007 042 012 

007 043 103 

007 044 101 

007 045 123 

007 046 123 

007 047 101 

007 030 314 

007 031 303 302 007 


* PGE /PUT IN JUMP TO BINL FOR BOOT 

JMP BINL 


LXI HL LETS 
STHl DFPK 
LXI HL EOP1 
XR A 
LM A 
I NX HL 
STHL BOTX 
LM A 
I NX HL 
LM A 
I NX HL 
LM A 

STHL EOTX 
LXI HL ENTR 
STHL 1 
MSGP 

DSS 13, 12, "C, 


/MAKE ARRAY ASSIGNMENT ILLEGAL 

/THIS IS BOTX -> HL 
/DO A "NEW" COMMAND 
/BOTX WILL BE IN HL 
/NOW 

/SAVE IT 
/DO A NEW 


/POKE OUT JMP TO INIT 
/MAKE IT A JUMP TO ENTR 
/PRINT SIGN ON MESSAGE 
"A, "S, "U, "A- "L + 200 


JMP ICN2 /CONTINUED AT ICN2 


/ROUTINE TO GET “Y" OR "N" ANSWER FROM TERMINAL 
/TZ MEANS "Y", FZ MEANS "N". 


007 034 313 117 003 YSNO, 
007 037 347 
007 060 376 131 
007 062 312 014 007 
007 063 311 

007 066 337 WANT, 

007 067 013 

007 070 012 

007 071 127 

007 072 101 

007 073 116 

007 074 124 

007 075 240 

007 076 303 030 000 


CAL TTY I 
DEVO 
CPI "Y 
JTZ INIV 
RET 
MSGP 

DSS 15, 12, "W, 


/GET HIS CHR 
/ECHO IT 

/YES ? 


/SR TO PRINT 
"A, "N, "T, " 4-200 


"WANT" 


JMP MSG 


101 007 ♦ PGE 101 /START ADR OF BINARY LOADER 

/ 

/THIS SECTION POKES THE BINARY LOADER TO THE SAME I/O 
/CONFIGURATION USED BY THE BOOTSTRAP LOADER AT ZERO 
/THIS IS EXECUTED ONLY ONCE, UPON ENTRY FROM THE 
/BOOTSTRAP AFTER THE FIRST TIME EXECUTED- THE JUMP 
/AT WORD 0 OF THE BINARY LOADER PAGE IS POKED TO JUMP 
/AROUND THE I/O POKE 


007 101 072 007 000 BINL, 
007 104 062 271 007 
007 107 032 011 000 
007 112 174 
007 113 306 002 
007 113 147 


LDA 7 
STA RDIN+1 
LDHL 11 
LA H 
ADI 2 
LH A 


/INPUT STATUS PORT * -> A 

/POKE INPUT ROUTINE 

/STATUS MASK ->L, RFZ OR RTZ -> HL 

/CHANGE RTZ OR RFZ INTO JFZ OR JTZ 
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007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 

007 


007 

007 

007 

007 

007 


116 042 
121 072 
124 062 
127 041 
132 042 
135 061 
140 016 

142 315 

143 376 
147 312 
132 376 
134 302 
157 313 

162 313 

163 267 
166 312 

171 137 

172 313 

173 167 

176 276 

177 302 
202 201 

203 117 

204 043 
203 033 
206 302 
211 313 
214 271 
213 312 
220 076 
222 001 
223 076 
223 323 
227 323 
231 323 
233 323 
233 062 
240 303 


243 313 

246 157 

247 313 

232 147 

233 311 


273 007 
014 000 
300 007 
133 007 
001 007 
000 010 REAC, 
000 READ, 

270 007 
277 

234 007 
377 

140 007 
243 007 
270 007 

211 007 

270 007 DATA, 


223 007 


172 007 
270 007 CKSM, 

140 007 
103 

113 MERR, 

001 ERR, 

010 

021 

023 

377 007 
223 007 


STHL P0K1+1 

LDA 14 

STA P0K2+1 

LXI HL REAC 

STHL PCE 1 

LXI SP PCE+0256 

LC1 0 

CAL RDIN 

CPI 277 

JTZ GOTO 

CPI 377 

JFZ READ 

CAL ADIN 

CAL RDIN 

OR A 

JTZ CKSM 
LE A 

CAL RDIN 
LM A 
CP M 

JFZ MERR 
AD C 
LC A 
INX HL 
DCE 

JFZ DATA 
CAL RDIN 
CP C 

JTZ READ 
LAI “C 
DSS 1 
LAI "M 
OUT 1 
OUT 10 
OUT 21 
OUT 23 
STA PGE 377 
JMP ERR 


''POKE THE INPUT ROUTINE 
•7INPUT DATA PORT * -> A 
/POKE THE INPUT ROUTINE 
/POKE OUT THE JUMP TO BINL 
/MAKE IT A JUMP TO REAB-3 

/CLEAR CHECKSUM 
/GET A CHR FROM TAPE 
/IS IT AN EOT CHR ? 

/YUP - LOOK FOR START ADDRESS 
/NOPE - IS IT A START OF BLOCK ? 
/NOPE - MUST BE LEADER, KEEP LOOKING 
/GET THE LOAD ADDRESS -> HL 
/BLOCK LENGTH -> A 
/BLOCK LENGTH = 0 ? 

/YUP - NO DATA, VERIFY CHECKSUM 
/MOVE BLOCK LENGTH -> E 
/GET A DATA BYTE FROM TAPE 
/PUT IT INTO MEMORY 
/DID IT WRITE PROPERLY ? 

/NOPE - GIVE A CAN'T WRITE ERROR 
/UPDATE CHECKSUM -> A 
/UPDATED CHECKSUM -> C 
/8UMP THE LOAD ADDRESS 
/DONE WITH THIS BLOCK YET ? 

/NOPE - GET MORE DATA BYTES 
/DONE WITH BLOCK, GET CHECKSUM -> A 
/DOES IT MATCH CALCULATED VALUE ? 
/YUP - LOOK FOR ANOTHER BLOCK 
/NOPE - GIVE CHECKSUM ERROR 
/SETUP A BOGUS LXI BC INSTRUCTION 


/LOOP FOREVER 


/THIS SUBROUTINE GETS TWO BYTES FROM TAPE INTO HL 


270 007 ADIN, 
270 007 


CAL RDIN 
LL A 

CAL RDIN 
LH A 
RET 


/GET FIRST BYTE 
/MOVE IT INTO -> L 
/GET SECOND BYTE 
/MOVE IT INTO -> H 


007 234 313 270 007 

007 237 376 100 

007 261 302 261 007 

007 264 313 243 007 

007 267 331 


/COMES HERE WHEN EOT CHR IS FOUND. IF A 100 BYTE FOLLOWS 
/THE EOT, THE NEXT TWO BYTES ARE TAKEN TO BE A START ADDRESS 
/CONTROL IS TRANSFERRED TO THIS ADDRESS. IF NO 100 BYTE IS 
/FOUND, WE ENTER AN INFINITE LOOP. 


GOTO, 


CAL RDIN 
CPI 100 
JFZ FORE 
CAL ADIN 
PC< HL 


/GET A CHR FROM TAPE 
/IS IT A 100 (OCTAL) 

/NOPE - JUMP HERE FOREVER 
/START ADDRESS -> HL 
/INDIRECT JUMP TO START ADDRESS 


007 270 
007 272 
007 274 
007 277 
007 301 


/THIS SUBROUTINE FETCHES A CHR FROM THE INPUT DEVICE 
/THE CHR IS RETURNED IN THE A REG. MUNCHES A & PSW 


333 003 RDIN, INP 3 

346 001 POK1, NDI 1 

312 270 007 JTZ RDIN 

333 004 P0K2, INP 4 

311 RET 

302 007 LLOC=. 


/INPUT READY STATUS -> A 
/MASK OFF UNNECESSARY BITS 
/JUMP IF NOT READY, KEEP TRYING 
/IT'S READY - GET THE DATA -> A 

/SAVE ADDRESS OF LAST BYTE USED 


007 302 337 
007 303 040 
007 304 126 
007 303 040 
007 306 056 
007 307 061 
007 310 066 
007 311 013 
007 312 212 
007 313 032 377 
007 316 333 
007 317 032 236 
007 322 173 
007 323 223 
007 324 137 
007 323 172 
007 326 234 
007 327 147 
007 330 313 066 
007 333 337 
007 334 102 
007 333 131 
007 336 124 
007 337 103 
007 340 123 
007 341 040 
007 342 106 
007 343 122 
007 344 103 
007 345 303 
007 346 307 


ICN2, MSGP 

DSS " , "V, " 


/CONTINUE SIGN ON MESSAGE 
/ ,"1, "6, 13, 212 


LDHL SPRS 
DEOHL 
LDHL BOTX 
LA E 
SU L 
LL A 
LA D 
SB H 
LH A 

CAL NOSP 
MSGP 

DSS "B, "Y, "T, 


/LAST LOC -> DE 
/FIRST -> HL 
/DIFFERENCE -> HL 


/PRINT DIFFERENCE 
/PRINT "BYTES FREE" 
B E,"S, " , "F, "R, "E, "E + 200 


RST 


/RESET STACK AND ENTER 


/THIS IS THE ROUTINE USED TO PUNCH MEMORY IN BOOTSTRAP FMT. 


011 
011 
011 
011 
01 1 
011 
01 1 
011 
011 
011 
011 
011 
011 
011 


000 011 

000 061 000 012 
003 006 377 
005 076 302 
007 313 126 006 
012 003 

013 302 003 011 
016 041 301 007 
021 176 

022 315 126 006 
023 033 

026 302 021 011 
031 176 

032 313 126 006 

033 303 000 374 


♦PGE+0512 

MAKR, LXI SP +0236 
LBI 377 

MAKS, LAI LLOC 
CAL PNOU 
DCB 

JFZ MAKS 
LXI HL LLOC-1 

MAKT, LA M 
CAL PNOU 
DCL 

JFZ MAKT 
LA M 

CAL PNOU 
JMP '374 


/SEND 235 LEADER CHRS 
/LEADER CHR -> A 
/SEND A CHR OF LEADER 
/DONE WITH LEADER YET ? 
/NOPE - SEND SOME MORE 
/HIGHEST ADR TO SENT -> HL 
/GET A CHR TO PUNCH -> A 
/PUNCH IT 

/PUNCHED IT ALL YET ? 

/NOPE - KEEP SENDING 
/SEND LAST CHR 

/ALL DONE , BACK TO MONITOR 


/THIS SECTION OF CODE IS THE I/O POKE SECTION. 

/IT IS READ IN BY THE BINARY LOADER AFTER THE I/O 
/SECTION OF CASUAL. THIS ROUTINE READS THE FRONT PANEL 
/SENSE SUITHCES AND POKES THE I/O FOR SOME MITS I/O 
/BOARDS THE SWITCHES MEAN THIS WHEN THEY ARE UP: 


/A15 MITS ACR FOR SAVE/TAPE COMMANDS 

/A14 MITS SIOA, B, C REV 0 FOR TERMINAL 

/A13 MITS 88-PIO FOR TERMINAL 

/A12 RESERVED FOR MITS 4PI0 (NOT FUNCTIONAL NOW) 

/All RESERVED FOR MITS 2SI0 (NOT FUNCTIONAL NOW) 

/A10 RESERVED FOR MITS 2SIO (NOT FUNCTIONAL NOW) 

/A9 CONTROL LOGIC STANDARD I/O 

/A8 USE CUSTOM I/O FROM LOCATION 50 

/NONE MITS SIOA, B, C NOT REV 0 FOR TERMINAL 


/THIS LOADS AT LOCATION 100, AND WHEN IT IS DONE POKING 
/IT GOES BACK TO THE BINARY LOADER WHICH WILL THEN READ 
/CASUAL IN ON TOP OF THIS. 


100 

000 100 041 
000 103 343 
000 104 333 
000 106 346 
000 110 300 
000 111 333 
000 113 267 
000 114 362 
000 117 076 
000 121 062 
000 124 062 
000 127 074 
000 130 062 
000 133 062 
000 136 076 
000 140 062 
000 143 062 
000 146 076 
000 130 062 
000 133 076 
000 133 062 
000 160 333 
000 162 346 
000 164 312 
000 167 257 
000 170 062 
000 173 062 
000 176 074 
000 177 062 
000 202 076 
000 204 062 
000 207 062 
000 212 076 
000 214 062 
000 217 076 
000 221 062 
000 224 062 
000 227 076 
000 231 062 
000 234 311 
000 233 333 
000 237 346 
000 241 312 
000 244 257 
000 243 062 
000 230 062 
000 233 074 
000 234 062 
000 237 062 
000 262 062 
000 263 074 
000 266 062 
000 271 076 
000 273 062 
000 276 062 
000 301 076 
000 303 062 
000 306 311 
000 307 333 
000 311 346 
000 313 302 
000 316 237 
000 317 062 
000 322 062 
000 323 074 
000 326 062 
000 331 062 
000 334 062 
000 337 076 
000 341 062 
000 344 076 
000 346 062 
000 331 076 
000 333 062 
000 336 062 
000 361 311 
000 362 333 
000 364 346 
000 366 310 
000 367 041 
000 372 176 
000 373 062 
000 376 043 
000 377 176 
001 000 062 
001 083 043 
001 004 176 
001 003 062 
001 010 073 
001 011 075 
001 012 062 
001 013 043 
001 016 176 
001 017 062 
001 022 043 
001 023 176 
001 024 062 
001 027 043 
001 030 176 
001 031 062 
001 034 043 
001 033 176 
001 036 062 
001 041 043 
001 042 176 
001 043 062 
001 046 043 
001 047 176 
001 030 062 
001 033 043 


000 

000 007 IOPA, 

377 

002 

377 

160 000 
006 

143 006 
130 006 

132 006 
140 006 
302 

146 006 

133 006 
001 

145 006 
200 

132 006 

377 IOPB, 

100 

235 000 

133 005 
042 000 

126 005 
040 

137 003 
113 003 
002 

044 000 
312 

122 003 
106 003 
310 

163 003 

377 IOPC, 

040 

307 000 

133 003 
042 000 

126 005 
044 000 
113 003 

137 003 
312 

122 003 
106 003 
310 

163 003 

377 IOPD, 

177 

362 000 

133 003 
042 000 

137 003 
126 003 
113 003 
200 

044 000 
300 

163 003 
302 

122 005 
106 003 

377 IOPE, 

001 

050 000 
133 005 


137 003 


122 003 


163 003 


126 005 


042 000 


044 000 


106 005 


113 005 


143 006 


*100 

LXI HL PGE 
PSHX HL 
INP 377 
NDI 2 
RFZ 

INP 377 
OR A 

JFS IOPB 
LAI 6 
STA CHIN+1 
STA PNOV+1 
INA 

STA CIDP+1 
STA CODP+1 
LAI 302 
STA CIA 
STA COA 
LAI 1 

STA CIRM+1 
LAI 200 
STA CORM+1 
INP 377 
NDI 100 
JTZ IOPC 
XR A 

STA TRDY+1 
STA DEVQ+1 
INA 

STA TIDP+1 
LAI 40 
STA TIRM+1 
STA TODP+1 
LAI 2 
STA TORM+1 
LAI 312 
STA TIA 
STA DEVP 
LAI 310 
STA TIB 
RET 

INP 377 
NDI 40 
JTZ IOPD 
XR A 

STA TRDY+1 
STA DEVQ+1 
INA 

STA TIDP+1 
STA TORM+1 
SfA TODP+1 
INA 

STA TIRM+1 
LAI 312 
STA TIA 
STA DEVP 
LAI 310 
STA TIB 
RET 

INP 377 
NDI 177 
JFZ IOPE 
XR A 

STA TRDY+1 
STA DEVQ+1 
INA 

STA TIRM+1 
STA TIDP+1 
STA TODP+1 
LAI 200 
STA TORM+1 
LAI 300 
STA TIB 
LAI 302 
STA TIA 
STA DEVP 
RET 

INP 377 
NDI 1 
RTZ 

LXI HL CUST 
LA M 

STA TRDY+1 
INX HL 
LA M 

STA TIRM+1 
INX HL 
LA M 
STA TIA 
DCA 
DCA 

STA TIB 
INX HL 
LA M 

STA TIDP+1 
INX HL 
LA M 

STA DEVQ+1 
INX HL 
LA M 

STA TORM+1 
INX HL 
LA M 

STA DEVP 
INX HL 
LA M 

STA TODP+I 
INX HL 
LA M 

STA CHIN+1 
INX HL 


/PUSH ADR OF BINARY LOADER 


/TEST A9 

/HE WANTS CONTROL LOGIC - ALL DONE 
/TEST A13 

/DOESN'T HAVE AN ACR 


/TEST A14 

/DOESN'T HAVE SIOA, B, OR C 


/TEST A13 

/DOESN'T HAVE AN 88-PIO 


/ALL LOU 7 (A15 DON'T CARE) 
/DOESN'T HAVE SIOA, B, OR C NOT 


/TEST A8 

/DOESN'T WANT CUSTOM 
/START OF CUSTOM SAVE AREA 
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01 054 176 
01 055 062 
01 060 043 
01 061 176 
01 062 062 
01 065 043 
01 066 176 
01 067 062 
01 072 043 
01 073 176 
01 074 062 
01 077 043 
01 100 176 
01 101 062 
01 104 043 
01 105 176 
01 106 062 
01 111 043 
01 112 176 
01 113 062 
01 116 052 
01 121 042 
01 124 311 


140 006 
070 000 
200 005 


la n 

STA CIRM+1 
I NX HL 
LA M 
STA CIA 
I NX HL 
LA M 

STA CIDP+1 
I NX HL 
LA M 

STA PNOV+1 
I NX HL 
LA M 

STA CORM+1 
I NX HL 
LA M 
STA COA 
I NX HL 
LA M 

STA CODP+1 
LDHL OSLO 
STHL OSPK+3 
RET 


ACTIVE LOW by Mark Space 


Some signals on a microcomputer’s bus are normally low and 
go high when they are meaningful. These are called “active high”. 
Some lines are just the opposite and they are called “active low”. 

The commonly accepted notation for an active lo w line is to 
put a bar “ over the line’s name, for example: STfe. Now, 
when this is read you say “not strobe” or sometimes “bar strobe.” 

With this in mind then we thought that the following active 
low signals might be useful additions to a microcomputer’s bus 
structure. 


/'FUN- CONTROL SIOA SlOA 88-PIO 4PI0 2SI0 MNEU- 
/CTION LOGIC REV0 MONIC 


/TIRP 1 

/TIRM 1 

/TIA 312 

/ 

/TIDP 0 

/TORP 1 

/TOA 312 

/TODP 10 

/CIRP 5 

/CIRM 1 

/CIA 312 

/Cl DP 4 

/CORP 5 

/CORN 2 

/COA 312 

/CODP 16 


0 0 0 

1 40 2 

302 312 312 

1 1 1 

0 0 0 

302 312 312 

1 1 1 

6 


302 

7 

6 

200 

302 


20 20 TRDY+1 

100 1 TIRM+1 

312 312 TIA 

-2 TIB 

21 21 TI DP*1 

20 20 DEVQ+1 

312 312 DEVP 

23 21 TODP+1 

CHIN*1 

CIRM+1 

CIA 

CIDP+1 

PNOV+1 

CORM+l 

COA 

CODP+1 


/FUNCTION KEY: 


/FIRST LETTER: 
/T= TERMINAL 

/C= CASSETTE 

/ 

/SECOND LETTER: 
/I= INPUT 

/0= OUTPUT 


/LAST TUO LETTERS: 

/RP= READY PORT 

/RM= READY MASK 

/A= ACITVE, HIGH OR LOU 

/DP= DATA PORT 


/IF YOU ARE USING AN I/O BOARD NOT SUPPORTED BY CASUAL 
/IT IS BEST TO USE THE CUSTOM I/O PROCEDURE AFTER LOADING 
/THE BOOTSTRAP, LOAD THE CUSTOM I/O TABLE (SEE BELOU' 

/SET SUITCH A8 UP, THE REST DOUN, AND EXECUTE THE BOOT 
/AS USUAL 


/LOCATION 

/050 

/051 

/052 

/053 

/054 

/055 

/056 

/057 

/060 

/061 

/062 

/063 

/064 

/065 

/066 

/067 

/070 

/071 


CONTENTS 

TIRP 

TIRM 

TIA 

TIDP 

TORP 

TORM 

TOA 

TODP 

CIRP 

CIRM 

CIA 

Cl DP 

CORP 

CORN 

COA 

CODP 

OS ADDRESS LOU 
OS ADDRESS HIGH 


000 007 PG£='7 

050 000 CUST=50 

175 005 OSPK='5 175 

070 000 OSLO=70 

134 005 TRDY='5 134 

136 005 TIRM='5 136 

122 005 TIA='5 122 

163 005 T1B='5 163 

125 005 TIDP='5 125 

041 000 DEVQ='0 41 

043 000 TORM='0 43 

106 005 DEVP='5 106 

112 005 TODP='5 112 

142 006 CHIN='6 142 

144 006 CIRM='6 144 

146 006 CIA='6 146 

151 006 CIDP='6 151 

127 006 PNOV='6 127 

131 006 CORM='6 131 

133 006 COA='6 133 

137 006 CODP='6 137 


00ERRORS 


A thought, compliments of David G.: If we put an auto¬ 
matic disc ejector on a disc drive, then perhaps we could put 
those old Wurlitzer boxes to some interesting use. 


AWK 

HOM 

NOW 

1 _ 

NOT 

HOL 

Et 

Rune 



BZI 

TRYN_ 
2B or 2B 


NTRSTD 

HEAD 

LIT 

ME 


UP_ 

HERE 


BYNIT 

BAD 


GLTY 


THEAe 

bPF 

fnT 


This signal is present during the hours of 2:00 and 
9:00 a.m. 

This line goes low when you leave the house—useful 
in intelligent security systems. 

Present when interrupts are disabled. 

This line goes low when the system is out for lunch. 
This form of interrupt is acknowledged by the 
"Who's There?" line. 

This signal is present when a ram board goes out in 
the middle of your memory map. 

Signifies that your jump went the wrong way. 

In a polled interrupt system all devices not request¬ 
ing service must pull this line low. 

This line goes low when certain combinations of 
ASCII data appear, usually in groups of four. Also 
used in some systems in response to certain types of 
graphic images. __ 

Interchanged in some systems with T. 

Data is valid now. 

This signal is issued when the system has a headache. 
This line goes low if the second byte of the op code 
is missing or in some systems this may signify that 
all available memory has been used. 

Issued to DMA devices to let them know they can 
have the bus. 

This signal is only present during NOP's. 

There is much debate over whether or not this line 
should be 2B or 2B, but that is the question. 

Issued in res ponse to an illegal op code or in some 
systems it is ALOUD meaning "turn the TTY off; 
video display only". 

Issued by Selectrics usually in conjunction with the 
MYTYPE signal. 

The switch is off. 

Processor's response to the programmer who jumps 
to the second byte of the op code. 

Signal goes low when all the LED's on the front pan 
panel are out. 

In a multi-processing environment the control pro¬ 
cessor polls the slave processors asking who put that 
data into the common memory and all processors 
that didn't will issue this signal. 

This line goes low when the system is crashed. 

In Z-80 systems this line goes low during each cycle 
of a block search when t he da ta is not found. (In 
some systems this is the FND line). 

Invalid or spurious data. 

During each cycle of a ram test this line will.nor¬ 
mally be low unless a location is faulty. 

Response to the "How do you plead" line. Also 
low on computers owned by hobbyists who dis¬ 
agree with BiJI Gates. 

Signifies that the TTY connector has come undone. 
This signal is present when a hobbyist doesn't have 
his own computer yet. 

Issued in response to most of the foregoing lines. 


These are but a few of the lines that you might find use¬ 
ful in your own computer system and we’re sure you can 
imagine a lot more that we didn’t cover here. 

Oh, yes. One more. There always are empty lines on 
everyo ne’s bus, and these of course are then designated: 
USED. 
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A REPLY: STRUCTURED PROGRAMMING 


SOME SOFTWARE NEEDS & HOW TO FILL ’EM 


Dear Sir, Oct. 23, 1976 

Several months ago, I wrote a letter to DDJ, parts of which appeared 
in Vol. 1, No. 6, page 40. In Vol. 1, No. 9, page 37, Tim Bonham takes 
issue with several of the comments in my letter. I wish to have the op¬ 
portunity to in turn take issue with several of Mr. Bonham's comments. 

First, Mr. Bonham states that I seem to equate structured program¬ 
ming with lots of control structures. As a matter of fact, I don't make 
such as equation since I am aware that SP (structured programming) in¬ 
volves concepts other than control structures such as top down program¬ 
ming and so forth. However, SP in my mind does involve lots of control 
structures, and I will explain why later. For the purposes of this letter, 

I will assume that SP is concerned only with controlled structures. 

Second, Mr. Bonham states that one of the important events in the 
history of structured programming was the publication of a proof that 
all programs could be written using only three control structures, name¬ 
ly, sequence, if-then-else, and loops. I assume that Mr. Bonham is refer¬ 
ring to a proof which appeared in a paper written by Boehm and Jaco- 
pini [1], Knuth [21 says the following about this result: 

Recent interest in structured programming has caused many 
authors to cite Jacopini's result as a significant breakthrough 
and as a cornerstone of modern programming technique. Un¬ 
fortunately, these authors are unaware of comments made by 
Cooper . . . and later by Bruno and Steiglitz . . ., namely, that 
from a practical standpoint the theorem is meaningless. 

Knuth goes on to show how Jacopini's result may be used to put any 
program into a virtually structureless form. 

Third, Mr. Bonham states that one of the basics of SP is the use of 
only a very few control structures. If this is indeed the case, then we 
can do much better than SIL (sequencing, if-then-else, and looping), 
because, as Presser [3] has shown, if-then-else is superfluous. However, 
not even Presser advocates the complete elimination of if-then-else. 

Thus, I believe that it can be said that the minimum feasible set of con¬ 
trol structures is not the same as the minimum practical set of control 
structures; although, there does seem to be a general consensus that a 
minimum practical set must include SIL. Where one draws the line 
beyond SI L seems to be strictly a case of chacun a son gout. Zahn [4] 
for example, seems to feel that even adding the FOR statement and 
recursive subprograms is not enough. Vaughan [5] argues for includ¬ 
ing both the labelled and indexed CASE statement. A casual examina¬ 
tion of the literature will reveal various proposals for control struc¬ 
tures to supplement SIL. In the absence of any precis^ generally ac¬ 
cepted definition of SP, I am inclined to believe that a minimum prac¬ 
tical set of control structures will include substantially more than SIL. 

Fourth, Mr. Bonham states that I seem to consider PL/I to be a 
simple SP language, and that he does not consider PL/I to be an SP 
language. I do not wish to refute Mr. Bonham’s claim that PL/I is not 
an SP language, since I am in sympathy with his view on this issue. 
However, there are any number of textbooks with titles like "Struc¬ 
tured Programming in PL/I" which suggests that PL/I is being treated 
as an SP language whether in fact it is or not. This together with the 
fact tnat PL/I is a commonly used complex language is the reason why 
I cited it in my letter. 

Yours, 

Fred J. Dickey 3420 Granville Rd 

Westerville OH 43081 

[1] Boehm, C. and Jacopini, G. "Flow-diagrams, Turing Machines, 

and Languages with only two formation rules," CACM, 

Vol. 9, No. 5, 1966, pp. 366-71. 

[2] Knuth, D. "Structured Programming with GOTO Statements," 

Computing Surveys, Vol. 6, No. 4, 1974, pp. 261-301. 

[3] Presser, L. "Structured Languages,” Sigplan Notices, Vol. 10, 

No. 7,1975, pp. 22-24. 

[4] Zahn, C., Jr. "Structured Control in the Programming 

Languages," Sigplan Notices, Vol. 10, No. 7, 1975, pp. 13-15. 

[5] Vaughan.W. C. M.. "Another Look at the CASE Statement," 

Sigplan Notices, Vol. 9, No. 11, 1974, pp. 32-36. 


COMPUTER-BASED INSTRUCTIONAL SYSTEMS 
MEETING 

The 1977 Winter Meeting of the Association for the Development 
of Computer-Based Instructional Systems (ADCIS) will be held in 
Newark, DE, February 22-24, 1977. For further information, con¬ 
tact the conference host, Fred Hofstetter, Dept, of Music, Univ. of 
Delaware, Newark, DE 19711, (302) 738-2497. 


1) It seems to me that what the microcomputer market needs 
most right now are good software development tools. High 
priority includes: 

a) a good monitor/operating system: one such as described 
in DDJ (April 1976) is on the right track. Sphere’s new 
DOS also seems very promising. DOS not only allows 
user-cataloged 32-character file names, but also has a 
number of very useful monitor requests built in, which 
take care of all the I/O interfaces for the user. 

b) a macro-assembler that can run resident on a micro¬ 
system. The need for this should be self-explanatory. 

c) a simple procedure-oriented language that can be com¬ 
piled by a resident compiler & can interface with assem¬ 
bly language subroutines. TINY HI looks good in this 
respect. The idea here is that system development is 
just too slow if done in assembly language. Further¬ 
more, assembler listings are very difficult to decipher as 
to control structures and such. A good procedure- 
oriented language will provide the 3 or 4 basic control 
structures plus as little else as can be gotten by with. 
“Efficiency” can well be sacrificed for gains in readability, 
understandability and maintainability. 

2) I would like to encourage you to encourage manufacturers 
to seek out a few top-notch software types and turn them 
loose for a few weeks. Promise them a bonus for early 
completion and institute a penalty clause for late delivery 
- but get a high-level language compiler out and get it out 
fast. Once a tool like TINY HI is in the hands of a large 
number of people, then you’ll see some progress. Assembly 
language is indispensable for certain tasks, but for the bulk 
of application-programming, it continues to be a millstone 
around our necks! 

Larry E. Walker _ 

CAL INTERPRETER PROPOSED 

Dear Jim, 

I just got Niklaus Whth’s book Systematic Programming: 
An Introduction (Prentice-Hall, 1973), which is about PASCAL 
(but not mentioned in the title). I sure had a time finding 
anything on PASCAL, even in N.Y.C. 

I notice that it is ALGOL like in many ways, but it does 
pick up some of the JOSS and CAL flavor. 

This leads me to wonder why Dr. Dobb’s is not looking 
into trying to get CAL interpreters or compilers started. 

Joseph F. Gaffney 321 Lyndhurst Ave. 

Lyndhurst, NJ 07071 

[Great idea! How ’bout sending us a CAL interpreter for some 
micro, in the next month or two?-Editor] 


HORRORS !-WE LEFT SOME ADDRESSES OUT 
OF ARTICLES IN PREVIOUS ISSUES 
Here they are: 

Itty Bitty Computers & Tom Pittman 
Box 23189 
San Jose, CA 95153 
(408) 578-4944 

[October issue. 6800 and 6502 Tiny BASIC 
for $5] 

Per Sci 

4087 Glenoe Ave. 

Marina del Rey, CA 90291 
(213) 822-7545 

[August issue. Dual-drive floppy disc drive for 
$1K with fast voice-coil head positioner] 
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NIBL -- Tiny Basic 

for National’s SC/MP Kit 

complete documentation & annotated source code 


by Mark Alexander, National Semiconductor Corp. 

Nov. 29,1976 

Introduction 

NIBL (National Industrial Basic Language) is a machine- 
oriented programming language for the SC/MP. It is a lan¬ 
guage similar to Tiny BASIC, but it also has some unique 
features. Many of these features, such as a genuinely useful 
control structure (the PASCAL-influenced DO/UNTIL) and 
the indirect operator (“@”) have been added to the language 
to allow NIBL to be nearly as flexible as machine language 
in such applications as medium-speed process control. 

By using NIBL, one trades the high execution speed and 
low memory consumption of machine language for some very 
tangible advantages: Program readability, modifiability, and 
reliability, which are truly difficult to achieve in machine lan¬ 
guage programs. 

NIBL programs are interpreted by a large (4K byte) SC/MP 
program that resides in ROM. The interpreter is broken into 
two blocks: a program written in an Intermediate (or Interpre¬ 
tive) Language — I. L. for short - which does the actual inter¬ 
pretation; and a collection of SC/MP machine language sub¬ 
routines invoked by the 1. L. program. The I.L. approach is 
well-documented in Vol. 1, No. 1 of Dr. Dobb’s Journal of 
Computer Calisthenics & Orthodontia, and readers should 
refer to that issue for a more detailed description of the inter¬ 
pretation process. 

In Table 1, the formal grammar for NIBL is given. This is 
the ultimate authority (other than the interpreter itself) on 
how legal NIBL statements are formed. The following descrip¬ 
tions of the NIBL statements will refer to portions of the gram¬ 
mar. Table 2 contains a list of the error message produced by 
the NIBL system. Finally, a listing of the interpreter is given 
in the Appendix. 

History of NIBL 

NIBL came into this world as an interpreter for Tiny BASIC, 
as originally described in the first issue of Dr. Dobb’s Journal. 
That program was written by Steve Leininger, who subsequent¬ 
ly left before the program was ever assembled or executed. 

The current version of NIBL is an almost complete re-write of 
the original interpreter, with changes and additions being made 
to improve the modularity of the program, to greatly increase 
execution speed, and to extend the capabilities of the language 
itself. 

The program was developed on the PACE Disk Operating 
System, and was assembled by a PACE-resident cross-assembler 
for the SC/MP. 

System Requirements 

The NIBL interpreter is intended to be a ROM-resident program in 
the first 4K of the SC/MP address space (although it will run just as 
well in RAM). The interpreter requires at least 2K bytes of RAM 
starting at address 1000 (base 16), of which the interpreter uses nearly 
300 bytes for stacks, variables, etc., leaving the rest for the user's pro¬ 


gram. Another 2K bytes of memory may be added to fill up this 4K 
page, forming what is hereafter referred to as "Page 1". 

The SC/MP architecture forces memory to be split into pages of 4K 
bytes each; therefore, NIBL allows seven such pages to be used for 
storing programs. NIBL programs in the seven pages are edited sepa¬ 
rately, but may be linked together during program execution by special 
NIBL statements described below. The first page, mentioned above, 
must be RAM since the interpreter uses part of it as temporary storage; 
the part used to store programs starts at location 111 E (base 16). 

The other six pages, each of which starts at location nOOO (base 16), 
where n is the page number, may be either RAM or ROM. Page 2 is a 
special page; it can contain a NIBL program to be executed immediate¬ 
ly upon powering up the NIBL system. 

The memory organization of NIBL is shown in Figure 1. 

Throughout this article, the assumption is made that the user has a 
teletype with paper tape reader and punch, as with the SC/MP Low 
Cost Development System. In fact, NIBL was designed to use the 
LCDS teletype interface, but to be completely independent of the LCDS 
LCDS firmware. If NIBL is to be run on its own, the system should 
have the same configuration for the teletype, with the reader relay 
being operated directly by the SC/MP. At present, paper tape is the 
only medium for saving NIBL programs, but as soon as the hardware 
and software for a SC/MP cassette interface become availalbe, NIBL 
will be able to link to routines for saving and loading programs with 
ease. 

Since the teletype interface is not based on a UART, the terminal 
baud rate can only be changed by modifying the timed delays in NIBL's 
I/O routines. NIBL has been run successfully at 1200 baud with a 
CRT terminal; the listing of the program in the Appendix is for a 110 
baud system. 

Communicating with NIBL 

When the Nl BL system is ready to accept input, it prompts at the 
teletype with a ">" sign. (NIBL is now in "edit mode".) The user 
then enters a line terminated by a carriage return. There are several 
special characters that are used to edit lines as they are typed; 

Shift/0 (back arrow) cuases the last character typed to be deleted. 

Control/U (echoes as " U") causes the entire line to be deleted; 
NIBL reprompts for a new line. 

Entering a line to NIBL without a leading line number causes the 
line to be executed directly by NIBL. Most NIBL statements, as well 
as the four program control commands, may be executed in this 
manner. 

A line with a leading number (in the range 0 through 32767) is 
entered into the NIBL program in the current page. (Make sure that 
the value of the pseudo-variable PAGE is valid, so that the line isn't lost 
into non-existent memory.) The NIBL editor sorts the program lines 
as they are entered into ascending order by line number. 

Typing a line number followed by a carriage return deletes that line 
from the program. Typing a line with the same number as an existing 
line's causes the new line to replace the old one in the program. 

Each of the seven memory pages may contain a different program, 
separate from the rest. Editing the program in one page will not 
affect the other pages. To switch editing from one page to another, 
simply type PAGE = n, where n is the number of the new page. 

Variables 

There are twenty-six variable names in NIBL: the letters A 
through Z. They are all 16-bit binary variables, so they can be used 
to hold addresses as well as signed numeric data. The variables are 
already pre-declared for the user, and space is allocated for them 
in RAM when NIBL powers up. 


Constants 

NIBL allows either decimal or hexadecimal (base 16) constants to 
appear in expressions. Decimal constants must lie in the range 0 
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through 32767; the unary minus ("—") is used to obtain negative 
values. The value —32768 is a valid Nl BL integer, but it is not legal as 
it stands. To represent it, use —32767—1 or #8000 instead. 

Hexadecimal constants are denoted by a pound sign ("#") followed 
by a string of hexadecimal digits (0-9, A-F). Nl BL does not check for 
overrun in hex constants; consequently, only the 4 least significant 
digits of the nex digit string are kept. 

Functions 

Nl BL provides three built-in functions that may appear in any ex¬ 
pression. These are described as follows: 

RND (X, Y) returns a pseudo-random integer in the range X through 
T, inclusive, where X and Y are arbitrary expressions. 

T, inclusive, where X and Y are arbitrary expressions, in order for the 
function to work properly, the value of Y — X should be positive and 
no greater than 32767. 

MOD (X, Y) returns the absolute value of the remainder from X 
divided by Y (where X and Y are expressions). 

TOP (with no arguments) returns the address of the first free 
byte in the memory page currently being edited or executed. In other 
words, it is the address of the top of the NIBL program in the current 
page, plus one. 

Pseudo-variables 

NIBL has two pseudo-variables in addition to the standard varia¬ 
bles. These are STAT and PAGE. Both of these varialbes may appear 
on either side of an assignment statement. 

STAT represents the SC/MP status register. The current value of 
the status register can be referred to by using STAT in an expression; 
or an assignment may be made to the status register by executing a 
statement such as STAT = 4 or STAT = STAT OR #20. When NIBL 
makes an assignment to the status register in this manner, it clears the 
interrupt-enable bit of the value before it is actually assigned. Note 
also that only the lower byte of the value is assigned; the high byte 
is ignored. 

The carry and overflow bits in STAT are meaningless since the 
Nl BL system is continually modifying them. The utility of STAT 
lies in the fact that 5 of its bits are connected to I/O sense lines on 
the SC/MP chip. 

The pseudo-variable PAGE contains the number of the memory 
page currently being executed or edited. As indicated in Figure 1, 
there are seven pages in which NIBL programs may be stored; therefore, 
PAGE may lie only in the range 1 through 7. If an assignment of a 
value outside this range is made to PAGE, only the 3 least significant 
bits of the value are used — and zero is automatically changed to one. 

If PAGE is modified while NIBL is in edit mode, all subsequent 
editing will take place in the new page. 

If PAGE is modified by a NIBL program during execution, con¬ 
trol will be passed to.the first line of the NIBL program in the new 
page. This transfer would be effected by a statement such as PAGE = 

6or PAGE = PAGE + 1. Thus, several NIBL programs residing in 
different 4K pages may be linked together as one large program, if 
need be. This would allow one to write a 28K STAR TREK program 
in NIBL, a Herculean and indeed foolish task. 

Control may also be transferred from one page to another by 
three other statements: RETURN, NEXT, and UNTIL. Thus, the 
first part of a subroutine or loop may be in one page, and the second 
part may be in another (with control being transferred between the 
two parts by an assignment to PAGE). In these three special cases, 

NIBL automatically updates the value of PAGE as the statements are 
executed. 

Relational Operators 

NIBL provides the standard BASIC relational operators, for com¬ 
paring the values of integer expressions. The operators are as follows: 

= equal to 

<= less than or equal to 

>= greater than or equal to 

<> not equal to 

< less than 

> greater than 

All of these operators produce 1 as a result if the relation is true, and 
0 if the relation is false. Note that the relational operators may appear 
anywhere that an expression is called for in the NIBL grammar, not 
only in IF statements. 

Arithmetic Operators 

NIBL provides the four standard arithmetic functions: addition (+), 
subtraction or unary minus (—), multiplication (*),and division (/). 
Since only integers are allowed in NIBL, all quotients are truncated (the 
MOD function can be used to obtain remainders from division). Any 
overflow or underflow (other than division by zero) is ignored by NIBL; 
the reasoning behind this is that it may often be necessary to treat 
NIBL expressions as unsigned values, such as when performing calcula¬ 
tions using memory addresses as the operands. Thus the value of 
32767 + 1 is —32768 (or in hexadecimal, #7FFF + 1 = #8000, which 


makes more sense). 

Logical Operators 

In NIBL, there are three logical operations that may be performed 
on values: AND, OR, and NOT. The first two are binary operators, and 
the latter is unary. All three perform bitwise logical operations on 
16-bit arguments, producing 1 6-bit results. AND, OR, and NOT are 
sufficient to simulate any other logical operation, through various 
combinations of the operators. 

The Indirect Operator 

The indirect operator realizes the functions of PEEK and POKE 
operations in other BASICS, but with somewhat more elegance. The 

sign followed by an address (whcih can be a constant, variable, or 
expression in parentheses) denotes the contents of that address in 
memory. Thus, if memory location 245 (decimal) contains 60, the 
statement X = @245 would result in the value 60 being assigned to X. 

The indirect operator may also appear on the left side of an assignment 
statement. For example, @X=@(Y+10) would result in the memory 
location pointed to by X being assigned the value of the memory loca¬ 
tion pointed to by the value Y+10. 

Despite this, it is still safest to use plenty of parentheses in expres¬ 
sions to make the intent clear. 

Use of the indirect operator is not limited to reading from or 
writing to memory: it also provides a simple way to communicate 
with peripheral devices that are interfaced to the SC/MP through 
memory addresses. Note that the "@" operator can only access 
memory one byte at a time, and that when an assignment is made 
to a memory location, only the low order byte of the value is 
moved to the location; the high order byte is ignored. 

The indirect operator can also be used to simulate arrays in 
Nl BL. For example, if we wish to define an M x N matrix of one- 
byte positive integers, we can access the (I ,J)th element of the 
matrix (assuming that (0,0) is a legal element in the matrix) with 
the expression @(A+I *N+J). An assignment could be made to that 
same element by placing the expression on the left side of an assign¬ 
ment statement. 

Expressions 

Expressions in NIBL are made up of the components described 
above: variables, constants, function references, pseudo-variables, 
and operators binding them all together. Nl BL expressions are all 
16-bit integers. Evaluation of expressions takes place left-to-right, 
and the order in which operations take place is determined by 
operator precedence and the presence of parentheses. The order of 
evaluation can be deduced from the grammar in Table 1; here is a 
table of operator precedence: 

Lowest precedence (applied last): <, >, <=, >=, =, <> 

+, -, OR 
\ /, AND 

Highest precedence (applied first): @, NOT 
Program Control Commands 

LIST causes the entire program in the current page to be listed. 
Listing can be halted by hitting any key on the teletype: the BREAK 
key works best. 

LIST <number >causes listing to begin at the given line number (or 
the nearest one greater than the number), rather than at the first line. 

LISTing a program is the method used to save it on paper tape. To 
accomplish this, type LIST with the punch off, then turn on the punch 
and hit carriage return. After the program is dumped, type a Shift/0 
with teletype on LOCAL so that the last character (a " >") will be de¬ 
leted when the tape is entered to NIBL at a later time. NIBL will ac¬ 
cept a tape made in this fashion at any time during edit mode. The 
tape reader is enabled at all times by NIBL, and it does not distinguish 
between the reader and the keyboard when accepting input. Super¬ 
fluous line-feed and null characters on the tape are echoed but ignored. 

RUN causes three actions: first, all variables are zeroed; secondly, 
all stakes (the FOR, DO, and GOSUB stacks) are cleared; and finally 
the program in the current page is executed, starting with the first 
line in sequence. 

RUN is not the only way to start program execution: GOTO and 
GOSUB can slo be used to jump into a program from edit mode. For 
example, if there is a subroutine at line 1000 that is being tested, 
typing GOSUB 1000 will cause that routine to be executed, with 
Nl BL returning to edit mode upon encourntering a RETURN state¬ 
ment. When GOTO and GOSUB are used to run a program, the varia¬ 
bles and stacks are not cleared. 

Hitting any key while a program is being run will cause Nl BL to 
break execution, printing a message and the line number where the 
break was detected. The BREAK key on the teletype works best for 
this. 

CLEAR causes all variables to be zeroed and the three stacks men¬ 
tioned above to be cleared. This latter feature of the CLEAR command 
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is quite useful after a stack nesting error has occurred (for example, if 
GOSUBS are nested more than eight levels deep). 

NEW clears the programs in Page 1, and changes the value of PAGE 
to 1. This is the form of the command most likely to be used by Nl BL 
novices who do not wish to be confused by the page selection features 
of NIBL. NEW should be the first thing one types in to NIBL when 
first powering up. 

NEW <number>sets the value of PAGE to the <number>, and 
clears the program in that page. 

Assignment Statements 

Already, two different types of assignment statements have been 
mentioned: assignments to the pseudo-variables STAT and PAGE, and 
assignments to memory locations with the indirect operator. Another 
form of the assignment statement is the conventional assignment to a 
variable (A — Z), e.g. A=A + I or A = 32 <((4 * I). There are also 
statements which look like string assignments, but there are not 
standard BASIC, and are described later in the section on string han¬ 
dling. The word "LET" is optional in front of any assignment state¬ 
ment (leaving it out increases execution speed, unlike most Tiny 
BASIC systems). 

If/then Statement 

The IF statements allows conditional execution of one or more 
statements (as many as can fit on one line). The syntax for the I F 
statement is: 

'IF' Rel-exp 'THEN'? Statement 
which indicates that the word THEN is optional, and that any 
statement (including another IF statement) may follow the 
conditional expression. If the IF condition is true (i.e. is non¬ 
zero), the statement following it (and any others on the line) will 
be executed; otherwise, control immediately transfers to the next 
program line. The condition does not need to contain relational 
operators: a statement such as IF MOD (A,5) THEN.... is per¬ 
fectly legal. In this example, the statement following the THEN 
would be executed if A were not divisible by 5. 

GOTO, GOSUB, AND RETURN STATEMENTS 

The syntax for the GOTO statement is 'GOTO' followed by an 
expression. The effect of the GOTO statement is to transfer control to 
the line whose number is indicated by the expression. An error occurs 
if the specified line does not exist in the current page. Unlike standard 
BASICS, any arbitrary expression can be used to specify the line number, 
as well as the usual decimal constant. This allows computed branches to 
be performed with the same effect as the ON . . . GOTO statement in 
standard BASIC. 

The GOSUB statement is identical to the GOTO statement in form. 

It too causes a branch to a new line, but it also saves the address of the 
following statement on a stack. When a RETURN statement is executed, 
the saved address is popped from the stack, and control returns to that 
point in the program. Since an actual address, not a line number, is 
saved on the GOSUB stack, GOSUB statements may appear anywhere 
on a multiple-statement line. 

GOSUBs may be nested up to eight levels deep; an error will occur 
if an attempt is made to exceed this limit. The error condition does not 
destroy the previous contents of the stack, so a RETURN statement 
can be executed (even in edit mode) without an error occurring. How¬ 
ever, any modification of the NIBL program will clear the GOSUB 
stack, so that a subsequent RETURN without a GOSUB will cause an 
error. 

DO AND UNTIL STATEMENTS 

The DO and UNTIL statements are useful in writing program loops 
efficiently, without using misleading GOTO statements. Enclosing a 
group of zero or more statements between a DO statement and an 
UNTIL <condition> statement (where < condition> is an arbitrary 
expression) will cause the statement group to be repeated one or more 
times until the <condition> becomes true (i.e., non-zero). As an 
example of the use of the DO and UNTIL statements, we present a 
program that prints the prime numbers: 

10 PRINT 1: PRINT 2 
20 1=3 
30 DO 

40 J=l/2: N=2 

50 DO 

60 N=N+2 

70 UNTIL (MOD(I,N=0) OR (N>J) 

80 IF N > J PRINT I 

90 1=1+2 

100 UNTIL 0 

DO loops may be nested up to eight levels deep, and NIBL acts in 
the same manner if an overflow occurs as it does with a GOSUB over¬ 
flow. NIBL also reports an error if an UNTI L statements occurs without 
a previous DO. A single DO loop may have more than one UNTIL 
statement as a terminator. For example, if one wished to exit abnor¬ 


mally out of a DO loop and transfer to some appropriate line, it could 
be done in the following manner: 

UNTI L 1: GOTO X 
where X is the line number. 

Neither the DO nor the UNTIL statement may be executed in edit 
mode. 

FOR AND NEXT STATEMENTS 

The NIBL FOR statement is virtually identical to that in standard 
BASICS; consequently, it is not explained in great detail here. 

As in most BASICS, both positive and negative STEPs are allowed in 
the FOR statement, and a STEP of +1 is assumed if the STEP portion of 
the statement is omitted. A FOR loop is terminated by a NEXT Vari¬ 
able > statement, and the Variable> must be the same as that referred 
to in the FOR statement at the beginning of the loop. 

FOR loops may be nested four levels deep; NIBL reports an error if 
this limit is exceeded, or if a NEXT statement occurs without a previous 
FOR statement. As with the DO and UNTI L statements, FOR and NEXT 
may not be executed in edit mode. 

Perhaps the only differences between the NIBL FOR statement and 
that of more elaborate BASICS (such as DEC'S BASIC-PLUS for the 
PDP-11) are that a FOR loop is always executed at least once, and that 
when a NEXT statement is executed, the STEP value is added to the 
variable before the test is made to determine if the loop should be 
repeated (rather than after the test). 

INPUT STATEMENT 

There are two types of INPUT statements in NIBL: numeric input 
and string input. The form of the first type is 'INPUT' followed by a 
list of one or more variables. When this statement is executed, NIBL 
prompts at the teletype with a question mark ("?"). The user responds 
with a list of expressions separated by commas, and terminated by a 
carriage return. For example, a legal response to the statement INPUT 
A,B,C would be #3FA,26,4*27. These three expressions would then be 
assigned to the variables A, B, and C, respectively. An illegal response 
(too few arguments or improper expressions) will result in a syntax 
error. Any extra arguments in the response are ignored. 

The second type of INPUT statement allows strings to be input. 

The form of the statement is 'INPUT' '$' <address>, where 
<address> is a Factor, syntactically (usually a variable, constant, or 
expression in parentheses). When this statement is executed, NIBL 
prompts the user as before, at which point the user enters a line termin¬ 
ated by the usual carriage return. NIBL then stores the line in memory 
in consecutive locations, beginning at the address specified. Thus, 

INPUTS #6000 would cause the input line to be stored starting at 
location 6000 (base 16); the carriage return would also be stored at 
the end of the line. 

Strings input in this manner can be tested and manipulated by 
using the operator or the string handling statements described 
below. They can also be displayed by a PRINT statement. 

Neither of the two INPUT statements may be executed in edit 
mode. 

PRINT STATEMENT 

The form of the PRINT statement is 'PRINT' or 'PR' followed by a 
list of print items separated by commas, and optionally terminated by 
a semicolon, which suppresses an otherwise automatic carriage return 
after all items in the list are printed. 

A print item consists of one of the following: 

1. A quoted string, which is printed exactly as it appears (with the 
quotes removed) 

2. An expression, which is evaluated and printed in decimal format, 
with either a leading space or a minus sign ("-"), and one 
trailing space 

3. A reference to a string in memory, denoted by '$' < address>, 
where <address> is a Factor as usual. Successive memory loca¬ 
tions, starting at the specified address, are printed as ASCII char¬ 
acters, until a carriage return (which is not printed) is encountered. 

There is no zone spacing in the PRINT statement, nor does NIBL 
perform an automatic carriage return/line feed after printing 72 char¬ 
acters. Nl BL is not an output-oriented language; fancy formatting has 
been sacrificed for more useful control structures and data manipula¬ 
tion features. (A subroutine to print a number and skip to the next print 
zone is trivial to write in NIBL — it takes about two lines of code, with 
the DO/UNTI L and FOR/NEXT.) 

STRING HANDLING STATEMENTS 

String handling in NIBL is very minimal and low-level. The string 
handling features of the INPUT and PRINT statements have already 
been mentioned; NIBL provides two more statements for manipulating 
strings. 

A statement such as $<address> = "THIS IS A STRING" would 
cause the quoted string to be stored in memory starting at the specified 
address (which again is a Factor), with a carriage return being appended 
to the string. 
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Another statement allows the programmer to move strings around in 
memory once they have been created. The form of this statement is 
'$' <destination> '=' '$' < source >, where both <destination> and 
<source> are Factors, and are the addresses of strings in memory. This 
statement causes all the characters in the string pointed to by <source> 
to be copied one-by-one to the memory pointed to by < destination>, 
until a carriage return (also copied) is encountered. Overlapping the 
source and destination addresses can produce disastrous results, such as 
wiping out the entire contents of the current page. Consequently, a 
string move can be aborted by hitting the BREAK key on the teletype 
(but it must be done quickly!). 

Note that all strings referred to in these statements, and in the IN¬ 
PUT and PRINT statements, are assumed to lie within a 4K page, and 
wraparound is a possibility which must be anticipated by the program¬ 
mer. (Long-time SC/MP programmers will be familiar with this minor 
problem.) 

Using these statements, it should be very easy to develop a set of 
Nl BL subroutines for performing concatenation, comparison, and sub¬ 
string operations on strings. 

END STATEMENT 

The END statement may appear anywhere in a Nl BL program and 
not necessarily at the end. It causes a message and the current line 
number to be printed, with Nl BL returning to edit mode. The END 
statement is useful when debugging programs, since it acts as a break¬ 
point in the program that can be removed easily. 

LINK STATEMENT 

The LINK statement allows NIBL programs to call SC/MP machine 
language routines at any address. A statement of the form 'LINK' 

<address>, where <address> is an arbitrary expression, will cause 
the NIBL system to call the routine at that address by executing an 
appropriate XPPC P3 instruction. The user's routine should make sure 
that it returns by executing another XPPC P3, and that the value of P3 
upon entry to the routine is restored before returning. The routine may 
make use of the fact that P2 is set by NIBL to point to the beginning of 
the RAM block used to store the variables A through Z, with each 
variable being stored low byte first, high byte second. Thus, parameters 
may be passed between NIBL programs and machine language routines 
through the variables. Both PI and P2 may be modified by the user's 
routines; they are automatically restored by the NIBL system upon 
return. The user should be careful not to modify RAM locations with 
negative displacements relative to P2, or the locations with displace¬ 
ments greater than 51 relative to P2. These locations are used by the 
interpreter. 

REMARK STATEMENT 

A comment can be inserted into a NIBL program by preceding it 
with the word REM. REM causes the rest of the line to be ignored by 
Nl BL during execution. Remarks are useful in debugging programs or 
helping other people to understand them, but of course, they take up 
valuable memory. (Then again, memory is getting cheaper all the time.) 


BIOGRAPHICAL NOTE 

Mark Alexander, a graduate of the University of California, Santa 
Cruz, is getting bored with assembly language programming, and wishes 
someone would save him by making a microprocessor copy of the 
Burroughs B5500 computer. 

TABLE 1: NIBL Grammar 
On reading the grammar: 

All items in single quotes are actual symbols in NIBL; all other 
identities are symbols in the grammar. The equals sign "=", means 
"is defined as"; parentheses are used to group several items together 
as one item; the exclamation point, "I", means an exclusive-or choice 
between the items on either side of it; the asterisk, means zero 
or more occurrences of the item to its left; the plus sign, "+", means 
one or more repetitions; the question mark, "7", means zero or one 
occurrences; and the semicolon, marks the end of a definition. 

NIBL-Line ■ Immediate-Statement 
I Program-Line 


Immediate-Statement - (Command I Statement) Carriage-Return; 

Program-Line - (Decimal-Number Statement-List Carriage-Return); 

Command - 'NEW 

! 'CLEAR' 

1 'LIST' Decimal-Number ? 

1 'RUN' 

I 

Statement-List - Statement (':' STATEMENT) *; 

Statement - 'LET' ? Left-part '■• Rel-Exp 

1 'LET' ? '$' Factor (String I Factor) 

i 'GO' ('TO' I 'SU3') Rel-Exp 
l 'RETURN' 

1 ('PR' 1 'PRINT') Print-List 
1 'IF' Rel-Expr 'THEN' ? Statement 
1 'DO' 

: 'UNTIL' Rel-Exp 

I 'FOR' Variable '-' Rel-Exp 'TO' Rel-Exp ('STEP' Rel-Exp) ? 
I 'NEXT' Variable 

1 'INPUT' (Variable + l •$' Factor) 

I 'LINK' Rel-Exp 

1 'REM' Any-Character-Except-Carriage-Return ♦ 
l 'END' 


Left-Part - (Variable 1 '*' Factor I 'STAT' 1 'PAGE') ; 

Rel-Exp - Expression Relop Expression 
1 Expression 


Relop - '<• 1 '<' l •<• •>• l •>• 1 •>• l » 

Expression • Expression Adding-Operator term 
l ('•♦■' 1 '-') ? Term 


Adding-Operator - 1 '-' l 'OR' ; 


MULTIPLE STATEMENTS ON ONE LINE 

A program line may contain more than one statement, if the state¬ 
ments are separated by colons (":"). Using multiple statements on a 
single line improves the readability of the program by separating it into 
small blocks, and uses less memroy for storing the program. 

It is important to note that an IF statement will cause any state¬ 
ments appearing after it on the line to be ignored if the IF condition 
turns out to be false. This is the feature that allows a group of state¬ 
ments to be executed conditionally. 

A multiple-statement line may be entered without a line number 
but NIBL will only execute the first statement on the line, ignoring 
the rest. 

POWERING UP 

NIBL is capable of executing a program in ROM in Page 2 immedi¬ 
ately upon powering up, without the need for the user to give the RUN 
command at the teletype. When NIBL initializes, it examines Page 2 
and makes an educated guess about the possible existence of a legal 
NIBL program in that page. If NIBL thinks there really is a program 
there, it starts executing it immediately; thus, if the program halts for 
some reason, the value of PAGE will be 2. But if NIBL fails to find a 
legal program in Page 2 initially, it sets the value of PAGE to 1 (the 
normal case) and prompts at the teletype. 

When executing programs, NIBL periodically checks for keyboard 
interrupt, returning to edit mode if it detects it. Therefore, if a NIBL 
program is to be executed with the teletype disconnected, the Sense B 
line of the SC/MP should be set high so that NIBL will not sense an 
interrupt while running. This would allow a Nl BL system to act as a 
process controller which starts executing immediately upon powering 
up. 


Term - Term Multiplying-Operator Factor 
1 Factor 
» 


Multiplying-Operator - •*' I •/' l 'AND' ; 

Factor - Variable 

1 Decimal-Number 
1 '(' Rel-Exp ')' 

1 '§' Factor 

1 '#' Hex-Number 

I 'NOT' Factor 

1 'MOD' •(' Rel-Exp ',' Rel-Exp ')• 

1 'RND' •(' Rel-Exp ',' Rel-Exp ')' 

1 'STAT' 

1 'TOP' 

I 'PAGE' 


Variable - 'A' 1 'B' 1 'C' I ... I 'Y' I 'X' ; 


Decimal-Number ■ Decimal-Digit ; 
Decimal-Digit - '0' I *1' 1 '2' 1 ... I '9' ; 


Hex-Number ■ (Decimal-Digit l Hex-Digit) ♦ ; 
Hex-Digit - 'A* I 'B' l 'C* I 'D' 1 'E' I 'F' ; 
Print-list - Print-Item «■ ; 


Print-Item - (String 1 Rel-exp l '$' Factor) ; 

String - '■' Almost-Any-Character '"' ; 

NOTE: Spaces are not usually significant in NIBL programs, with 
the following exceptions: spaces cannot appear within key words 
(such as 'THEN' or 'UNTIL') or within constants. Also, a variable 
(such as A or Z) must be followed immediately by a non-alphabetic 
character to distinguish it from a key word. 
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TABLE 1: 


Nl BL Grammar 


COMPUTER HOBBYIST CONVENTIONS & TRADE SHOWS 


TABLE 2: Nl BL error messages 
Error messages are of the form: 

EEEE ERROR AT LN 

where EEEE is one of the error codes below, and LN is the number of 
of the line in which the error was encountered. 

AREA No more room left for program in current page 

CHAR Character after logical end of statement 

DIVO Division by zero 

END" No ending quote on string 

FOR FOR without NEXT 

NEST Nesting limit exceeded in expression, FOR's, GOSUBs, etc. 
NEXT NEXT without FOR 

NOGO No line number corresponding to GOTO or GOSUB 

RTRN RETURN without previous GOSUB 

SNTX Syntax error 

STMT Statement type used improperly 

UNTL UNTL without DO 

VALU Constant format or value error 


OOOO 


OPFf 


aooo 


2JFFF 



KOM/RAM 


?FFF 


RAM 


PAG>E ? 


Variables i 

Sttucks, 
©offers 

PR 

DGF 

*AM 

. A 

s 


\ 

V 

■ ■ ■ ■ J 


v 

L 

O 

tr- 


c* 

i 

Q- 

o 



ROM/RAM 


CODE FOLLOWS 


CONVENTIONS ALREADY HELD: 

May 2, 1976 Trenton Festival 

Trenton, NJ 

Amateur Comp. Group of NJ 


1500 people 
45 exhibitors 


June 11-13, 1976 Midwest Reg. Comp. Conf. 1500-2500 

people 

Cleveland, OH 

Midwest Affiliation of Comp. Clubs 


Aug 28-29, 1976 Personal Computing ’76 
Atlantic City, NJ 
S. Counties Amateur Radio Assn, 
of NJ 

CONVENTIONS BELIEVED TO BE IN THE WORKS: 

Mar 5, 1977 Microprocessor Hobbyists Demo 

(Saturday) United Good Neighbor Bldg. 

10 AM - 3 PM Renton, WA 

(Not a convention, but interest¬ 
ing) 


4500-5000 

people; 

103 exhibitors 


Mike & Key Amateur 
Radio Club 
Bill Balzarini K7MWC 
1518 S. Pearl St. 
Seattle, WA 98108 
(206) 762-7738 


Mar 19-20, 1977 Western Personal Computing Show Austin Cragg Conference 
Hyatt House, International Airpt. & Exposition Manage- 
Los Angeles ment Co., Box 844 

Greenwich, CT 06830 
(203) 661-6101 


Apr 15-17, 1977 


The First West Coast Computer 
Faire, Civic Auditorium 
San Francisco, CA 
San Francisco, CA 
(Expecting 7.000-10,000 people, 
50 sessions, 200 exhibitors] 


(co-sponsored by a 
number of Bay Area 
hobbyist, professional 
and educational organi¬ 
zations) 


Apr 31-May 1, 1977 Trenton Computerfest 
Trenton, NJ 


May 7-8, 1977 Eastern Personal Computing 

Show, Mariott Hotel 
Philadelphia, PA 


Alan Katz 

Dept, of Engr., Trenton 
State Coll., Trenton, NJ 
08625 

(609)771-2487 
Austin Cragg (listed prev.l 


Jun 13-16, 1977 Personal Computing Section AFIPS 

National Computer Conference ’77 210 Summit Ave. 
Dallas, TX Montvale, NJ 07645 

(201) 391-9810 


Jun 18-19,1977 

Jun 18-19,1977 

Jun,1977 

Jul 29-31, 1977 

Aug 27-28, 1977 

Oct 25-28, 1977 

Fall, 1977 


??? 


New England Personal Comp. 

Show, J.B. Hynes Aud. 
Boston, MA 
Atlanta Computerfest 
Atlanta, GA 
(in conjunction with 
Hamfest] 


Midwest Reg. Comp. Conf. 
Cleveland, OH 


Northwestern Amateur Radio 
Convention 

Seattle Ctr. & Washington Plaza 
Hotel, Seattle, WA 
(will include significant micro¬ 
computer activities] 

Personal Computing ’77 
Consumer Trade Fair 
Atlantic City, NJ (?1 

(Name unknown at press time) 
Anaheim Conv. Ctr. 

Anaheim, CA 

(Name unknown at press time) 
Los Angeles Area 
(Proposal to hold such a con¬ 
vention has been placed before 
SCCS Bd. of Directors] 
Technihobby-USA 
(3 of the 4 listed previously 
were postponed. Last word 
was they were considering 
also postponing the 4th.] 


Austin Cragg (listed prev.] 


? '73 Magazine 
73 Pine St. 

Peterborough, NH 
03458 

(603) 924-3873 
Midwest Affiliation of 
Comp. Clubs, PO Box 83 
Brecksville, OH 44141 
(216)732-8458 
ARRL-QCWA-WWDX Club 
ARRL Conven. Comm. 
10352 Sand Point Way NE 
Seattle, WA 98125 


John Dilks, PC’77 
503 W. New Jersey Ave. 
Somers Pt., NJ 08244 
(609) 927-6950 

Interface Age 
Box 1234 
Cerritos, CA 90701 
(213)469-7789 
Southern California 
Computer Society 
P.O. Box 3123 
Los Angeles, CA 90051 

Marketing Ventures, Inc. 
5012 Herzel PI. 

Beltsville, MD 20705 
(301)937-7177 


KILOBAUD - A PRENATEL NAME CHANGE 

John Craig, the Editor of Wayne Green’s new computer 
hobby mag, just phoned and told us that Wayne has changed 
the publication’s name — before the first issues comes out — 
from the initially advertised “Kilobyte” to Kilobaud. Oh, 
well... we’re still waiting for someone to start yet another 
rag and call it “Megabyte ” (but with luck,'that won’t happen). 


Note: This list excludes a number of conventions directed towards computer 
professionals that are expected to have at least nominal activity in the area of 
personal and hobby computing. Although the ’77 NCC is primarily for compu¬ 
ter professionals, its Personal Computing Section will be a major activity with 
a number of significant sessions and events planned for personal computer en¬ 
thusiasts. 
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TITLE NIBL. MOV. 27' 
OOOl LIST 1 


►**< 


WE ARE TIED DOWN TO A LANGUAGE WHICH 
MAKES UP IN OBSCURITY WHAT IT LACKS 
IN STYLE 

— TOM STOPPARD 


0020 TSTBIT = 020 

0040 JMPBIT = 040 

0080 CALBIT - 080 

0001 PI - 1 

0002 P2 « 2 

0003 P3 = 3 

FF80 EREG « -128 


i I. L. INSTRUCTION FLAGS 

; SC/MP POINTER ASSIGNMENTS 

;THE EXTENSION REGISTER 


, DISPLACEMENTS FOR RAM VARIABLES USED BY INTERPRETER 


FFFF DOPTR - -1 

FFFE FORPTR - -2 

FFFD LSTK - -3 

FFFC SBRPTR - -4 

FFFB PCLOW « -5 

FFFA PCHIGH - -6 

FFF9 PCSTK - -7 

FFF8 LOLINE = -8 

FFF7 HILINE - -9 

FFF6 PAGE - -10 

FFF5 LISTNG - -11 

FFF4 RUNMOD = -12 

FFF3 LABLLO - -13 

FFF2 LABLHI - -14 

FFF1 PILOW - -15 

FFFO P1HIGH * -16 

FFEF LO = -17 

FFEE HI * -18 

FFED FAILLO - -19 

FFEC FAILHI - -20 

FFEB NUM - -21 

FFEA TEMP = -22 

FFE9 TEMP2 - -23 

FFE8 TEMP3 - -24 

FFE7 CHRNUM - -25 

FFE6 RNDF - -26 

FFE5 RNDX - -27 

FFE4 RNDY - -28 


; DO-STACK POINTER 
,FOR-STACK POINTER 
;ARITHMETIC STACK POINTER 
; GOSUB STACK POINTER 
;I L. PROGRAM COUNTER 

il.L. CALL STACK POINTER 
.CURRENT LINE NUMBER 

; VALUE OF CURRENT PAGE 
;LISTING FLAG 
.RUN/EDIT FLAG 


;SPACE TO SAVE CURSOR 


,SEEDS FOR RANDOM NUMBER 


0055 

01 


XAE 



0056 

C400 

CLEAR1: 

LDI 

0 

, SET ALL VARIABLES 

0058 

CA80 


ST 

EREG < P2) 

, TO ZERO 

005A 

AAEA 


ILD 

TEMP < P2) 


005C 

01 


XAE 



005D 

C434 


LDI 



005F 

60 


XRE 



0060 

9CF4 


JNZ 

CLEAR1 


0062 

C450 


LDI 

L(AESTK) 

; INITIALIZE SOME STACKS 

0064 

CAFD 


ST 

LSTK(P2) 

. ARITHMETIC STACK, 

0066 

C47A 


LDI 

L(DOSTAK) 


0068 

CAFF 


ST 

DOPTR<P2) 

; DO/UNTIL STACK, 

006A 

C46A 


LDI 

L(SBRSTK) 


006C 

CAFC 


ST 

SBRPTR<P2) 

, GOSUB STACK, 

006E 

C4A6 


LDI 

L(PCSTAK) 


0070 

CAF9 


ST 

PCSTK < P2) 

, I. L. CALL STACK. 

0072 

C48A 


LDI 

L(FORSTK) 


0074 

CAFE 


ST 

FORPTR<P2) 

; FOR/NEXT STACK 



i* INTERMEDIATE LANGUAGE EXECUTOR * 

0076 

C2FB 

EXECIL: 

LD 

PCLOW(P2) 

»SET P3 TO CURRENT 

0078 

33 


XPAL 

P3 

. IL PC 

0079 

C2FA 


LD 

PCHIGH < P2) 


007B 

37 


XPAH 

P3 


007C 

C701 

CHEAT 

LD 

@1<P3> 


007E 

01 


XAE 


.GET NEW IL INSTRUCTION 

007F 

C701 


LD 

(►1 (P3) 

, INTO P3 THROUGH 

0081 

33 


XPAL 

P3 

, OBSCURE METHODS 

0082 

CAFB 


ST 

PCLOW<P2> 

; SIMULTANEOUSLY, INCREMENT 

0084 

40 


LDE 


, THE IL PC BY 2 

0085 

37 


XPAH 

P3 


0086 

CAFA 


ST 

PCHIGH(P2) 


0088 

40 


LDE 



0089 

D4F0 


AN I 

OFO 

; CHECK IF IL INSTRUCTION 

008B 

E420 


XRI 

TSTBIT 

; IS A 'TEST' 

008D 

9836 


JZ 

TST 


008F 

E4A0 


XRI 

CALBIT’TSTBIT 

i CHECK FOR IL CALL 

0091 

980D 


JZ 

ILCALL 


0093 

E4C0 


XRI 

JMPBIT 1 CALBIT 

; CHECK FOR IL JUMP 

0095 

9C06 


JNZ 

NOJUMP 


0097 

37 


XPAH 

P3 

, *** I L. JUMP *** 

0098 

D40F 


AN I 

OF 

.ALL IT TAKES IS SCRUBBING 

009A 

37 


XPAH 

P3 

, THE JUMP FLAG OFF OF P3 

009B 

90DF 

CHEAT 1 

JMP 

CHEAT 


009D 

3F 

NOJUMP 

XPPC 

P3 

-MUST BE AN ML SUBROUTINE 

009E 

90D6 


JMP 

EXECIL 

i IF NONE OF THE ABOVE 


0000 

101C 

1050 

106A 

107A 

108A 

10A6 

10D6 

1120 


ALLOCATION OF RAM FOR NIBL VARIABLES. STACKS, 


AND LINE BUFFER 

-01000+28 
VARS: . - +52 

AESTK: . - +26 

SBRSTK: - +16 

DOSTAK - +16 
FORSTK: = +28 

PCSTAK: = +48 

LBUF: - +74 

PGM: -0 


NIBL VARIABLES A-Z 
ARITHMETIC STACK 
GOSUB STACK 
DO/UNTIL STACK 
FOR/NEXT STACK 
I L. CALL STACK 
LINE BUFFER 
USER'S PROGRAM 


MACRO LDPI, P, VAL 
MLOC TEMP 
SET TEMP. VAL 
LDI H(TEMP) 

XPAH P 

LDI L(TEMP) 

XPAL P 

ENDM 


INITIALIZATION OF NIBL * 


0000 08 

0001 

0007 

OOOD C4FF 

OOOF C900 

0011 C901 

0013 C40D 

0015 C9FF 

0017 C402 

0019 CAF6 

00IB 31 

001C C420 

00IE 35 

00IF B902 

0021 01 

0022 Cl80 

0024 E40D 

0026 9802 

0028 BAF6 

002A C420 *0: 

002C 35 *LOOP: 

002D C4FF 

002F C900 

0031 C901 

0033 C40D 

0035 C9FF 

0037 35 

0038 02 

0039 F410 

003B E480 

003D 9804 

003F E480 

0041 90E9 

0043 C400 *1: 

0045 CAF4 

0047 CAF5 

0049 C454 

004B CAFB 

004D C40C 

004F CAFA 

0051 C400 CLEAR: 

0053 CAEA 


NOP 

LDPI P2.VARS 

LDPI PI,PGM 

LDI -1 

ST 0(P1) 

ST 1<P1> 

LDI OD 

ST —1(PI) 

LDI 2 

ST PAGE < P2) 

XPAL PI 

LDI 020 

XPAH PI 

DLD 2<P1) 

XAE 

LD EREG(PI) 

XRI OD 

JZ *0 

DLD PAGE(P2) 

LDI 020 

XPAH PI 

LDI -1 

ST (PI) 

ST 1(PI) 

LDI OD 

ST -1(PI) 

XPAH PI 

CCL 

ADI 010 

XRI 080 

JZ 41 

XRI 080 

JMP 4L00P 

LDI 0 

ST RUNMOD(P2) 

ST LISTNG(P2> 

LDI L(BEGIN) 

ST PCLOW(P2) 

LDI H(BEGIN) 

ST PCHIGH(P2) 

LDI 0 

ST TEMP(P2) 


POINT 

POINT 

STORE 


P2 AT VARIABLES 

PI AT PAGE ONE PROGRAM 

-1 AT START OF PROGRAM 


.ALSO STORE A DUMMY END-OF-LI 

;POINT P2 AT PAGE 2. 
i INITIALLY SET PAGE TO 2 


CHECK IF THERE IS REALLY 
A PROGRAM IN PAGE 2: 

IF FIRST LINE LENGTH 
POINTS TO CARR RETURN 
AT END OF LINE 
IF NOT, PAGE = 1 


; STORE -1 IN 2 CONSECUTIVE 
i LOCATIONS AT START OF PAGE 

; ALSO PUT A DUMMY END-OF-LINE 
; JUST BEFORE TEXT 
,UPDATE PI TO POINT TO 
. NEXT PAGE (UNTIL PAGE=8) 

;REPEAT INITIALIZATION 
. FOR PAGES 2-7 


;CLEAR SOME FLAGS 


INITIALIZE IL PC SO THAT 
NIBL PROGRAM 
IS EXECUTED IMMEDIATELY 


, ***»•**••»*•#«••••*•••**#****#•*< 

;* INTERMEDIATE LANGUAGE CALL 


OOAO 

C2F9 

ILCALL 

LD 

PCSTK(P2) 


00 A 2 

E4D6 


XRI 

L(LBUF) 

CHECK FOR STACK OVERFLOW 

00A4 

9C04 


JNZ 

ILC1 


00A6 

C40A 


LDI 

10 


00A8 

9063 


JMP 

EOA 


OOAA 

E4D6 

ILC1: 

XRI 

L < LBUF) 

RESTORE ACCUMULATOR 

OOAC 

33 


XPAL 

P3 

SAVE LOW BYTE OF NEW 

OOAD 

CAEA 


ST 

TEMP(P2) 

I L PC IN TEMP 

OOAF 

C410 


LDI 

H < PCSTAK) 

POINT P3 AT I L 

00B1 

37 


XPAH 

P3 

SUBROUTINE STACK 

00B2 

C2FB 


LD 

PCLOW(P2) 

SAVE OLD I L. PC ON STACK 

00B4 

CF01 


ST 

•1(P3) 


00B6 

C2FA 


LD 

PCHIGH(P2) 


00B8 

CF01 


ST 

•1<P3> 


OOBA 

C2EA 


LD 

TEMP(P2) 

GET LOW BYTE OF NEW 

OOBC 

33 


XPAL 

P3 

I. L. PC INTO P3 LOW 

OOBD 

CAF9 


ST 

PCSTK(P2) 

UPDATE I L STACK POINTER 

OOBF 

40 


LDE 


GET HIGH BYTE OF NEW P3 

OOCO 

D40F 


AN I 

OF 

I L PC INTO P3 HIGH 

00C2 

37 


XPAH 

P3 


00C3 

90B7 


JMP 

CHEAT 





;»•*•* 

i * 

I. L. 

TEST' INSTRUCTION 

* 




LOCAL 


00C5 

CAE 7 

TST 

ST 

CHRNUM<P2> 

CLEAR NUMBER OF CHARS SCANNE 

00C7 

C501 

♦ SCAN 

LD 

@1(PI) 

SLEW OFF SPACES 

00C9 

E420 


XRI 



OOCB 

98FA 


JZ 

♦SCAN 


OOCD 

C5FF 


LD 

®-l(PI) 

REPOSITION CURSOR 

OOCF 

C2FA 


LD 

PCHIGH(P2) 

POINT P3 AT IL TABLE 

00D1 

37 


XPAH 

P3 


00D2 

D40F 


AN I 

OF 

FAIL ADDRESS <- OLD P3 

00D4 

CAEC 


ST 

FAILHI(P2> 


00D6 

C2FB 


LD 

PCLOW(P2) 


00D8 

33 


XPAL 

P3 


00D9 

CAED 


ST 

FAILL0(P2) 


OODB 

C701 

♦LOOP 

LD 

@1<P3) 


OODD 

01 


XAE 


SAVE CHAR FROM TABLE 

OODE 

BAE7 


DLD 

CHRNUM<P2> 

DECREMENT CHAR COUNT 

OOEO 

40 


LDE 


GET CHAR BACK 

00E1 

D47F 


AN I 

07F 

SCRUB OFF FLAG (IF ANY) 

00E3 

E501 


XOR 

@1(PI) 

IS CHAR EQUAL TO TEXT CHAR? 

00E5 

9C07 


JNZ 

♦NEQ 

NO - END TEST 

00E7 

40 


LDE 


YES - BUT IS IT LAST CHAR^ 

00E8 

94F1 


JP 

♦LOOP 

IF NOT, CONTINUE TO COMPARE 

OOEA 

9090 


JMP 

CHEAT 

IF SO. GET NEXT I L. 

OOEC 

9088 

XO 

JMP 

EXECIL 

INSTRUCTION 

OOEE 

C2E7 

♦NEQ 

LD 

CHRNUM<P2> 

RESTORE PI TO 

OOFO 

01 


XAE 


ORIGINAL VALUE 

OOF 1 

C580 


LD 

8EREG(PI) 


OOF 3 

C2ED 


LD 

FAILL0(P2) 

LOAD TEST-FAIL ADDRESS 

00F5 

33 


XPAL 

P3 

INTO P3 

00F6 

C2EC 


LD 

FAILHI(P2> 


OOFS 

37 


XPAH 

P3 


OOF 9 

90A0 


JMP 

CHEAT 1 < GET NEXT IL INSTRUCTION 




4#**#*** 

I L. 

SUBROUTINE RETURN 
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OOFB 

C410 

RTN 

LDI 

H(PCSTAK) 

, POINT P3 AT I L. 

PC STACK 

OOFD 

37 


XPAH 

P3 



OOFE 

C2F9 


LD 

PCSTK(P2) 



0100 

33 


XPAL 

P3 



0101 

C7FF 


LD 

@-1<P3) 

,GET HIGH PART OF OLD PC 

0103 

01 


XAE 




0104 

C7FF 


LD 

e-1(P3) 

;GET LOW PART OF 

OLD PC 

0106 

33 


XPAL 

P3 



0107 

CAF9 


ST 

PCSTK(P2) 

,UPDATE IL STACK 

POINTER 

0109 

40 


LDE 




010A 

37 


XPAH 

P3 

i P3 NOW HAS OLD 

IL PC 

010B 

908E 


JMP 

CHEAT1 



010D 

9041 

EOA: 

JMP 

EO 





,***»****#**#****#*##****#*####**»*##* 


; * . 

SAVE GOSUB RETURN ADDRESS 

* 

01OF C2FC 

SAV 

LD 

SBRPTR(P2) 


0111 E47A 


XRI 

L < DOSTAK) 

, CHECK FOR MORE 

0113 981C 


JZ 

SAV 2 

, THAN 8 SAVES 

0115 AAFC 


ILD 

SBRPTR(P2) 


0117 AAFC 


ILD 

SBRPTR(P2) 


0119 33 


XPAL 

P3 

.SET P3 TO 

011A C410 


LDI 

H(SBRSTK) 

. SUBROUTINE STACK TOP 

011C 37 


XPAH 

P3 


01 ID C2F4 


LD 

RUNMOD(P2) 

, IF IMMEDIATE MODE, 

01 IF 980A 


JZ 

SAV1 

, SAVE NEGATIVE ADDRESS 

0121 35 


XPAH 

PI 

.SAVE HIGH PORTION 

0122 CBFF 


ST 

-1(P3) 

, OF CURSOR 

0124 35 


XPAH 

PI 


0125 31 


XPAL 

PI 

.SAVE LOW PORTION 

0126 CBFE 


ST 

-2<P3> 

, OF CURSOR 

0128 31 


XPAL 

PI 


0129 90C1 


JMP 

XO 

.RETURN 

012B C4FF 

SAV1 

LDI 

-1 

,IMMEDIATE MODE 

012D CBFF 


ST 

-1<P3) 

. RETURN ADDRESS IS 

012F 90BB 


JMP 

XO 

, NEGATIVE 

0131 C40A 

SAV2 

LDI 

10 

,ERROR MORE THAN 

0133 90IB 


JMP 

EO 

. 8 GOSUBS 




i • 

CHECK 

STATEMENT FINISHED 

« 

0135 

C501 

DONE 

LD 

@1<P1) 

> SKIP SPACES 

0137 

E420 


XRI 



0139 

*?8FA 


JZ 

DONE 


013B 

E42D 


XRI 

' 1 OD 

; IS IT CARRIAGE RETURN? 

013D 

9804 


JZ 

DONE 1 

JYES - RETURN 

013F 

E437 


XRI 

037 

; IS CHAR A ' ' ? 

0141 

9C01 


JNZ 

DONE 2 

,NO - ERROR 

0143 

3F 

DONE 1 

XPPC 

P3 

iYES - RETURN 

0144 

C404 

DONE 2 

LDI 

4 


0146 

9008 


JMP 

EO 





l * 

RETURN 

FROM GOSUB 

* 

0148 

C2FC 

RSTR 

LD 

SBRPTR(P2) 


014A 

E46A 


XRI 

L(SBRSTK) 

,CHECK FOR RETURN 

014C 

9C04 


JNZ 

RSTR1 

; W/0 GOSUB 

014E 

C409 


LDI 

9 


0150 

9043 

EO: 

JMP 

El 

iGOTO ERROR 

0152 

BAFC 

RSTR1 

DLD 

SBRPTR(P2) 


0154 

BAFC 


DLD 

SBRPTR<P2) 

.POP GOSUB STACK. 

0156 

33 


XPAL 

P3 

i PUT PTR INTO P3. 

0157 

C410 


LDI 

H(SBRSTK) 


0159 

37 


XPAH 

P3 


015A 

C301 


LD 

1 <P3> 

iIF ADDRESS NEGATIVE, 

015C 

9409 


JP 

RSTR2 

. SUBROUTINE WAS CALLED 

015E 

C402 


JS 

P3.FIN 

i IN IMMEDIATE MODE, 

0165 

9085 

XI 

JMP 

XO 

i SO FINISH UP EXECUTING 

0167 

35 

RSTR2 

XPAH 

PI 

,RESTORE CURSOR HIGH 

0168 

C300 


LD 

0(P3) 


016A 

31 


XPAL 

PI 

,RESTORE CURSOR LOW 

016B 

C401 


LDI 

1 

;SET RUN MODE 

016D 

CAF4 


ST 

RUNMOD(P2) 


016F 

90F4 


JMP 

XI 






TRANSFER 

TO NEW STATEMENT * 

0171 

C2F2 

XFER 

LD 

LABLHKP2) .CHECK FOR NON-EXISTENT LINE 

0173 

9404 


JP 

XFER1 

0175 

C408 


LDI 

8 

0177 

901C 


JMP 

El 

0179 

C401 

XFER1 

LDI 

1 .SET RUN MODE TO 1 

017B 

CAF4 


ST 

RUNMOD<P2) 

017D 

3F 


XPPC 

P3 




i ****( 

i • 

; #**#1 

PRINT 

»■******< 

STRING IN TEXT 

******** 

• 

******** 

017E 


PRS 

LDP I 

P3.PUTC-1 

.POINT P3 AT PUTC ROUTINE 

0184 

C501 


LD 

@1<P1) 

-LOAD NEXT CHAR 

0186 

E422 


XRI 


, IF ", END OF 

0188 

98DB 


JZ 

XI 

. STRING 

018A 

E42F 


XRI 

02F 

, IF CR, ERROR 

018C 

9805 


JZ 

PRS1 


018E 

E40D 


XRI 

OD 

, RESTORE CHAR 

0190 

3F 


XPPC 

P3 

.PRINT CHAR 

0191 

90EB 


JMP 

PRS 

i GET NEXT CHAR 

0193 

C407 

PRS1 

LDI 

7 

, SYNTAX ERROR 

0195 

9035 

El 

JMP 

E2 




j »***< 

i * 

1 »»*4H 

PRINT 

t***************** 

NUMBER ON STACK 

t****«»**»•*•**»** 

* 

******** 


THIS ROUTINE IS BASED ON DENNIS ALLISON'S BINARY TO DECIMAL 
CONVERSION ROUTINE IN VOL 1, *1 OF "DR DOBB'S JOURNAL", 
BUT IS MUCH MORE OBSCURE BECAUSE OF THE STACK MANIPULATION 


LOCAL 


0197 

C410 

PRN 

LDI 

H< AESTK) 

• POINT P3 AT A E. STACK 

0199 

37 


XPAH 

P3 


019A 

AAFD 


ILD 

LSTK(P2) 


019C 

AAFD 


ILD 

LSTK < P2) 


019E 

33 


XPAL 

P3 


019F 

C40A 


LDI 

10 

i PUT 10 ON STACK (WE'LL BE 

01A1 

CBFE 


ST 

-2<P3) 

i DIVIDING BY IT Lf'ER) 

01 A3 

C400 


LDI 

0 


01A5 

CBFF 


ST 

-1<P3) 


01A7 

C405 


LDI 

5 

• SET CHRNUM TO POINT TO PLACE 

01A9 

CAE 7 


ST 

CHRNUM< P2 > 

; IN STACK WHERE WE STORE 

01AB 

C4FF 


LDI 

-1 

i THE CHARACTERS TO PRINT 

01 AD 

CB05 


ST 

5<P3> 

jFIRST CHAR IS A FLAG (-1) 

01AF 

C3FD 


LD 

-3<P3) 

i CHECK IF NUMBER IS NEGATIVE 

01B1 

9413 


JP 

♦ 1 


01B3 

C42D 


LDI 

'-' 

»PUT ON STACK, AND NEGATE 

01B5 

CB04 


ST 

4(P3) 

• THE NUMBER 

01B7 

C400 


LDI 

0 


01B9 

03 


SCL 



01 BA 

FBFC 


CAD 

-4<P3) 


01BC 

CBFC 


ST 

-4<P3> 


01 BE 

C400 


LDI 

0 


01C0 

FBFD 


CAD 

-3 < P3) 


01C2 

CBFD 


ST 

-3(P3) 


01C4 

909F 


JMP 

XI 

i GO DO DIVISION BY 10 

01C6 

C420 

*1: 

LDI 

' ' 

; IF POSITIVE. PUT ' ' ON 

01C8 

CB04 


ST 

4 (P3) 

i STACK BEFORE DIVISION 

01CA 

9099 

X4: 

JMP 

XI 


01CC 

9057 

E2: 

JMP 

ERR1 




i THE 

DIVISION 

IS PERFORMED, 

THEN CONTROL IS TRANSFERRED 



j TO PRN1, WHICH FOLLOWS 


01CE 

AAFD 

PRN1 

ILD 

LSTK < P2) 

i POINT PI AT A E. STACK 

01 DO 

AAFD 


ILD 

LSTK(P2) 


01D2 

31 


XPAL 

PI 


01D3 

o 

•6 

O 


LDI 

H(AESTK) 


01D5 

35 


XPAH 

PI 


01D6 

AAE7 


ILD 

CHRNUM < P2) 

i INCREMENT CHARACTER STACK 

01D8 

01 


XAE 


i POINTER, PUT IN EX REG 

01D9 

C101 


LD 

1<P1 ) 

»GET REMAINDER FROM DIVIDE. 

01DB 

DC30 


OR I 

' 0 ' 


01DD 

C980 


ST 

EREG(P1) 

i PUT IT ON THE STACK 

01DF 

C1FD 


LD 

-3<P1) 

JIS THE QUOTIENT ZERO YET? 

01E1 

D9FC 


OR 

-4<P1) 


01E3 

980A 


JZ 

♦PRNT 

J YES - GO PRINT THE NUMBER 

01E5 

C40F 


LDI 

H < PRNUM1) 

i NO - CHANGE THE I. L. PC 

01E7 

CAFA 


ST 

PCHIGH(P2) 

j SO THAT DIVIDE IS 

01E9 

C42F 


LDI 

L(PRNUM1) 

» PERFORMED AGAIN 

01EB 

CAFB 


ST 

PCL0W<P2> 


01ED 

90DB 


JMP 

X4 

i GO DO DIVISION BY 10 AGAIN 

01EF 


*PRNT 

LDPI 

P3,PUTC-1 

i POINT P3 AT PUTC ROUTINE 

01F5 

C2F5 


LD 

LISTNG(P2) 

iIF LISTING, SKIP PRINTING 

01F7 

9C06 


JNZ 

♦2 

i LEADING SPACE 

01F9 

Cl 04 


LD 

4<PI ) 

jPRINT EITHER 

01FB 

3F 


XPPC 

P3 

i OR LEADING SPACE 

01FC 

C2E7 


LD 

CHRNUM<P2) 

» GET EX REG VALUE BACK 

01FE 

01 


XAE 



01FF 

C580 

*2: 

LD 

@EREG(P1) 

.POINT P3 AT FIRST CHAR 

0201 

C100 


LD 

<P1) 

; TO BE PRINTED 

0203 

3F 

♦LOOP 

XPPC 

P3 

i PRINT THE CHARACTER 

0204 

C5FF 


LD 

e-i< pi> 

» GET NEXT CHARACTER 

0206 

94FB 


JP 

♦LOOP 

;REPEAT UNTIL - -1 

0208 

C450 


LDI 

L(AESTK) 


020A 

CAFD 


ST 

LSTMP2) 

; CLEAR THE A. E STACK 

020C 

C2F5 


LD 

LISTNG(P2) 

}PRINT A TRAILING SPACE 

020E 

9CBA 


JNZ 

X4 

i IF NOT LISTING PROGRAM 

0210 

C420 


LDI 

' * 


0212 

3F 


XPPC 

P3 


0213 

90B5 


JMP 

X4 





- 

CARRIAGE 

RETURN/LINE 

FEED * 

0215 


NLINE 

LDPI 

P3,PUTC-1 

;POINT P3 AT PUTC ROUTINE 

02 IB 

C40D 


LDI 

OD 

,CARRIAGE RETURN 

02 ID 

3F 


XPPC 

P3 


02 IE 

C40A 


LDI 

OA 

i LINE FEED 

0220 

3F 


XPPC 

P3 


0221 

90A7 

X5: 

JMP 

X4 





■* 

********< 

ERROR 

ROUTINE 

» 




LOCAL 



0223 

C405 

ERR 

LDI 

5 

, SYNTAX ERROR 

0225 

CAEB 

ERR 1 

ST 

NUM < P2) 

, SAVE ERROR « 

0227 

C2EB 

ERR2 

LD 

NUM(P2) 


0229 

CAEA 


ST 

TEMP < P2) 


022B 



LDPI 

P3,PUTC-1 

i POINT P3 AT PUTC 

0231 

C40B 


LDI 

OD 

.PRINT CR/LF 

0233 

3F 


XPPC 

P3 


0234 

C40A 


LDI 

OA 


0236 

3F 


XPPC 

P3 


0237 



LDPI 

PI. MESGS 

,P1 -> ERROR MESSAGES 

023D 

BAEB 

♦ 1 

DLD 

NUM < P2) 

i IS THIS THE RIGHT MESSAGE? 

023F 

9806 


JZ 

♦MSG 

»YES - GO PRINT IT 

0241 

C501 

♦LOOP 

LD 

@1(PI> 

iNO - SCAN THROUGH TO 

0243 

94FC 


JP 

♦LOOP 

. NEXT MESSAGE 

0245 

90F6 


JMP 

♦ 1 


0247 

C501 

♦MSG 

LD 

@1<P1) 

.GET MESSAGE CHAR 

0249 

3F 


XPPC 

P3 

.PRINT IT 

024A 

C1FF 


LD 

-1<P1) 

i IS MESSAGE DONE' 7 

024C 

94F9 


JP 

♦MSG 

, NO - GET NEXT CHAR 

024E 

C2EA 


LD 

TEMP(P2) 

» WAS THIS A BREAK MESSAGE? 

0250 

E40E 


XRI 

14 


0252 

980D 


JZ 

♦3 

i YES - SKIP PRINTING 'ERROR 

0254 



LDPI 

PI, MESGS 

, NO - PRINT ERROR' 

025A 

C501 

♦ 2 

LD 

@1(PI) 

; GET CHARACTER 

025C 

3F 


XPPC 

P3 

.PRINT IT 

025D 

C1FF 


LD 

-1(PI) 

j DONE 7 
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025F 94F9 


JP 

♦2 

.NO - REPEAT LOOP 

0261 C2F 4 

*3 

LD 

RUNMOD(P2) 

-DON'T PRINT LINE 4 

0263 984D 


JZ 

FIN 

. IF IMMEDIATE MODE 

0265 C420 


LDI 



0267 3F 


XPPC 

P3 

- SPACE 

0268 C441 


LDI 

A' 

- AT 

026A 3F 


XPPC 

P3 


026B C454 


LDI 

' T' 


026D 3F 


XPPC 

P3 


026E C410 


LDI 

H< AESTK) 

.POINT P3 AT A. E. STACK 

0270 37 


XPAH 

P3 


0271 AAFD 


ILD 

LSTK(P2) 


0273 AAFD 


ILD 

LSTK < P2) 


0275 33 


XPAL 

P3 


0276 C2F7 


LD 

HILINE(P2) 

-GET HIGH BYTE OF LINE « 

0278 CBFF 


ST 

-1<P3) 

. PUT ON STACK 

027A C2F8 


LD 

LOLINE < P2) 

.GET LOW BYTE OF LINE * 

027C CBFE 


ST 

-2(P3) 

, PUT ON STACK 

027E C42D 


LDI 

L(ERRNUM) 

; GO TO PRN 

0280 CAFB 


ST 

PCLOW(P2 > 


0282 C40E 


LDI 

H(ERRNUM) 


0284 CAFA 


ST 

PCHIGH< P2) 


0286 9099 

X5A 

JhP 

X5 





i *♦***< 

»*#**♦** 

BREAK, 

NXT, FIN, St STRT 

f#***#* 



;**#*#*#**##*****#**#*****#****#****** 

0288 

C40E 

BREAK 

LDI 

14 


028A 

9099 

E3A 

•JMP 

ERR1 

-*** NEXT STATEMENT *** 

028C 

C2F4 

NXT 

LD 

RUNMOD < P2 ) 

; IF IN IMMED MODE, 

028E 

9822 


JZ 

FIN 

, STOP EXECUTION 

0290 

C100 


LD 

(PI ) 

. IF WE HIT END OF FILE, 

0292 

D480 


ANI 

080 

i FINISH UP THINGS 

0294 

9C1C 


JNZ 

FIN 


0296 

06 


CSA 


,BREAK IF SOMEONE IS 

0297 

D420 


ANI 

020 

i TYPING ON THE CONSOLE 

0299 

98ED 


JZ 

BREAK 


029B 

C1FF 


LD 

- 1 < P 1 ) 

,GET LAST CHARACTER SCANNED 

029D 

E40D 


XRI 

OD 

, WAS IT CARRIAGE RETURN'* 

029F 

9C08 


JNZ 

NX T1 

-YES - SKIP FOLLOWING UPDATES 

02A1 

C501 


LD 

@1(PI) 

-GET HIGH BYTE OF NEXT LINE 4 

02A3 

CAF7 


ST 

HILINE(P2) 

•SAVE IT 

02A5 

C502 


LD 

@2(PI) 

.GET LOW BYTE OF LINE 4, SKIP 

02A7 

CAF8 


ST 

LOLINE(P2 > 

, LINE LENGTH BYTE 

02A9 

C40C 

NXT 1 

LDI 

H(STMT) 

iGO TO 'STMT' IN IL TABLE 

02AB 

CAFA 


ST 

PCHIGH(P2> 


02AD 

C482 


LDI 

L(STMT) 


02AF 

CAFB 


ST 

PCLOW(P2) 


02B1 

3F 


XPPC 

P3 


02B2 

C400 

FIN 

LDI 

0 

,*** FINISH EXECUTION *** 

02B4 

CAF4 


ST 

RUNMOD < P2) 

,CLEAR RUN MODE 

02B6 

C450 


LDI 

L<AESTK) 

.CLEAR ARITHMETIC STACK 

02B8 

CAFD 


ST 

LSTK(P2) 


02BA 

C418 


LDI 

L(START) 

i SET IL PC TO GETTING LINES 

02BC 

CAFB 


ST 

PCLOW(P2) 


02BE 

C40C 


LDI 

H< STARi ; 


02C0 

CAFA 


ST 

PCHIGH(P2) 


02C2 

C4A6 


LDI 

L(PCSTAK) 


02C4 

CAF9 


ST 

PCSTK < P2) 


02C6 

90BE 


JMP 

X5A 

;*** START EXECUTION *** 

02C8 

AAF4 

STRT: 

ILD 

RUNMOD(P2) 

,RUN MODE = 1 

02CA 

C2E9 


LD 

TEMP2< P2) 

.POINT CURSOR TO 

02CC 

35 


XPAH 

PI 

; START OF NIBL PROGRAM 

02CD 

C2E8 


LD 

TEMPS(P2) 


02CF 

31 


XPAL 

PI 


02D0 

C46A 


LDI 

L(SBRSTK) 

.EMPTY SOME STACKS: 

02D2 

CAFC 


ST 

SBRPTR(P2) 

, GOSUB STACK, 

02D4 

C48A 


LDI 

L(FORSTK) 


02D6 

CAFE 


ST 

FORPTR(P2) 

, FOR STACK 

02D8 

C47A 


LDI 

L(DOSTAK) 


02DA 

CAFF 


ST 

DOPTR(P2) 

, t- DO/UNTIL STACK 

02DC 

3F 


XPPC 

P3 

,RETURN 

02DD 

90A7 

X6 

JMP 

X5A 


02DF 

90A9 

E4: 

JMP 

E3A 





-* 

LIST 

NIBL PROGRAM 

• 

02E1 

C100 

LST 

LD 

(PI) 

.CHECK FOR END OF FILE 

02E3 

E480 


XRI 

080 


02E5 

9418 


JP 

LST2 


02E7 

C410 


LDI 

H(AESTK) 

.GET LINE NUMBER ONTO STACK 

02E9 

37 


XPAH 

P3 


02EA 

AAFD 


ILD 

LSTK(P2) 


02EC 

AAFD 


ILD 

LSTK(P2) 


02EE 

33 


XPAL 

P3 


02EF 

C501 


LD 

@1(PI) 


02F1 

CBFF 


ST 

-1<P3) 


02F3 

C501 


LD 

@1(PI) 


02F5 

CBFE 


ST 

-2<P3) 


02F7 

C501 


LD 

@1(PI) 

.SKIP OVER LINE LENGTH 

02F9 

C401 


LDI 

1 


02FB 

CAF5 


ST 

LISTNG(P2> 

.SET LISTING FLAG 

02FD 

90DE 


JMP 

X6 

.GO PRINT LINE NUMBER 

02FF 

C400 

LST2 

LDI 

0 


0301 

CAF5 


ST 

LISTNG(P2) 

.CLEAR LISTING FLAG 

0303 

C402 


JS 

P3, NXT 

,GO TO NXT 

030A 

90D1 

X6A 

JMP 

X6 


030C 

90D1 

E5 

JMP 

E4 


030E 


LST3 

LDP I 

P3,PUTC-1 

.POINT P3 AT PUTC 

0314 

06 

LST 4 

CSA 



0315 

D420 


ANI 

020 


0317 

98E6 


JZ 

LST2 

; IF TYPING, STOP 

0319 

C501 


LD 

@1(PI) 

.GET NEXT CHAR 

03 IB 

E40D 


XRI 

OD 

,TEST FOR CR 

03 ID 

9805 


JZ 

LST5 


03 IF 

E40D 


XRI 

OD 

,GET CHARACTER 

0321 

3F 


XPPC 

P3 

.PRINT CHARACTER 

0322 

90F0 


JMP 

LST4 


0324 

C40D 

LST5: 

LDI 

OD 

.CARRIAGE RETURN 

0326 

3F 


XPPC 

P3 


0327 

C40A 


LDI 

OA 

; LINE FEED 


0329 3F 

XPPC 

P3 


032A 02 

CCL 



032B C447 

LDI 

L(LIST3) 


032D CAFB 

ST 

PCLOW(P2) 


032F C40C 

LDI 

H(LIST3) 


0331 CAFA 

ST 

PCHIGH< P2) 


0333 90AC 

JMP 

LST 

;GET NEXT LINE 


; 

ADD 

AND SUBTRACT 

# 

;*****##*#*#### 

*«*»»****•»#««»»»««»»»• 

0335 C410 ADD LDI 

H(AESTK) 

, SET P3 TO CURRENT 

0337 37 

XPAH 

P3 

, STACK LOCATION 

0338 BAFD 

DLD 

LSTK(P2) 


033A BAFD 

DLD 

LSTK < P2) 


033C 33 

XPAL 

P3 


033D 02 

CCL 



033E C3FE 

LD 

-2(P3) 

.REPLACE TWO TOP ITEMS 

0340 F300 

ADD 

0(P3) 

. ON STACK BY THEIR SUM 

0342 CBFE 

ST 

-2 < P3) 


0344 C3FF 

LD 

-1<P3> 


0346 F301 

ADD 

1 <P3) 


0348 CBFF 

ST 

-1 <P3> 


034A 90BE X7 

JMP 

X6A 


034C C410 SUB LDI 

H(AESTK) 

;SET P3 TO CURRENT 

034E 37 

XPAH 

P3 

, STACK LOCATION 

034F BAFD 

DLD 

LSTK(P2) 


0351 BAFD 

DLD 

LSTK(P2) 


0353 33 

XPAL 

P3 


0354 03 

SCL 



0355 C3FE 

LD 

-2(P3> 

■REPLACE TWO TOP ITEMS 

0357 FBOO 

CAD 

0(P3) 

> ON STACK BY THEIR DIFFERENC 

0359 CBFE 

ST 

-2 < P3) 


035B C3FF 

LD 

-1<P3) 


035D FB01 

CAD 

1 (P3) 


035F CBFF 

ST 

-1(P3) 


0361 90A7 

JMP 

X6A 



NEGATE * 


0363 

C410 

NEG 

LDI 

H(AESTK) 

i SET P3 

TO CURRENT 

0365 

37 


XPAH 

P3 

» STACK 

LOCATION 

0366 

C2FD 


LD 

LSTK < P2) 



0368 

33 


XPAL 

P3 



0369 

03 


SCL 




036A 

C400 


LDI 

0 



036C 

FBFE 


CAD 

-2(P3) 

;NEGATE 

TOP ITEM ON STACK 

036E 

CBFE 


ST 

-2<P3) 



0370 

C400 


LDI 

0 



0372 

FBFF 


CAD 

-1(P3) 



0374 

CBFF 


ST 

-1(P3 > 



0376 

90D2 

X8: 

JMP 

X7 



0378 

9092 

E6: 

JMP 

E5 






; * 

MULTIPLY 

• 




LOCAL 



037A 

C410 

MUL 

LDI 

H(AESTK) 

* SET P3 TO CURRENT 

037C 

37 


XPAH 

P3 

i STACK LOCATION 

037D 

C2FD 


LD 

LSTK(P2) 


037F 

33 


XPAL 

P3 

, DETERMINE SION OF PRODUCT 

0380 

C3FF 


LD 

-1(P3> 

i SAVE IN TEMP(P2) 

0382 

E3FD 


XOR 

-3(P3) 


0384 

CAEA 


ST 

TEMP(P2) 


0386 

C3FF 


LD 

-1<P3) 

I CHECK FOR NEGATIVE 

0388 

940D 


JP 

♦ 1 

i MULTIPLIER 

038A 

03 


SCL 



038B 

C400 


LDI 

0 

; IF NEGATIVE. 

038D 

FBFE 


CAD 

-2<P3) 

1 NEGATE 

038F 

CBFE 


ST 

-2(P3) 


0391 

C400 


LDI 

0 


0393 

FBFF 


CAD 

-1(P3) 


0395 

CBFF 


ST 

-1(P3) 


0397 

C3FD 

*1 

LD 

-3(P3) 

»CHECK FOR NEGATIVE 

0399 

940D 


JP 

♦ 2 

. MULTIPLICAND 

039B 

03 


SCL 



039C 

C400 


LDI 

0 

, IF NEGATIVE. 

039E 

FBFC 


CAD 

-4(P3) 

i NEGATE 

03A0 

CBFC 


ST 

-4(P3) 


03A2 

C400 


LDI 

0 


03A4 

FBFD 


CAD 

-3(P3) 


03A6 

CBFD 


ST 

-3(P3) 


03A8 

C400 

*2 

LDI 

0 

, CLEAR WORKSPACE 

03AA 

CBOO 


ST 

0 (P3) 


03AC 

CB01 


ST 

1 <P3> 


03AE 

CB02 


ST 

2(P3> 


03B0 

CB03 


ST 

3<P3) 


03B2 

C410 


LDI 

16 

» SET COUNTER TO 16 

03B4 

CAEB 


ST 

NUM(P2) 


03B6 

C3FF 

♦LOOP 

LD 

-1(P3) 

jROTATE MULTIPLIER 

03B8 

IF 


RRL 


i RIGHT ONE BIT 

03B9 

CBFF 


ST 

-1<P3) 


03BB 

C3FE 


LD 

-2(P3) 


03BD 

IF 


RRL 



03BE 

CBFE 


ST 

-2(P3) 


03C0 

06 


CSA 


i CHECK FOR CARRY BIT 

03C1 

9411 


JP 

♦ 3 

; IF NOT SET, DON'T DO ADD 

03C3 

02 


CCL 



03C4 

C302 


LD 

2 (P3) 

;ADD MULTIPLICAND 

03C6 

F3FC 


ADD 

-4 < P3) 

l INTO WORKSPACE 

03C8 

CB02 


ST 

2 < P3) 


03CA 

C303 


LD 

3 (P3) 


03CC 

F3FD 


ADD 

-3(P3) 


03CE 

CB03 


ST 

3(P3) 


03D0 

9002 


JMP 

♦3 


03D2 

90A4 

E6A 

JMP 

E6 


03D4 

02 

♦ 3 

CCL 



03D5 

C303 


LD 

3<P3) 

.SHIFT WORKSPACE RIGHT BY 

03D7 

IF 


RRL 



03D8 

CB03 


ST 

3(P3> 


03DA 

C302 


LD 

2 (P3) 
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03DC 

IF 


RRL 



04B2 C2EA 


LD 

TEMP(P2) 

i CHECK THE QUOTIENT'S SION, 







04B4 940D 


JP 

♦END 

- NEGATING IF NECESSARY 

03DF 

C301 


LD 

1 <P3> 


04B6 C400 


LDI 

0 


03E1 

IF 


RRL 



04B8 03 


SCL 



03E2 

CB01 


ST 

1 <P3) 


04B9 FBFC 


CAD 

-4(P3) 


03E4 

C300 


LD 

0(P3) 


04BB CBFC 


ST 

-4(P3) 


03E6 

IF 


RRL 



04BD C400 


LDI 

0 


03E7 

CBOO 


ST 

0(P3) 


04BF FBFD 





03E9 

BAEB 


DLD 

NUM(P2) 

DECREMENT COUNTER 






03EB 

9CC9 


JNZ 

♦LOOP 

LOOP IF NOT ZERO 

04C3 BAFD ♦END 

DLD 

LSTK(P2) 

,DECREMENT THE STACK POINTER, 







04C5 BAFD 


DLD 



03EF 

9085 

X9 

JMP 

X8 


04C7 90DB 





03F1 

C2EA 

*4 

LD 

TEMP(P2) 

CHECK SIGN WORD 






03F3 

940D 


JP 

♦EXIT 

IF BIT7 = 1, NEGATE PRODUCT 






03F5 

03 


SCL 








03F6 

C400 


LDI 

0 



» 














03FA 

CBOO 


ST 

0(P3) 







03FC 

C400 


LDI 

0 


04C9 C410 STORE 

LDI 




FB01 





04CB 37 





0400 

CB01 


ST 

1 (P3) 


04CC C2FD 





0402 

C300 

♦EXIT 

LD 

0(P3) 







0404 

CBFC 


ST 

-4(P3) 

OF STACK 

04CF C7FD 


LD 

«-3<P3> 


0406 

C301 


LD 

1 <P3) 


04D1 01 


XAE 


i PUT IN E REG 

0408 

CBFD 


ST 

-3<P3) 


04D2 C301 


LD 



040A 

BAFB 


DLD 

LSTK< P2) 

SUBTRACT 2 FROM 

04D4 CA80 


ST 

EREG(P2) 

iSTORE LOWER 8 BITS 

040C 

BAFB 


DLD 

LSTK < P2) 

LSTK 

04D6 02 


CCL 


; INTO VARIABLE 

040E 

90DF 





04D7 40 


LDE 


i INCREMENT INDEX 







04D8 F401 


ADI 

1 








04DA 01 


XAE 





,•*••• 




04DB C302 


LD 

2 (P3) 




> * 


DIVIDE 

• 

04DD CA80 


ST 

EREG(P2) 

jSTORE UPPER 8 BITS 







04DF 33 


XPAL 

P3 

i INTO VARIABLE 







04E0 CAFD 


ST 

LSTK < P2) 

,UPDATE STACK POINTER 




LOCAL 



04E2 C400 X10 

JS 

P3.EXECIL 


0410 

C410 

DIV 

LDI 

H(AESTK) 







0412 

37 


XPAH 

P3 







0413 

C2FD 


LD 

LSTK(P2) 







0415 

33 


XPAL 

P3 



• 

TEST FOR 

VARIABLE IN 

TEXT * 

0416 

C3FF 


LD 

-1< P3) 

CHECK FOR DIVISION BY 0 






0418 

DBFE 


OR 

-2<P3) 







041A 

9C04 


JNZ 

♦0 


04E9 C501 TSTVAR 

LD 

®1 (PI ) 


041C 

C40D 


LDI 

13 


04EB E420 


XRI 


;SLEW OFF SPACES 

04 IE 

90B2 


JMP 

E6A 


04ED 98FA 


JZ 

TSTVAR 


0420 

C3FD 

*0 

LD 

-3<P3> 


04EF C1FF 


LD 

-1(PI) 

i GET CHARACTER IN QUESTION 

0422 

E3FF 


XOR 

— 1 < P3) 


04F1 03 


SCL 



0424 

CAEA 


ST 

TEMP < P2) 

SAVE SIGN OF QUOTIENT 

04F2 FC5B 


CAI 

'Z' + l 

;SUBTRACT 'Z'-M 

0426 

C3FD 


LD 

-3<P3> 

IS DIVIDEND POSITIVE* 7 

04F4 9405 


JP 

♦FAIL 

.NOT VARIABLE IF POSITIVE 

0428 

9411 


JP 

♦POS 

YES - JUMP 

04F6 03 


SCL 



042A 

C400 


LDI 

0 


04F7 FCE6 


CAI 

A'-'Z'-l 

.SUBTRACT 'A' 







04F9 9412 


JP 

♦MAYBE 

i IF POS, MAY BE VARIABLE 

042D 

FBFC 


CAD 

-4<P3) 

NO - NEGATE DIVIDEND, 

04FB C5FF ♦FAIL 

LD 

•-l(Pl) 

i BACKSPACE CURSOR 

042F 

CB03 


ST 

3<P3> 

STORE IN RIGHT HALF 

04FD C2FB 


LD 

PCL0W(P2> 

iGET TEST-FAIL ADDRESS 

0431 

C400 


LDI 

0 

OF 32-BIT ACCUMULATOR 

04FF 33 


XPAL 

P3 

, FROM I. L. TABLE, PUT IT 

0433 

FBFD 


CAD 

-3<P3> 


0500 C2FA 


LD 

PCHIOH(P2) 

, INTO I. L PROGRAM COUNTER 

0435 

CB02 


ST 

2<P3> 


0502 37 


XPAH 

P3 


0437 

900A 


JMP 

♦ 1 


0503 C300 


LD 

(P3) 


0439 

90B4 

X9A 

JMP 

X9 


0505 CAFA 


ST 

PCHIGH(P2) 


043B 

C3FD 

♦POS 

LD 

-3<P3> 

STORE NON-NEGATED DIVIDEND 

0507 C301 


LD 

KPS) 


043D 

CB02 


ST 

2 < P3) 

IN 32-BIT ACCUMULATOR 

0509 CAFB 


ST 

PCL0W(P2) 


043F 

C3FC 


LD 

-4<P3) 


050B 90D5 


JMP 

X10 


0441 

CB03 


ST 

3<P3> 


050D 01 

♦MAYBE 

XAE 


,SAVE VALUE (0-25) 

0443 

C3FF 

*1 

LD 

-1<P3> 

CHECK FOR NEGATIVE DIVISOR 

050E Cl00 


LD 

(PI ) 

;CHECK FOLLOWING CHAR 

0445 

940D 


JP 

♦ 2 


0510 03 


SCL 


,MUST NOT BE A LETTER 

0447 

C400 


LDI 

0 

NEGATE DIVISOR 

0511 FC5B 


CAI 

'Z' + l 

, OTHERWISE WE'D BE LOOKING 

0449 

03 


SCL 



0513 9405 


JP 

♦OK 

, AT A KEYWORD, NOT VARIABLE 

044A 

FBFE 


CAD 

-2<P3> 


0515 03 


SCL 



044C 

CBFE 


ST 

-2<P3> 


0516 FCE6 


CAI 

A'-'Z'-1 


044E 

C400 


LDI 

0 


0518 94E1 


JP 

♦FAIL 


0450 

FBFF 


CAD 

-1<P3) 


051A C410 

►OK 

LDI 

H(AESTK) 

iSET P3 TO CURRENT 

0452 

CBFF 


ST 

-1(P3> 


051C 37 


XPAH 

P3 

; STACK LOCATION 

0454 

C400 

*2 

LDI 

0 

PUT ZERO IN 

03ID AAFD 


ILD 

LSTK(P2) 

iINCR STACK POINTER 

0456 

CB01 


ST 

1(P3) 

LEFT HALF OF 32-BIT ACC, 

05IF 33 


XPAL 

P3 


0458 

CBOO 


ST 

0<P3) 


0520 02 


CCL 


; DOUBLE VARIABLE INDEX 

045A 

CAEB 


ST 

NUM(P2) 

THE COUNTER, AND 

0521 40 


LDE 



045C 

CBFD 


ST 

-3<P3) 

IN THE DIVIDEND, NOW USED 

0522 70 


ADE 



045E 

CBFC 


ST 

-4 < P3) 

STORE THE QUOTIENT 

0523 CBFF 


ST 

-1(P3> 

,PUT INDEX ON STACK 

0460 

02 

♦LOOP 

CCL 


BEGIN MAIN DIVIDE LOOP 

0525 C402 


LDI 

2 

,INCREMENT I L PC. SKIPPING 

0461 

C3FC 


LD 

-4(P3) 

SHIFT QUOTIENT LEFT, 

0527 02 


CCL 


, OVER TEST-FAIL ADDRESS 

0463 

F3FC 


ADD 

-4<P3) 


0528 F2FB 


ADD 

PCL0W(P2> 


0465 

CBFC 


ST 

-4<P3) 


052A CAFB 


ST 

PCLOW(P2) 


0467 

C3FD 


LD 

-3 < P3) 


052C C400 


LDI 

0 


0469 

F3FD 


ADD 

-3<P3) 


052E F2FA 


ADD 

PCHIGH(P2) 


046B 

CBFD 


ST 

-3<P3) 


0530 CAFA 


ST 

PCHI0H(P2> 


046D 

02 


CCL 


SHIFT 32-BIT ACC LEFT, 

0532 90AE 


JMP 

X10 


046E 

C303 


LD 

3<P3) 







0470 

F303 


ADD 

3(P3) 







0472 

CB03 


ST 

3(P3) 






*********** 

0474 

C302 


LD 

2<P3) 



• 

IND — EVALUATE A VARIABLE * 

0476 

F302 


ADD 

2(P3) 




********* 



0478 

CB02 


ST 

2<P3) 







047A 

C301 


LD 

1 <P3) 


0534 C410 

IND 

LDI 

H(AESTK) 

; SET P3 TO STACK 

047C 

F301 


ADD 

1 (P3) 


0536 37 


XPAH 

P3 


047E 

CB01 


ST 

KPS) 


0537 AAFD 


ILD 

LSTK(P2) 


0480 

C300 


LD 

( P3 ) 


0539 33 


XPAL 

P3 


0482 

F300 


ADD 

(P3) 


053A C3FE 


LD 

— 2(P3) 

; GET INDEX OFF TOP 

0484 

CBOO 


ST 

(P3) 


053C 01 


XAE 


> PUT INDEX IN E REG 

0486 

03 


SCL 



053D C280 


LD 

EREG ( P2 ) 

i GET LOWER 8 BITS 

0487 

C301 


LD 

1 (P3) 

SUBTRACT DIVISOR INTO 

053F CBFE 


ST 

-2(P3) 

, SAVE ON STACK 

0489 

FBFE 


CAD 

-2(P3) 

LEFT HALF OF ACC, 

0541 02 


CCL 



048B 

CB01 


ST 

1 <P3) 


0542 40 


LDE 


, INCREMENT E REG 

048D 

C300 


LD 

<P3> 


0543 F401 


ADI 

1 


048F 

FBFF 


CAD 

- 1 < P3 ) 


0545 01 


XAE 



0491 

CBOO 


ST 

<P3) 


0546 C280 


LD 

EREG(P2) 

; GET UPPER 8 BITS 

0493 

9411 


JP 

♦ENT 1 

IF RESULT IS NEGATIVE, 

0548 CBFF 


ST 

-MP3) 

, SAVE ON STACK 

0495 

02 


CCL 


RESTORE ORIGINAL CONTENTS 

054A 9096 

XI 1 

JMP 

X10 


0496 

C301 


LD 

1 <P3) 

OF ACC BY ADDING DIVISOR 






0498 

F3FE 


ADD 

— 2<P3) 







049A 

CB01 


ST 

1(P3) 







049C 

C300 


LD 

<P3) 



i * 

RELATIONAL OPERATORS 

* 

049E 

F3FF 


ADD 

-1<P3) 







04A0 

CBOO 


ST 

<P3) 







04A2 

9008 


JMP 

♦3 


054C C401 

EQ 

LDI 

1 

, EACH RELATIONAL OPERATOR 

04A4 

9093 

X9B 

JMP 

X9A 


054E 9012 


JMP 

CMP 

, LOADS A NUMBER USED LATER 

04A6 

C3FC 

♦ENT 1 

LD 

-4<P3> 

ELSE IF RESULT POSITIVE, 

0550 C402 

9EQ 

LDI 

2 

; AS A CASE SELECTOR, AFTER 

04A8 

DC01 


OR I 

1 

RECORD A 1 IN QUOTIENT 

0552 900E 


JMP 

CMP 

, THE TWO OPERANDS ARE COM- 

04AA 

CBFC 


ST 

-4<P3) 

W/0 RESTORING THE ACC 

0554 C403 

LSS: 

LDI 

3 

, PARED BASED ON THE COM- 

04AC 

AAEB 

♦3: 

ILD 

NUM < P2 ) 

INCREMENT THE COUNTER 

0556 900A 


JMP 

CMP 

, PARISON, FLAGS ARE SET THAT 

04AE 

E410 


XRI 

16 

ARE WE DONE 7 

0558 C404 

LEQ: 

LDI 

4 

, ARE EQUIVALENT TO THOSE SET 

04B0 

9CAE 


JNZ 

♦LOOP 

LOOP IF NOT DONE 

055A 9006 


JMP 

CMP 

; BY THE 'CMP' INSTRUCTION IN 
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055C 

C405 

GTR: 

LDI 

5 » 

THE PDP-11. THESE PSEUDO¬ 

055E 

9002 


JMP 

CMP J 

FLAGS ARE USED TO DETERMINE 

0560 

C406 

GEQ 

LDI 

6 ; 

WHETHER THE PARTICULAR 





i 

RELATION IS SATISFIED OR NO 

0562 

CAEB 

CMP 

ST 

NUM(P2) 


0564 

C410 


LDI 

H< AESTK) i 

SET P3 -> ARITH STACK 

0566 

37 


XPAH 

P3 


0567 

BAFD 


DLD 

LSTK(P2) 


0569 

BAFD 


DLD 

LSTK(P2) 


056B 

33 


XPAL 

P3 


056C 

03 


SCL 



056D 

C3FE 


LD 

-2 < P3) j 

SUBTRACT THE TWO OPERANDS, 

056F 

FBOO 


CAD 

<P3> 

STORING RESULT IN LO k HI 

0571 

CAEF 


ST 

L0(P2) 


0573 

C3FF 


LD 

-1(P3) 


0575 

FB01 


CAD 

1 <P3) 


0577 

CAEE 


ST 

HI<P2) 


0579 

E3FF 


XOR 

-1<P3) 

OVERFLOW OCCURS IF SIGNS OF 

057B 

01 


XAE 


RESULT AND 1ST OPERAND 

057C 

C3FF 


LD 

-1< P3) 

DIFFER, AND SIGNS OF THE 

057E 

E301 


XOR 

1 <P3) 

TWO OPERANDS DIFFER 

0580 

50 


ANE 


BIT 7 EQUIVALENT TO V FLAG 

0581 

E2EE 


XOR 

HI(P2) 

BIT 7 EQUIVALENT TO N XOR V 

0583 

CAEA 


ST 

TEMP(P2) 

STORE IN TEMP 

0585 

C2EE 


LD 

HI<P2) 

DETERMINE IF RESULT WAS ZERO 

0587 

DAEF 


OR 

L0(P2) 


0589 

9802 


JZ 

SETZ 

IF RESULT-0, SET Z FLAG 

058B 

C480 


LDI 

080 

ELSE CLEAR Z FLAG 

058D 

E480 

SETZ: 

XRI 

080 


058F 

01 


XAE 


BIT 7 OF EX = Z FLAG 

0590 

BAEB 


DLD 

NUM(P2) 

TEST FOR - 

0592 

9C05 


JNZ 

NEQ1 


0594 

40 


LDE 


EQUAL IF Z - 1 

0595 

902B 


JMP 

CMP1 


0597 

90B1 

X12: 

JMP 

XU 


0599 

BAEB 

NEQ1: 

DLD 

NUM < P2) 

TEST FOR <> 

059B 

9C05 


JNZ 

LSS1 


059D 

40 


LDE 


NOT EQUAL IF Z = 0 

059E 

E480 


XRI 

080 


05A0 

9020 


JMP 

CMP1 


05A2 

BAEB 

LSS1: 

DLD 

NUM < P2> 

TEST FOR < 

05A4 

9C04 


JNZ 

LEQ1 


05A6 

C2EA 


LD 

TEMP(P2) 

LESS THAN IF <N XOR V)-l 

05A8 

9018 


JMP 

CMP1 


05AA 

BAEB 

LEO 1 

DLD 

NUM < P2) 

TEST FOR <- 

05AC 

9C05 


JNZ 

GTR1 


05AE 

40 


LDE 


LESS THAN OR EQUAL 

05AF 

DAEA 


OR 

TEMP<P2) 

IF (Z OR (N XOR V)>*1 

05B1 

900F 


JMP 

CMP1 


05B3 

BAEB 

GTR1 

DLD 

NUM(P2) 

.TEST FOR > 

05B5 

9C07 


JNZ 

GEQ1 


05B7 

40 


LDE 


GREATER THAN 

05B8 

DAEA 


OR 

TEMPIP2) 

IF (Z OR (N XOR V)>=0 

05BA 

E480 


XRI 

080 


05BC 

9004 


JMP 

CMP1 


05BE 

C2EA 

GEQ1 

LD 

TEMPIP2) 

GREATER THAN OR EQUAL 

05C0 

E480 


XRI 

080 

IF <N XOR V)-0 

05C2 

9404 

CMP1 

JP 

FALSE 

IS RELATION SATISFIED? 

05C4 

C401 


LDI 

1 

YES - PUSH 1 ON STACK 

05C6 

9002 


JMP 

CMP2 


05C8 

C400 

FALSE 

LDI 

0 

; NO - PUSH 0 ON STACK 

05CA 

CBFE 

CMP2: 

ST 

-2(P3) 


05CC 

C400 


LDI 

0 


OSCE 

CBFF 


ST 

-1<P3) 


05D0 

C400 


JS 

P3. RTN 

; DO AN I. L. RETURN 

05D7 

90BE 


JMP 

X12 





» * IF STATEMENT TEST FOR ZERO 

* 

05D9 

C2EF 

CMPR LD 

L0< P2) 

'• GET LOW k HI BYTES OF EXPR 

05DB 

DAEE 

OR 

HI<P2) 

; TEST IF EXPRESSION IS ZERO 

05DD 

9802 

JZ 

FAIL 

,YES - IT IS 

05 DF 

90B6 

JMP 

X12 

.NO - IT ISN'T SO CONTINUE 

05E1 

C501 

FAIL LD 

ei <pd 

.SKIP TO NEXT LINE IN PROGRAM 

05E3 

E40D 

XRI 

OD 

i (I. E. TIL NEXT CR) 

05E5 

9CFA 

JNZ 

FAIL 


05E7 

C402 

JS 

P3,NXT 

CALL NXT AND RETURN 

05EE 

90A7 

X12A JMP 

X 12 





j ****** 

AND. 

OR, 8. NOT 

* 




LOCAL 



05F0 

C401 

ANDOP 

LDI 

1 

>EACH OPERATION HAS ITS 

05F2 

9006 


JMP 

♦ 1 

i OWN CASE SELECTOR. 

05F4 

C402 

OROP 

LDI 

2 


05F6 

9002 


JMP 

♦ 1 


05F8 

C403 

NOTOP 

LDI 

3 


05FA 

CAEB 

*1 

ST 

NUM(P2) 


05FC 

C410 


LDI 

H<AESTK) 

<SET P3 -> ARITH STACK 

05FE 

37 


XPAH 

P3 


05FF 

BAFD 


DLD 

LSTMP2) 


0601 

BAFD 


DLD 

LSTMP2) 


0603 

33 


XPAL 

P3 


0604 

BAEB 


DLD 

NUM < P2) 

iTEST FOR 'AND' 

0606 

9C0E 


JNZ 

♦OR 


0608 

C301 


LD 

1 <P3> 

.REPLACE TWO TOP ITEMS ON 

060A 

D3FF 


AND 

-1<P3) 

i STACK BY THEIR 'AND' 

060C 

CBFF 


ST 

-MP3) 


060E 

C300 


LD 

0<P3) 


0610 

D3FE 


AND 

-2<P3) 


0612 

CBFE 


ST 

-2 < P3) 


0614 

90D8 


JMP 

X12A 


0616 

BAEB 

♦OR 

DLD 

NUM < P2) 

;TEST FOR OR' 

0618 

9C0E 


JNZ 

♦NOT 


061A 

C301 


LD 

1 <P3) 

;REPLACE TWO TOP ITEMS ON 

061C 

DBFF 


OR 

-1(P3) 

i STACK BY THEIR 'OR' 

06 IE 

CBFF 


ST 

-1<P3) 


0620 

C300 


LD 

0(P3) 


0622 

DBFE 


OR 

-2(P3) 


0624 

CBFE 


ST 

-2 < P3) 


0626 

90C6 


JMP 

X12A 


0628 

C701 

♦NOT 

LD 

@1<P3> 

;'NOT' OPERATION 


062A E4FF 
062C CBFF 
062E C701 
0630 E4FF 
0632 CBFF 
0634 33 
0635 CAFD 
0637 90B5 X12B 


XRI OFF 

ST -1<P3) 

LD @1(P3) 

XRI OFF 

ST -MP3) 

XPAL P3 

ST LSTK< P2) 

JMP X12A 


;REPLACE TOP ITEM ON STACK 
; BY ITS ONE'S COMPLEMENT 


;STACK POINTER FIXUP 


;tttttt**t»*«*tt**«ttt**»**ttt*t**»*»* 

i* EXCHANGE CURSOR WITH RAM * 


10639 C2F1 XCHGP1: 

063B 31 

063C CAF1 

063E C2F0 

0640 35 

0641 CAFO 

0643 3F 


LD P1L0W(P2) 

XPAL PI 

ST P1L0W(P2) 

LD P1HIGH(P2) 

XPAH PI 

ST P1HIGH < P2) 

XPPC P3 


THIS ROUTINE IS HANDY WHEN 
EXECUTING AN 'INPUT' STMT 
IT EXCHANGES THE CURRENT 
TEXT CURSOR WITH ONE SAVED 
IN RAM 


CHECK RUN MODE 


0644 C2F4 CKMODE 
0646 9801 
0648 3F 

0649 C403 CK1 
064B CAEB E8 
064D C402 


LD RUNMOD(P2) 

JZ CK1 

XPPC P3 

LDI 3 

ST NUM < P2) 

JS P3»ERR2 


•THIS ROUTINE CAUSES AN ERROR 
i IF CURRENTLY IN EDIT MODE 


iERROR IF RUN MODE = 0 
;MINOR KLUGE 


GET HEXADECIMAL NUMBER 


LOCAL 


0654 

AAFD 

HEX 

ILD 

LSTK(P2) 

;POINT P3 AT ARITH STACK 

0656 

AAFD 


ILD 

LSTK(P2) 


0658 

33 


XPAL 

P3 


0659 

C410 


LDI 

H<AESTK) 


065B 

37 


XPAH 

P3 


065C 

C400 


LDI 

0 

.NUMBER INITIALLY ZERO 

065E 

CBFF 


ST 

-1<P3) 

;PUT IT ON STACK 

0660 

CBFE 


ST 

-2(P3) 


0662 

CAEB 


ST 

NUM < P2) 

,ZERO NUMBER OF DIGITS 

0664 

C501 

♦SKIP 

LD 

@1(PI) 

iSKIP ANY SPACES 

0666 

E420 


XRI 

' ' 


0668 

98FA 


JZ 

♦SKIP 


066A 

C5FF 


LD 

e-i< pi> 


066C 

C100 

♦LOOP 

LD 

<pi > 

,GET A CHARACTER 

066E 

03 


SCL 



066F 

FC3A 


CAI 

'9' + l 

;CHECK FOR A NUMERIC CHAR 

0671 

9409 


JP 

♦LETR 


0673 

03 


SCL 



0674 

FCF6 


CAI 

'0'-'9'-l 

,IF NUMERIC, SHIFT NUMBER 

0676 

9413 


JP 

♦ENTER 

. AND ADD NEW HEX DIGIT 

0678 

9032 


JMP 

♦END 


067A 

90BB 

X 12C: 

JMP 

X 12B 


067C 

03 

♦LETR 

SCL 


,CHECK FOR HEX LETTER 

067D 

FCOD 


CAI 

'G'-'9'-l 


067F 

942B 


JP 

♦END 


0681 

03 


SCL 



0682 

FCFA 


CAI 

A'-'G' 


0684 

9402 


JP 

♦OK 


0686 

9024 


JMP 

♦END 


0688 

02 

♦OK 

CCL 


,ADD 10 TO GET TRUE VALUE 

0689 

F40A 


ADI 

10 

i OF LETTER 

068B 

01 

♦ENTER 

XAE 


.NEW DIGIT IN EX REG 

068C 

C404 


LDI 

4 

;SET SHIFT COUNTER 

068E 

CAEA 


ST 

TEMP(P2) 


0690 

CAEB 


ST 

NUM < P2) 

;DIGIT COUNT IS NON-ZERO 

0692 

C3FE 

♦SHIFT 

LD 

-2<P3> 

.SHIFT NUMBER LEFT BY 4 

|0694 

02 


CCL 



0695 

F3FE 


ADD 

-2 < P3) 


0697 

CBFE 


ST 

-2 < P3) 


0699 

C3FF 


LD 

-HP3) 


069B 

F3FF 


ADD 

-1(P3) 


069D 

CBFF 


ST 

-MP3) 


069F 

BAEA 


DLD 

TEMP(P2) 


06A1 

9CEF 


JNZ 

♦SHIFT 


06 A 3 

C3FE 


LD 

-2 < P3) 

.ADD NEW DIGIT 

06A5 

58 


ORE 


; INTO NUMBER 

06A6 

CBFE 


ST 

-2<P3> 


06A8 

C501 


LD 

@1(PI) 

,ADVANCE THE CURSOR 

06AA 

90C0 


JMP 

♦LOOP 

;GET NEXT CHAR 

06AC 

C2EB 

♦END 

LD 

NUM < P2) 

-CHECK IF THERE WERE 

06AE 

9C87 


JNZ 

X12B 

, MORE THAN 0 CHARACTERS 

06B0 

C405 


LDI 

5 

,ERROR IF THERE WERE NONE 

06B2 

9097 

E8B 

JMP 

E8 




i****** 

i ***** 

TEST FOR NUMBER IN 

TEXT * 



> THIS 

ROUTINE 

TESTS FOR A 

NUMBER IN THE TEXT IF NO 


, NUMBER IS FOUND, I L. CONTROL PASSES TO THE ADDRESS 
> INDICATED IN THE 'TSTN' INSTRUCTION OTHERWISE, THE 
, NUMBER IS SCANNED AND PUT ON THE ARITHMETIC STACK, 

; WITH I L CONTROL PASSING TO THE NEXT INSTRUCTION. 


06B4 C501 TSTNUM 

06B6 E420 

06B8 98FA 

06BA C5FF 

06BC 03 

06BD FC3A 

06BF 9405 

06C1 03 

06C2 FCF6 

06C4 9421 

06C6 C2FB ♦ABORT 
06C8 33 
06C9 C2FA 
06CB 37 


LOCAL 

LD ei(Pl) 

XRI ' ' 

JZ TSTNUM 

LD e-l(Pl) 

SCL 

CAI '9' + l 

JP *ABORT 

SCL 

CAI '0'-'9'-l 

JP *1 

LD PCLOW< P2) 

XPAL P3 

LD PCHIGH(P2) 

XPAH P3 


; SKIP OVER ANY SPACES 

;GET FIRST CHAR 
;TEST FOR DIGIT 


.GET TEST-FAIL ADDRESS 
. FROM I L. TABLE 
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06CC C300 

06CE CAFA 

06DO C301 

06D2 CAFB 

06D4 90A4 

06D6 C402 *RET 

06D8 02 

06D9 F2FB 

06DB CAFB 

06DD C400 

06DF F2FA 

06E1 CAFA 

06E3 9095 X13: 

06E5 90CB E8A 

06E7 01 *1 

06E8 C410 

06EA 37 

06EB AAFD 

06ED AAFD 

06EF 33 

06F0 C400 

06F2 CBFF 

06F4 40 

06F5 CBFE 

06F7 C501 *L00P 

06F9 Cl00 

06FB 03 

06FC FC3A 

06FE 94D6 

0700 03 

0701 FCF6 

0703 9402 

0705 90CF 

0707 01 *2 

0708 C3FF 

070A CB01 

070C C3FE 

070E CBOO 

0710 C402 

0712 CAEA 

0714 02 4SHIFT 

0715 C3FE 

0717 F3FE 

0719 CBFE 

07IB C3FF 

07ID F3FF 

07IF CBFF 

0721 BAEA 

0723 9CEF 

0725 02 

0726 C3FE 

0728 F300 

072A CBFE 

072C C3FF 

072E F301 

0730 CBFF 

0732 02 

0733 C3FE 

0735 F3FE 

0737 CBFE 

0739 C3FF 

073B F3FF 

073D CBFF 

073F 02 

0740 40 

0741 F3FE 

0743 CBFE 

0745 C400 

0747 F3FF 

0749 CBFF 

074B 94AA 

074D C406 

074F 9094 E9 

0751 9090 X 14 


LD <P3> 

ST PCHIGH(P2) 

LD 1< P3) 

ST PCLOW ( P2) 

JMP X12C 

LD1 2 

CCL 

ADD PCLOW<P2) 

ST PCLOW(P2) 

LDI O 

ADD PCHIGH< P2) 

ST PCHIGH< P2) 

JMP X12C 

JMP E8B 

XAE 

LDI H(AESTK) 

XPAH P3 

ILD LSTK(P2) 

ILD LSTK(P2) 

XPAL P3 

LDI 0 

ST -1(P3) 

LDE 

ST -2(P3) 

LD tl(Pl) 

LD <P1> 

SCL 

CAI '9' + l 

JP *RET 

SCL 

CAI 0'-'9'-l 

JP *2 

JMP *RET 

XAE 

LD -1<P3) 

ST 1 (P3 > 

LD -2(P3) 

ST <P3) 

LDI 2 

ST TEMP< P2) 

CCL 

LD -2(P3) 

ADD -2<P3) 

ST -2(P3) 

LD -1<P3) 

ADD —1<P3) 

ST —1< P3) 

DLD TEMP < P2) 

JNZ BSHIFT 

CCL 

LD -2<P3> 

ADD <P3) 

ST -2<P3> 

LD -1<P3) 

ADD 1<P3> 

ST -MP3) 

CCL 

LD -2<P3> 

ADD -2<P3) 

ST -2(P3) 

LD -MP3) 

ADD -MP3) 

ST -MP3) 

CCL 

LDE 

ADD -2<P3> 

ST -2<P3) 

LDI 0 

ADD -MP3) 

ST -MP3) 

JP *LOOP 

LDI 6 

JMP E8A 

JMP X13 


;PUT TEST-FAIL ADDRESS 
i INTO I PC 


; SKIP OVER ONE IL INSTRUCTION 
; IF NUMBER IS DONE 


< SAVE DIGIT IN EX REG 
.POINT P3 AT AE STACK 


,GET NEXT CHAR 
iTEST IF IT IS DIGIT 
.RETURN IF IT ISN'T 


. SAVE DIGIT 

# PUT RESULT IN SCRATCH SPACE 


.MULTIPLY RESULT BY 10 
;FIRST MULTIPLY BY 4 


07A2 C40E LDI 

07A4 90A9 JMP 

07A6 C45E *XU: LDI 

07A8 3F XPPC 

07A9 C455 LDI 

07AB 3F XPPC 

07AC C40D LDI 

07AE 3F XPPC 

07AF C40A LDI 

07B1 3F XPPC 

07B2 909F *2 JMP 

07B4 909B X15: JMP 

07B6 40 BENTER LDE 

07B7 CDO1 ST 

07B9 AAE7 ILD 

07BB E448 XRI 

07BD 9CB3 JNZ 

07BF C40D LDI 

07C1 01 XAE 

07C2 40 LDE 

07C3 3F XPPC 

07C4 9012 JMP 

07C6 9087 E10 JMP 

07C8 C420 *XH LDI 

07CA 3F XPPC 

07CB C408 LDI 

07CD 3F XPPC 

07CE C2E7 •RUB LD 

07DO 98AO JZ 

07D2 BAE7 DLD 

07D4 C5FF LD 

07D6 909A JMP 

07D8 40 BCR: LDE 

07D9 CD01 ST 

07DB C40A LDI 

07DD 3F XPPC 

07DE C410 LDI 

07E0 35 XPAH 

07E1 C4D6 LDI 

07E3 31 XPAL 

07E4 90CE X16: JMP 


14 

E9 

P3 

'U' 

P3 

OD 

P3 

OA 

P3 

GETL 

X14 

• MP1) 
CHRNUM(P2) 
72 

• 1 

OD 


P3 

•CR 

E9 

P3 

8 

P3 

CHRNUM < P2) 

• 1 

CHRNUM(P2) 
•-l(Pl) 

• 1 

tl(Pl) 

OA 

P3 

H(LBUF) 

PI 

L(LBUF) 

PI 

X1S 


;CAUSE A BREAK 
»ECHO CONTROL/U AS 

iPRINT CR/LF 

;GO OET ANOTHER LINE 

,PUT CHAR IN LBUF 
i INCREMENT CHRNUM 
»IF-72. LINE FULL 

- SAVE CARRIAOE RET 

;PRINT IT 
;STORE IT IN LBUF 

.BLANK OUT THE CHARACTER 

.PRINT ANOTHER BACKSPACE 


. ONE LESS CHAR 
iBACKSPACE CURSOR 


,STORE CR IN LBUF 
i PRINT LINE FEED 

)SET PI TO BEOIN- 
> NINO OF LBUF 


, ************************************* 

;* EVAL -- OET MEMORY CONTENTS * 


. THEN ADD OLD RESULT. 

. SO WE HAVE RESULT * 5 


.THEN MULTIPLY BY TWO 


; THEN ADD IN NEW DIGIT 


> THIS ROUTINE IMPLEMENTS THE '•' OPERATOR IN EXPRESSIONS 


07E6 C410 EVAL: 

07E8 37 

07E9 C2FD 

07EB 33 

07EC C3FF 

07EE 35 

07EF 01 

07F0 C3FE 

07F2 31 

07F3 CAEF 

07F5 Cl00 

07F7 CBFE 

07F9 C400 

07FB CBFF 

07FD C2EF 

07FF 31 

0800 40 

0801 35 

0802 90B0 


LDI H(AESTK) 

XPAH P3 

LD LSTKIP2) 

XPAL P3 

LD -MP3) 

XPAH PI 

XAE 

LD -2<P3) 

XPAL PI 

ST L0(P2) 

LD 0<P1) 

ST -2<P3) 

LDI O 

ST -MP3) 

LD L0(P2) 

XPAL PI 

LDE 

XPAH PI 

JMP X15 


• P3 -> ARITH STACK 
j OET ADDR OFF STACK, 
i AND INTO PI. 
i SAVINO OLD PI IN EX * LO 


.GET MEMORY CONTENTS, 
i SHOVE ONTO STACK 

; HIGH ORDER 8 BITS ZEROED 

» RESTORE ORIGINAL PI 


.REPEAT IF NO OVERFLOW 
;ELSE REPORT ERROR 


i ************************************* 

i* MOVE -- STORE INTO MEMORY * 

i************************************* 


; THIS ROUTINE IMPLEMENTS THE STATEMENT: 
» '•' FACTOR REL-EXP 




i * 

i *••• 

GET LINE 

FROM TELETYPE 

• 




LOCAL 



0753 


GETL 

LDP I 

PI,LBUF 

, SET PI TO LBUF 

0759 

C400 


LDI 

0 

i CLEAR NO OF CHAR 

075B 

CAE7 


ST 

CHRNUM(P2) 


075D 



LDP I 

P3,PUTC-1 

i POINT P3 AT PUTC ROUTINE 

0763 

C2F4 


LD 

RUNMOD(P2) 

i PRINT '? ' IF RUNNING 

0765 

9808 


JZ 

*0 

» (IE DURING 'INPUT') 

0767 

C43F 


LDI 

'?' 


0769 

3F 


XPPC 

P3 


076A 

C420 


LDI 

' * 


076C 

3F 


XPPC 

P3 


076D 

9003 


JMP 

• 1 


076F 

C43E 

*0 

LDI 

'>' 

.OTHERWISE PRINT O' 

0771 

3F 


XPPC 

P3 


0772 

C40F 

• 1 

JS 

P3, GECO 

i GET CHARACTER 

0779 

C4BD 


LDI 

L < PUTC)-1 

1 POINT P3 AT PUTC AGAIN 

077B 

33 


XPAL 

P3 


077C 

40 


LDE 


, GET TYPED CHAR 

077D 

98F3 


JZ 

*1 

,IGNORE NULLS 

077F 

E40A 


XRI 

OA 

.IGNORE LINE FEED 

0781 

98EF 


JZ 

*1 


0783 

40 


LDE 



0784 

E40D 


XRI 

OD 

; CHECK FOR CR 

0786 

9850 


JZ 

•CR 


0788 

40 


LDE 



0789 

E45F 


XRI 

'O'+OIO 

CHECK FOR SHIFT/O 

078B 

9841 


JZ 

•RUB 


078D 

40 


LDE 


i CHECK FOR CTRL/H 

078E 

E408 


XRI 

8 


0790 

9836 


JZ 

• XH 


0792 

40 


LDE 



0793 

E415 


XRI 

015 

.CHECK FOR CTRL/U 

0795 

980F 


JZ 

• XU 


0797 

40 


LDE 



0798 

E403 


XRI 

3 

.CHECK FOR CTRL/C 

079A 

9C1A 


JNZ 

•ENTER 


079C 

C45E 


LDI 

' A ' 

;ECHO CONTROL/C AB A C 

079E 

3F 


XPPC 

P3 


079F 

C443 


LDI 

'C' 


07 A1 

3F 


XPPC 

P3 



0804 

C410 

MOVE 

LDI 

H(AESTK) 


0806 

37 


XPAH 

P3 


0807 

C2FD 


LD 

LSTK(P2) 


0809 

33 


XPAL 

P3 

i P3 -> ARITH STACK 

08OA 

C7FE 


LD 

t-2<P3> 

l OET BYTE TO BE MOVED 

08OC 

01 


XAE 



0800 

C7FF 


LD 

t—MP3) 

» NOW OET ADDRESS INTO P3 

080F 

CAEA 


ST 

TEMP < P2) 


0811 

C7FF 


LD 

•—MP3) 


0813 

33 


XPAL 

P3 


0814 

CAFD 


ST 

LSTMP2) 

i STACK PTR UPDATED NOW 

0816 

C2EA 


LD 

TEMP(P2) 


0818 

37 


XPAH 

P3 


0819 

40 


LDE 



081A 

CBOO 


ST 

0<P3) 

»MOVE THE BYTE INTO MEMORY 

081C 

90C6 

X 17: 

JMP 

X 16 


081E 

90A6 

Ell: 

JMP 

E10 




i •••• 


***************** 

•••••••• 



i • 


TEXT EDITOR 

• 



i •••• 



»•••••*• 



i INPUTS TO THIS ROUTINE POINTER TO LINE BUFFER IN P1L0W It 



i P1HIGH PI 

POINTS TO THE INSERTION POINT IN THE TEXT 



i THE 

A E STACK HAS THE LINE 1 

DUMBER ON IT (STACK POINTER 



i IS 

ALREADY POPPED) 




i EACH 

LINE IN 

THE NIBL TEXT IS 

STORED IN THE FOLLOWING 



i FORMAT TWO 

BYTES CONTAINING 

THE LINE NUMBER (IN BINARY, 



i HIGH ORDER BYTE FIRST). THEN 

ONE BYTE CONTAINING T>C 



> LENGTH OF THE LINE, AND FINALLY THE LINE ITSELF FOLLOWED 



i BY 

A CARRIAGE RETURN THE LAST LINE IN THE TEXT IS 



i FOLLOWED BY 

TWO CONSECUTIVE BYTES OF X'FF. 




LOCAL 


0820 

C410 

INSRT 

LDI 

H< AESTK) 

lPOINT P3 AT AE STACK, 

0822 

37 


XPAH 

P3 

I WHICH HAS THE LINE • 

0823 

C2FD 


LD 

LSTK(P2) 

I ON IT 

0825 

33 


XPAL 

P3 


0826 

C301 


LD 

MP3) 

iSAVE NEW LINE'S NUMBER 

0828 

CAF7 


ST 

HILINE(P2) 


082A 

C300 


LD 

0< P3) 
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O02C 

CAF8 


ST 

LOLINE < P2) 


0905 

9CF8 


JNZ 

•ADD1 



082E 

C2F1 


LD 

P1LOW < P2) 

» PUT POINTER TO LBUF INTO P3 

0907 

90 DC 


JMP 

X 19A 


,RETURN 

0830 

33 


XPAL 

P3 


0909 

C400 

X20: 

JS 

P3»EXECIL 



0831 

C2F0 


LD 

P1HIGH<P2) 


0910 

90CF 

E13: 

JMP 

E12A 



0833 

37 


X PAH 

P3 









0834 

C404 


LDI 

4 

iINITIALLY LENGTH OF NEW LINE 








0836 

CAE7 


ST 

CHRNUM(P2) 

i - 4 ADD 1 TO LENGTH FOR 



, •••••*•••«••• 


•••• 


0838 

C701 

*1 

LD 

tl (P3> 

J EACH CHAR IN LINE UP TO. BU 



i • 

POP ARITHMETIC STACK 

• 

083A 

E40D 


XRI 

OD 

1 NOT INCLUDING, CARR RETURN 








083C 

9804 


JZ 

*2 









083£ 

AAE7 


ILD 

CHRNUM(P2) 


0912 

BAFD 

POPAE 

DLD 

LSTK(P2> 


i THIS ROUTINE POP THE A E. 


90F6 


JMP 

*1 


0914 

BAFD 


DLD 

LSTK < P2) 


; STACK, AND PUTS THE RESULT 

0842 

C2E7 

•2 

LD 

CHRNUM < P2) 

fIF LENGTH STILL 4, WELL DEL 

0916 

33 


XPAL 

P3 


; INTO LO(P2) AND HI(P2 > 

0844 

E404 


XRI 

4 

I A LINE, SO SET LENGTH - 0 

0917 

C410 


LDI 

H(AESTK) 



0846 

9C02 


JNZ 

•3 


0919 

37 


XPAH 

P3 



0848 

CAE7 


ST 

CHRNUM<P2) 


091A 

C300 


LD 

(P3) 



084A 

C2E7 

*3 

LD 

CHRNUM < P2) 

> PUT NEW LINE LENGTH IN EX 

091C 

CAEF 


ST 

L0(P2) 



084C 

01 


XAE 



09 IE 

C301 


LD 

1 (P3) 



084D 

C2F2 


LD 

LABLHI<P2) 

.IS NEW LINE REPLACING OLD? 

0920 

CAEE 


ST 

HI(P2) 



084F 

9406 


JP 

*4 

,YES - DO REPLACE 

0922 

90E5 


JMP 

X20 



0851 

D47F 


AN I 

07F 

> NO - WE LL INSERT LINE HERE. 








0853 

CAF2 


ST 

LABLHI<P2) 

j WHERE FNDLBL GOT US 








0855 

9018 


JMP 

•MOVE 

, BUT FIRST MAKE ROOM 






• ••• 


0857 

C503 

*4 

LD 

•3 (PI) 

.SKIP LINE • AND LENGTH 



; * 


UNTIL 


• 

0859 

40 


LDE 


;EX, NOW HOLDING NEW LINE 





• ••• 


085A 

02 


CCL 


i LENGTH. WILL SOON HOLD 








O05B 

F4FC 


ADI 

-4 

> DISPLACEMENT OF LINES 




LOCAL 




085D 

01 


XAE 


l TO BE MOVED 

0924 

C2FF 

UNTIL: 

LD 

DOPTR(P2) 


,CHECK FOR DO-STACK UNDERFLOW 

085E 

C501 

*5 

LD 

• 1 (PI ) 

.SUBTRACT 1 FROM DISPLACEMENT 








0860 

E40D 


XRI 

OD 

j FOR EACH CHAR IN LINE BEING 

0927 

40 


LDE 




0862 

980B 


JZ 

•MOVE 

t REPLACED 

0928 

E47A 


XRI 

L(DOSTAK) 



0864 

40 


LDE 



092A 

9C04 


JNZ 

• 1 



0865 

02 


CCL 



092C 

C40F 


LDI 

IS 



0866 

F4FF 


ADI 

“1 


092E 

90E0 


JMP 

E13 



0868 

01 


XAE 



0930 

C2EF 

• 1 

LD 

L0(P2> 


;CHECK FOR EXPRESSION - 0 

0869 

90F3 


JMP 

•5 


0932 

DAEE 


OR 

HI (P2> 



086B 

90AF 

X 19: 

JMP 

X17 


0934 

9806 


JZ 

•REDO 


i IF ZERO, REPEAT DO-LOOP 

086D 

90AF 

E12 

JMP 

Ell 


0936 

BAFF 


DLD 

DOPTR(P2> 


»ELSE POP SAVE STACK 

086F 

40 

•MOVE 

LDE 


»IF DISPLACEMENT AND LENGTH 

0938 

BAFF 


DLD 

DOPTR(P2> 



0870 

DAE7 


OR 

CHRNUM < P2) 

j OF NEW LINE ARE 0. RETURN 

093A 

90CD 


JMP 

X20 


l CONTINUE TO NEXT STMT 

0872 

98F7 


JZ 

X19 


093C 

40 

•REDO 

LDE 



;POINT P3 AT DO-STACK 

0874 

C47A 


LDI 

L(DOSTAK) 

i CLEAR SOME STACKS 

093D 

33 


XPAL 

P3 



0876 

CAFF 


ST 

D0PTR<P2) 


093E 

C410 


LDI 

H(DOSTAK) 



0878 

C46A 


LDI 

L(SBRSTK) 


0940 

37 


XPAH 

P3 



087A 

CAFC 


ST 

SBRPTR < P2) 


0941 

C3FF 


LD 

-KPS) 


i LOAD PI FROM DO STACK 

087C 

C48A 


LDI 

L < FORSTK) 


0943 

35 



PI 



087E 

CAFE 


ST 

F0RPTR<P2> 


0944 

C3FE 


LD 

-2(P3) 
















0881 

9860 


JZ 

•ADD 

,DON'T NEED TO MOVE LINES 







, STATEMENT OF DO-LOOP 

0883 

9410 


JP 

•UP 

i SKIP IF DISPLACEMENT POSITIV 








0885 

C100 

•DOWN 

LD 

0(P1) 

.NEGATIVE DISPLACEMENT 








0887 

C980 


ST 

EREG(P1) 

, DO, 



■ ■■■■ 





0889 

C501 


LD 

tl(Pl) 

l M(P1+DISP) - M(PI )i 





088B 

94F8 


JP 

• DOWN 

, PI = Pl+1; 



■ « ■ a a a 





088D 

Cl 00 


LD 

0<P1 > 

> UNTIL M(P1)<0 fc M(P1-1K0 j 








088F 

94F4 


JP 

•DOWN 




; THIS 



THE 

STATEMENT 

0891 

C980 












0893 

904E 


JMP 

•ADD 









0895 

C1FE 

•UP 

LD 

-2(P1) 

* POSITIVE DISPLACEMENT 








0897 

CAEA 


ST 

TEMP < P2) 

»FLAG BEGINNING OF MOVE WITH 







. BUT WITH IEN BIT CLEARED 

0899 

C4FF 


LDI 

— 1 









089B 

C9FE 


ST 

-2(P1) 

j CAN NEVER APPEAR IN A 

094E 


X21 





089D 

C450 


LDI 

80 

t NIBL TEXT 

0950 

90BE 

E14 

JMP 




089F 

C9FF 


ST 

-1 (PI) 









08A1 

C501 

•UP1 

LD 

tl(PI) 

.ADVANCE PI TO END OF TEXT 








08A3 

94FC 


JP 

•UP1 









08A5 

C100 


LD 

0(P1 ) 




j • 

STAT FUNCTION 


• 

08A7 

94F8 


JP 

•UP1 









08A9 

35 


XPAH 

PI 

* SAVE PI IN LO. HI 








08AA 

CAEE 


ST 

HI(P2> 


0952 

C410 

STATUS 

LDI 

H(AESTK) 



08AC 

35 


XPAH 

PI 


0954 

37 


XPAH 

P3 


, POINT P3 AT AE STACK 

08AD 

31 


XPAL 

PI 


0955 

AAFD 


ILD 

LSTK(P2) 



08AE 

CAEF 


ST 

L0(P2) 


0957 

AAFD 


ILD 

LSTK(P2) 



08B0 

31 


XPAL 

PI 


0959 

33 


XPAL 

P3 



08B1 

C2EF 


LD 

L0(P2> 

i ADD DISPLACEMENT TO 

095A 

06 


CSA 




08B3 

02 


CCL 


l VALUE OF PI, TO CHECK 

095B 

CBFE 


ST 

-2(P3) 


; STATUS REG IS LOW BYTE 

08B4 

70 


ADE 


> WHETHER WE'RE OUT OF 

095D 

C400 


LDI 

0 



08B5 

C400 


LDI 

0 

i RAM FOR USER'S PROGRAM 

095F 

CBFF 


ST 

-1(P3) 


i ZERO IS HIGH BYTE 

08B7 

F2EE 


ADD 

HI<P2) 


0961 

90EB 


JMP 

X21 



08B9 

E2EE 


XOR 

HI(P2) 









08BB 

D4F0 


AN I 

OFO 









08BD 

9803 


JZ 

•UP 2 









08 BF 

C400 


LDI 

0 

iIF OUT OF RAM. CHANGE 



J * MACHINE 

LANGUAGE SUBROUTINE * 


01 


XAE 


t DISPLACEMENT TO ZERO 








08C2 

C4FF 

•UP 2 

LDI 

-1 









08C4 

C980 

•UP3 

ST 

EREG(P1) 

.MOVE TEXT UP UNTIL WE REACH 



J THIS 

ROUTINE 

IMPLEMENTS 

THE 

'LINK' STATEMENT 

08C6 

C5FF 


LD 

t-1(PI) 

* THE FLAGS SET ABOVE 








08C8 

94FA 


JP 

•UP3 


0963 

C2EE 

CALLML 

LD 

HKP2) 


> OET HIGH BYTE OF ADDRESS 

08CA 

C101 


LD 

1 (PI) 


0965 

37 


XPAH 

P3 



08CC 

E450 


XRI 

80 


0966 

C2EF 


LD 

L0(P2) 


. GET LOW BYTE 

08CE 

9804 


JZ 

♦UP4 


0968 

33 


XPAL 

P3 


> P3 -> USER'S ROUTINE 

08 DO 

ClOO 


LD 

0(P1) 


0969 

C7FF 


LD 

t-1(P3) 


,CORRECT P3 

08D2 

90F0 


JMP 

•UP3 


096B 

3F 


XPPC 

P3 


iCALL ROUTINE (PRAY IT WORKS 

08D4 

C2EA 

•UP 4 

LD 

TEMP(P2) 

.RESTORE THE FLAGGED LOCATION 

096C 



LDP I 

P2,VARS 


.RESTORE RAM POINTER 

08D6 

C900 


ST 

0(P1 > 

» TO THEIR ORIGINAL VALUES 

0972 

90DA 


JMP 

X21 


.RETURN 

08D8 

C40D 


LDI 

OD 









08DA 

C901 


ST 

1 (PI ) 









08DC 

40 


LDE 


; IF DISPLACEMENT =« 0, WE'RE 






*••• 


08DD 

9C04 


JNZ 

•ADD 

> OUT OF RAM, SO REPORT ERROR 



i » 

SAVE 

DO LOOP ADDRESS 

• 

08 DF 

C402 


LDI 

2 









08E1 

908A 

E12A: 

JMP 

E12 









08E3 

C2E7 

•ADD 

LD 

CHRNUM<P2> 

,INSERT NEW LINE 



i THIS 

ROUTINE 

IMPLEMENTS 

THE 

'DO' STATEMENT 

08E5 

9884 

X 19A 

JZ 

X 19 

i UNLESS LENGTH IS ZERO 








08E7 

C2F1 


LD 

P1L0W(P2> 

.POINT PI AT LINE BUFFER 




LOCAL 





31 


XPAL 

PI 


0974 

C2FF 

SAVEDO 

LD 

DOPTR(P2> 


.CHECK FOR STACK OVERFLOW 




LD 

P1HIGH(P2) 


0976 

E48A 


XRI 




08EC 

35 


XPAH 

PI 


0978 

9C04 


JNZ 




08ED 

C2F3 


LD 

LABLLO< P2) 

.POINT P3 AT INSERTION PLACE 

097A 

C40A 


LDI 




08EF 

33 


XPAL 

P3 


097C 

90D2 

E15 

JMP 

E14 



08F0 

C2F2 


LD 

LABLHI(P2) 


097E 

AAFF 

• 1 

ILD 

DOPTR(P2> 






XPAH 

P3 


0980 

AAFF 


ILD 

DOPTR(P2) 



08F3 

C2F7 


LD 

HILINE < P2) 

> PUT LINE NUMBER INTO TEXT 

0982 

33 


XPAL 

P3 



08F5 

CF01 


ST 

tl(P3) 


0983 

C410 


LDI 

H(DOSTAK) 



08F7 

C2F8 


LD 

L0LINE(P2) 


0985 

37 


XPAH 

P3 






ST 

tl(P3) 


0986 

35 


XPAH 

PI 


.SAVE CURSOR ON THE STACK 


C2E7 


LD 

CHRNUM(P2) 

.STORE LINE LENGTH IN TEXT 

0987 

CBFF 


ST 

-1 (P3> 



08FD 

CF01 


ST 

tl<P3) 


0989 

35 


XPAH 

PI 



08FF 

C501 

•ADD1 

LD 

tl (PI ) 

i PUT REST OF CHARS 

098A 

31 


XPAL 

PI 



0901 

CF01 


ST 

tl<P3> 

, (INCLUDING CR) INTO TEXT 

098B 

CBFE 


ST 

-2(P3> 



0903 

E40D 


XRI 

OD 


098D 

31 


XPAL 

PI 
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•JMP 


X21 


098E 90BE X22: 


, ************************************* 

;* TOP OF RAM FUNCTION * 



i *»**{ 

LOCAL 



0990 C2E9 

TOP 

LD 

TEMP2 < P2) 

i SET P3 TO POINT TO 

0992 37 


XPAH 

P3 

i START OF NIBL TEXT 

0993 C2E8 


LD 

TEMP3 < P2) 


0995 33 


XPAL 

P3 


0996 C300 

*0 

LD 

<P3) 

.HAVE WE HIT END OF TEXT? 

0998 9402 


JP 

*1 

NO - SKIP TO NEXT LINE 

099A 9007 


JMP 

*2 

;YES - PUT CURSOR ON STACK 

099C C302 

♦ 1 

LD 

2<P3) 

.GET LENGTH OF LINE 

099E 01 


XAE 



099F C780 


LD 

•EREG< P3) 

,SKIP TO NEXT LINE 

09A1 90F3 


JMP 

*0 

, GO CHECK FOR EOF 

09A3 C702 

*2 

LD 

@2(P3) 

.P3 = P3 ♦ 2 

09A5 AAFD 


ILD 

LSTK(P2) 

, SET P3 TO STACK. SAVING 

09A7 AAFD 


ILD 

LSTK(P2) 

, OLD P3 (WHICH CONTAINS TOP) 

09A9 33 


XPAL 

P3 

i ON IT SOMEHOW 

09AA 01 


XAE 



09AB C410 


LDI 

H(AESTK) 


09AD 37 


XPAH 

P3 


09AE CBFF 


ST 

—1(P3) 


09B0 40 


LDE 



09B1 CBFE 


ST 

-2(P3> 


09B3 90D9 


JMP 

X22 





< • 

SKIP 

TO NEXT NIBL LINE 

• 

09B5 

C501 

IGNORE 

LD 

• 1 (PI) 

.SCAN TIL WE'RE PAST 

09B7 

E40D 


XRI 

OD 

CARRIAGE RETURN 

09B9 

9CFA 


JNZ 

IGNORE 


09BB 

3F 


XPPC 

P3 

;YES - RETURN 




i * 

; ****** 

MODULO FUNCTION 

* 

09 BC 

C2FD 

MODULO 

LD 

LSTK(P2) 

;THIS ROUTINE MUST BE 

09BE 

33 


XPAL 

P3 

. IMMEDIATELY AFTER A 

09BF 

C410 


LDI 

H(AESTK) 

, DIVIDE TO WORK CORRECTLY 

09C1 

37 


XPAH 

P3 


09C2 

C303 


LD 

3(P3) 

.GET LOW BYTE OF REMAINDER 

09C4 

CBFE 


ST 

-2<P3> 

.PUT ON STACK 

09C6 

C302 


LD 

2 (P3) 

.GET HIGH BYTE OF REMAINDER 

09C8 

CBFF 


ST 

-1<P3) 

.PUT ON STACK 

09CA 

90C2 

X23 

JMP 

X22 


09CC 

90AE 

E16 

JMP 

E15 





i * 

RANDOM FUNCTION 

* 




LOCAL 



09CE 

C408 

RANDOM 

LDI 

8 

.LOOP COUNTER FOR MULTIPLY 

09D0 

CAEB 


ST 

NUM(P2) 


09D2 

C2E5 


LD 

RNDX < P2) 


09D4 

01 


XAE 



09D5 

C2E4 


LD 

RNDY(P2) 


09D7 

CAE9 


ST 

TEMP2(P2) 


09D9 

C2E5 

•LOOP 

LD 

RNDX < P2) 

-MULTIPLY THE SEEDS BY 9 

09DB 

02 


CCL 



09DC 

70 


ADE 



09DD 

01 


XAE 



09DE 

C2E4 


LD 

RNDY(P2) 


09E0 

02 


CCL 



09E1 

F2E9 


ADD 

TEMP2(P2) 


09E3 

CAE 4 


ST 

RNDY(P2) 


09E5 

BAEB 


DLD 

NUM < P2) 


09E7 

9CF0 


JNZ 

•LOOP 


09E9 

40 


LDE 


.ADD 7 TO SEEDS 

09EA 

02 


CCL 



09EB 

F407 


ADI 

7 


09ED 

01 


XAE 



09EE 

C2E4 


LD 

RNDY(P2) 


09F0 

02 


CCL 



09F1 

F 407 


ADI 

7 


09F3 

IE 


RR 



09F4 

CAE4 


ST 

RNDY(P2) 


09F6 

AAE6 


ILD 

RNDF(P2) 

. HAVE WE GONE THROUGH 

09F8 

9803 


JZ 

*1 

. 256 GENERATIONS'* 

09FA 

40 


LDE 


.IF SO, SKIP GENERATING 

09FB 

CAES 


ST 

RNDX(P2) 

. THE NEW RNDX 

09FD 

C2FD 

*1 

LD 

LSTKIP2) 

.START MESSING WITH THE STACK 

09FF 

33 


XPAL 

P3 


OAOO 

C410 


LDI 

H<AESTK) 


0A02 

37 


XPAH 

P3 


0A03 

C401 


LDI 

1 

.FIRST PUT 1 ON STACK 

0A05 

CBOO 


ST 

<P3) 


0A07 

C400 


LDI 

0 


0A09 

CB01 


ST 

1 <P3) 


OAOB 

C3FE 


LD 

-2<P3) 

.PUT EXPR2 ON STACK 

OAOD 

CB02 


ST 

2<P3> 


OAOF 

C3FF 


LD 

-1(P3) 


0A1 1 

CB03 


ST 

3(P3) 


0A13 

C3FC 


LD 

-4<P3) 

.PUT EXPR1 ON STACK 

OA15 

CB04 


ST 

4 < P3) 


0A17 

C3FD 


LD 

-3<P3> 


0A19 

CB05 


ST 

5<P3> 


0A1B 

C2E4 


LD 

RNDY < P2) 

.PUT RANDOM tt ON STACK 

0A1D 

CBFE 


ST 

-2 < P3) 


0A1F 

C2E5 


LD 

RNDX(P2) 


0A21 

E4FF 


XRI 

OFF 


0A23 

D47F 


AN I 

07F 


0A25 

CBFF 


ST 

-HP3) 


0A27 

C706 


LD 

@6<P3> 

.ADD 6 TO STACK POINTER 

0A29 

33 


XPAL 

P3 


0A2A 

CAFD 


ST 

LSTK < P2) 


0A2C 

909C 

X 24 

JMP 

X23 


0A2E 

909C 

E16A 

JMP 

E16 





i* PUSH 1 

ON ARITHMETIC STACK * 

0A30 

AAFD 

LIT1 ILD 

LSTK(P2) 

0A32 

AAFD 

ILD 

LSTMP2) 

0A34 

33 

XPAL 

P3 

0A35 

C410 

LDI 

H<AESTK) 

0A37 

37 

XPAH 

P3 

0A38 

C400 

LDI 

0 

0A3A 

CBFF 

ST 

-1<P3) 

0A3C 

C401 

LDI 

1 

0A3E 

CBFE 

ST 

-2(P3) 

0A40 

90EA 

JMP 

X24 




i * 

FOR-LOOP INITIALIZATION 

• 




LOCAL 



0A42 

C2FE 

SAVFOR 

LD 

FORPTR(P2) 

.CHECK FOR FOR STACK 

0A44 

E4A6 


XRI 

L < PCSTAK) 

, OVERFLOW 

0A46 

9C04 


JNZ 

• 1 


0A48 

C40A 


LDI 

10 


0A4A 

90E2 

El 7 

JMP 

E16A 


0A4C 

E4A6 

• 1 

XRI 

L<PCSTAK) 


0A4E 

31 


XPAL 

PI 

;POINT PI AT FOR STACK 

0A4F 

CAF1 


ST 

P1LOW(P2) 

t SAVING OLD PI 

OA51 

C410 


LDI 

H(FORSTK) 


0A53 

35 


XPAH 

PI 


0A54 

CAFO 


ST 

P1HIGH < P2) 


0A56 

C2FD 


LD 

LSTK(P2) 

i POINT P3 AT AE STACK 

0A58 

33 


XPAL 

P3 


0A59 

C410 


LDI 

H< AESTK) 


0A5B 

37 


XPAH 

P 3 


0A5C 

C3F9 


LD 

-7<P3) 

. GET VARIABLE INDEX 

0A5E 

CD01 


ST 

«1 (PI ) 

. SAVE ON FOR-STACK 

0A60 

C3FC 


LD 

-4<P3> 

.GET L(LIMIT) 

0A62 

CD01 


ST 

*1 (PI) 

. SAVE 

0A64 

C3FD 


LD 

-3<P3> 

GET H(LIHIT)* 

0A66 

CD01 


ST 

«1(P1) 

. SAVE 

0A68 

C3FE 


LD 

-2(P3) 

.GET L<STEP) 

0A6A 

CD01 


ST 

@1(PI) 

. SAVE 

0A6C 

C3FF 


LD 

-1(P3> 

iGET H<STEP) 

0A6E 

CD01 


ST 

ei(Pi> 

; SAVE 

0A70 

C2F1 


LD 

P1L0W(P2) 

iGET L<PI) 

0A72 

CD01 


ST 

• 1 (PI ) 

, SAVE 

OA74 

C2F0 


LD 

P1HI GH (P2) 

.GET H<PI) 

OA76 

CD01 


ST 

• 1 (PI ) 

. SAVE 

0A78 

35 


XPAH 

PI 

,RESTORE OLD PI 

0A79 

C2F1 


LD 

P1L0W(P2> 


0A7B 

31 


XPAL 

PI 


0A7C 

CAFE 


ST 

FORPTR<P2> 

i UPDATE FOR STACK PTR 

0A7E 

C7FC 


LD 

«-4(P3) 


0A80 

33 


XPAL 

P3 


0A81 

CAFD 


ST 

LSTK(P2) 

.UPDATE AE STACK PTR 

0A83 

90A7 

X25 

JMP 

X24 





i ***»»4 






1 * 

FIRST PART OF NEXT VAR' 

• 




LOCAL 



0A85 

C2FE 

NEXTV 

LD 

FORPTR(P2> 

.POINT PI AT FOR STACK. 

0A87 

E48A 


XRI 

L(FORSTK) 

i CHECKING FOR UNDERFLOW 

0A89 

9C04 


JNZ 

*1 


0A8B 

C40B 


LDI 

11 

, REPORT ERROR 

0A8D 

90BB 


JMP 

El 7 


0A8F 

E48A 

*1 

XRI 

L(FORSTK) 


0A91 

31 


XPAL 

PI 


0A92 

CAF1 


ST 

P1L0W(P2) 

, SAVE OLD PI 

0A94 

C410 


LDI 

H(FORSTK) 


0A96 

35 


XPAH 

PI 


0A97 

CAFO 


ST 

P1HIGH(P2) 


0A99 

C2FD 


LD 

LSTK(P2) 

POINT P3 AT AE STACK 

0A9B 

33 


XPAL 

P3 


0A9C 

C410 


LDI 

H(AESTK) 


0A9E 

37 


XPAH 

P3 


0A9F 

C7FF 


LD 

•-1(P3) 

i GET VARIABLE INDEX 

0AA1 

E1F9 


XOR 

-7(P1) 

,COMPARE WITH INDEX 

0AA3 

9804 


JZ 

*10 

, ON FOR STACK ERROR 

0AA5 

C40C 


LDI 

12 

l IF NOT EQUAL 

0AA7 

90A1 

E18 

JMP 

El 7 


0AA9 

E1F9 

*10 

XOR 

—7(PI) 

.RESTORE INDEX 

OAAB 

01 


XAE 


.SAVE IN EREG 

OAAC 

C280 


LD 

EREG(P2) 

,GET L(VARIABLE) 

OAAE 

02 


CCL 



OAAF 

F1FC 


ADD 

-4(PI ) 

,ADD L< STEP) 

0AB1 

CA80 


ST 

EREG(P2> 

>STORE IN VARIABLE 

0AB3 

CBOO 


S' 

<P3> 

1 AND ON STACK 

0AB5 

C601 


LD 

*1(P2) 

I INCREMENT RAM PTR 

0AB7 

C280 


LD 

EREG(P2) 

,GET H(VARIABLE) 

0AB9 

F1FD 


ADD 

-3< PI) 

.ADD H(STEP) 

OABB 

CA80 


ST 

EREG(P2) 

.STORE IN VARIABLE 

OABD 

CB01 


ST 

1 (P3) 

. AND ON STACK 

OABF 

C6FF 


LD 

t-1(P2> 

.RESTORE RAM POINTER 

0AC1 

C1FA 


LD 

-6<P1) 

)GET L(LIMIT) 

0AC3 

CB02 


ST 

2(P3) 

. PUT ON STACK 

0AC5 

C1FB 


LD 

-5(P1) 

GET H(LIMIT) 

0AC7 

CB03 


ST 

3<P3) 

.PUT ON STACK 

0AC9 

C1FD 


LD 

-3(PI) 

>GET H(STEP) 

OACB 

9410 


JP 

•2 

, IF NEGATIVE, INVERT 

OACD 

C404 


LDI 

4 

I ITEMS ON A. E. STACK 

OACF 

CAEB 


ST 

NUM < P2> 

, NUM - LOOP COUNTER 

0AD1 

C701 

•LOOP 

LD 

•1(P3) 

.GET BYTE FROM STACK 

0AD3 

E4FF 


XRI 

OFF 

* INVERT IT 

0AD5 

CBFF 


ST 

-1(P3) 

.PUT BACK ON STACK 

0AD7 

BAEB 


DLD 

NUM < P2) 

, DO UNTIL NUM - 0 

0AD9 

9CF6 


JNZ 

•LOOP 


OADB 

9002 


JMP 

*3 


OADD 

C704 

• 2 

LD 

®4(P3) 

.UPDATE AE STACK POINTER 

OADF 

33 

•3 

XPAL 

P3 


OAEO 

CAFD 


ST 

LSTK(P2) 


0AE2 

C2F1 


LD 

P1L0W(P2) 

,RESTORE OLD PI 

0AE4 

31 


XPAL 

PI 


0AE5 

C2F0 


LD 

P1HIGH(P2) 


0AE7 

35 


XPAH 

PI 


0AE8 

9099 

X26 

JMP 

X25 
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** 

***** 

0B75 90B9 


JMP 

X27 



i* SECOND PART OF 'NEXT VAR' 

* 







' 






i ************************************ 

OAEA C2EF 

NEXTV1: LD 

L0<P2) 


»IS FOR-LOOP OVER WITH? 


# * 

PUT PAGE NUMBER ON STACK 

• 

OAEC 9808 

JZ 

♦REDO 


»N0 - REPEAT LOOP 





••*••• 

OAEE C2FE 

LD 

FORPTR(P2) 


iYES - POP FOR-STACK 






OAFO 02 

CCL 





0B77 AAFD 

PUTPGE 

ILD 

LSTK(P2) 


OAF1 F4F9 

ADI 

-7 




0B79 AAFD 


ILD 

LSTK(P2) 


OAF3 CAFE 

ST 

FORPTR<P2> 




0B7B 33 


XPAL 

P3 


OAFS 3F 

XPPC 

P3 


jRETURN TO I. L INTERPRETER 

0B7C C410 


LDI 

H(AESTK) 


OAF6 C2FE 

♦REDO: LD 

FORPTR<P2) 


iPOINT P3 AT FOR STACK 

0B7E 37 


XPAH 

P3 


OAF8 33 

XPAL 

P3 




0B7F C2F6 


LD 

PAGE(P2) 


OAF9 C410 

LDI 

H< FORSTK) 




0B81 CBFE 


ST 

-2<P3) 


OAFB 37 

XPAH 

P3 




0B83 C400 


LDI 

0 


OAFC C3FF 

LD 

-1 < P3) 


i GET OLD PI OFF STACK 

0B85 CBFF 


ST 

-1(P3) 


OAFE 35 

XPAH 

PI 




0B87 90A7 


JMP 

X27 


OAFF C3FE 

LD 

-2 < P3) 









OBOl 31 

XPAL 

PI 









0B02 90E4 

JMP 

X26 





i •••••• 




0B04 90A1 

E19: JMP 

E18 





J * 

ASSIGN NEW PAGE 

• 


;* PRINT MEMORY AS STRING 


• 









•••• 

*** 

•••• 



LOCAL 








0B89 C2EF 

NUPAGE 

LD 

LO( P2 ) 

» GET PAGE • FROM STACK. 


i THIS ROUTINE 

IMPLEMENTS 

THE 

STATEMENT 

0B8B D407 


ANI 

7 

i GET THE LOW 3 BITS 


, PRINT' ' 

♦' FACTOR 




0B8D 9C02 


JNZ 

♦O 

iPAGE 0 BECOMES PAGE 1 







0B8F C401 


LDI 

1 



LOCAL 





0B91 CAF6 

♦0: 

ST 

PAGE < P2) 


0B06 C2EE 

PSTRNG LD 

HI<P2) 


i 

POINT PI AT STRING TO PRINT 

0B93 3F 


XPPC 

P3 

i RETURN 

0B08 35 

XPAH 

PI 









0B09 C2EF 

LD 

L0(P2) 









OBOB 31 

XPAL 

PI 








******** 

OBOC 

LDP I 

P3.PUTC-1 



POINT P3 AT PUTC ROUTINE 


j • 

FIND START OF PAGE 

* 

OB12 C501 

♦ 1 LD 

@1 (PI ) 



GET A CHARACTER 





******** 

OB14 E40D 

XRI 

OD 



IS IT A CARRIAGE RETURN? 






OB16 98D0 

JZ 

X26 


i 

YES - WE'RE DONE 


J THIS 

ROUTINE COMPUTES THE START OF THE CURRENT TEXT PAGE. 

OB18 E40D 

XRI 

OD 


j 

NO - PRINT THE CHARACTER 


. STORING THE 

ADDRESS IN TEMP2(P2> CTHE HIGH BYTE3. AND 

OBIA 3F 

XPPC 

P3 





I TEMP3(P2 ) [THE LOW BYTE], 


OBIB 06 

CSA 



i 

MAKE SURE NO ONE IS 






OB1C D420 

ANI 

020 


; 

TYPING ON THE TTY 

0B94 C2F6 

FNDPGE 

LD 

PAGE(P2) 


OBIE 9CF2 

JNZ 

♦ 1 


i 

BEFORE REPEATING LOOP 

0B96 E401 


XRI 

1 

j SPECIAL CASE IS PAGE 1. BUT 

0B20 90C6 

JMP 

X26 




0B98 9C09 


JNZ 

♦ 1 

» OTHERS ARE CONVENTIONAL 







0B9A C411 


LDI 

H< PGM) 

i PAGE 1 STARTS AT 'POM' 







0B9C CAE9 


ST 

TEMP2(P2) 





**** 

*** 

**** 

0B9E C420 


LDI 

L(PGM) 



j* INPUT A STRING 



• 

OBAO CAE8 


ST 

TEMP3(P2) 





***« 

*** 

• ••• 

0BA2 3F 


XPPC 

P3 

j RETURN 







0BA3 E401 

♦ 1 

XRI 

1 

I RESTORE PAGE • 


; THIS ROUTINE 

IMPLEMENTS 

THE 

STATEMENT 

0BA5 01 


XAE 


;SAVE IT 


, 'INPUT 

♦' FACTOR 




0BA6 C404 


LDI 

4 

i LOOP COUNTER - 4 







0BA8 CAEB 


ST 

NUM(P2) 


0B22 C2EE 

ISTRNG LD 

HI(P2) 



GET ADDRESS TO STORE THE 

OBAA 40 

♦LOOP 

LDE 


jMULTIPLY PAGE* BY 16 

0B24 37 

XPAH 

P3 



STRING. PUT IT INTO P3 

OBAB 02 


CCL 



0B25 C2EF 

LD 

L0< P2) 




OBAC 70 


ADE 



0B27 33 

XPAL 

P3 




OBAD 01 


XAE 



0B28 C501 

♦2 LD 

«1(P1) 



GET A BYTE FROM LINE BUFFER 

OBAE BAEB 


DLD 

NUM(P2) 


0B2A CF01 

ST 

#1<P3) 



PUT IT IN SPECIFIED LOCATION 

OBBO 9CF8 


JNZ 

♦LOOP 


0B2C E40D 

XRI 

OD 



DO UNTIL CHAR = CARR RETURN 

0BB2 40 


LDE 



0B2E 9CF8 

JNZ 

♦2 




0BB3 CAE9 


ST 

TEMP2(P2) 

lTEMP2 HAS HIGH BYTE 

0B30 90B6 

X27 JMP 

X26 




0BB5 C402 


LDI 

2 

i OF ADDRESS NOW 







0BB7 CAE8 


ST 

TEMP3(P2) 

1 LOW BYTE IS ALWAYS 2 







0BB9 3F 


XPPC 

P3 



;* STRING CONSTANT ASSIGNMENT 

• 


i * 

MOVE 

CURSOR TO NEW PAGE * 


; THIS ROUTINE 

IMPLEMENTS 

THE 

STATEMENT 

OBBA C2E9 

CHPAGE 

LD 

TEMP2(P2) 

t PUT START OF PAGE 


i '♦' FACTOR '■' STRING 



OBBC 35 


XPAH 

PI 

f INTO PI THIS ROUTINE 







OBBD C2E8 


LD 

TEMP3 ( P2 ) 

i MUST BE CALLED RIGHT 


LOCAL 





OBBF 31 


XPAL 

PI 

i AFTER 'FNDPGE ' 

0B32 C2EF 

PUTSTR LD 

L0< P2 ) 



GET ADDRESS TO STORE STRING. 

OBCO 3F 


XPPC 

P3 

> RETURN 

0B34 33 

XPAL 

P3 



PUT IT INTO P3 






0B35 C2EE 

LD 

HI<P2) 









0B37 37 

XPAH 

P3 









0B38 C50I 

♦LOOP LD 

ei <pi) 



GET A BYTE FROM STRING 


i * 

DETERMINE CURRENT PAGE 

• 

0B3A E422 

XRI 

' -' 



CHECK FOR END OF STRING 






0B3C 980E 

JZ 

♦END 









0B3E E42F 

XRI 

'"' 1 OD 



MAKE SURE THERE'S NO CR 

OBC1 35 

DETPGE 

XPAH 

PI 

i CURRENT PAGE IS HIGH 

0B40 9C04 

JNZ 

♦ 1 




0BC2 01 


XAE 


i PART OF CURSOR DIVIDED 

0B42 C407 

LDI 

7 




0BC3 40 


LDE 


i BY 16 

0B44 90BE 

JMP 

E19 



ERROR IF CARRIAGE RETURN 

0BC4 35 


XPAH 

PI 


0B46 E40D 

♦ 1 XRI 

OD 



RESTORE CHARACTER 

0BC5 40 


LDE 



0B48 CF01 

ST 

@1 <P3) 



PUT IN SPECIFIED LOCATION 

OBC6 1C 


SR 



0B4A 90EC 

JMP 

♦LOOP 



GET NEXT CHARACTER 

OBC7 1C 


SR 



0B4C C40D 

♦END LDI 

OD 



APPEND CARRIAGE RETURN 

0BC8 1C 


SR 



0B4E CBOO 

ST 

<P3> 



TO STRING 

0BC9 1C 


SR 



0B50 90DE 

JMP 

X27 




OBCA CAF6 


ST 

PAGE < P2 ) 








OBCC 3F 


XPPC 

P3 

; RETURN 


; * MOVE STRING 

**#* 

*** 

* 


..... 





»************* 


**** 

*** 



J* 

CLEAR CURRENT PAGE 

* 


; THIS ROUTINE 

IMPLEMENTS 

THE 

STATEMENT 







, '♦' FACTOR '=' '♦' 

FACTOR 


OBCD C2E9 

NEWPGM 

LD 

TEMP2(P2) 

; POINT PI AT CURRENT PAGE 







OBCF 35 


XPAH 

PI 



LOCAL 





OBDO C2E8 


LD 

TEMP3(P2) 


0B52 C2FD 

MOVSTR LD 

LSTK ( P2 ) 



POINT P3 AT A E STACK 

0BD2 31 


XPAL 

PI 


0B54 33 

XPAL 

P3 




0BD3 C40D 


LDI 

OD 

i PUT DUMMY END-OF-LINE 

0B55 C410 

LDI 

H(AESTK) 




0BD5 C9FF 


ST 

-1(PI ) 

; JUST BEFORE TEXT 

0B57 37 

XPAH 

P3 




0BD7 C4FF 


LDI 

-1 

i PUT -1 AT START OF TEXT 

0B58 C7FF 

LD 

e-i<P3) 



GET ADDRESS OF SOURCE STRING 

0BD9 C900 


ST 

(PI) 


0B5A 35 

XPAH 

PI 



INTO PI 

OBDB C901 


ST 

1 (PI ) 


0B5B C7FF 

LD 

e-i<P3) 




OBDD 3F 


XPPC 

P3 

; RETURN 

0B5D 31 

XPAL 

pi 









0B5E C7FF 

LD 

e-i <P3> 


• GET ADDRESS OF DESTINATION 






0B60 01 

XAE 




STRING INTO P3 


, ***** 




0B61 C7FF 

LD 

e-i<P3> 





; * 

FIND 

LINE NUMBER IN TEXT * 

0B63 33 

XPAL 

P3 









0B64 CAFD 

ST 

LSTK(P2 ) 



UPDATE STACK POINTER 







LDE 






i INPUTS: THE 

START OF THE CURRENT PAGE IN TEHP2 AND TEMP3, 



P3 





i 

THE 

LINE NUMBER TO LOOK FOR IN LO AND HI. 



@1 (PI ) 



GET A SOURCE CHARACTER 


, OUPUTS THE 

ADDRESS OF THE FIRST LINE IN THE NIBL TEXT 


ST 

@1(P3) 



SEND IT TO DESTINATION 


; 

WHOSE LINE NUMBER IS 

GREATER THAN OR EQUAL TO THE 



OD 



REPEAT UNTIL CARRIAGE RET 


1 

NUMBER IN HI AND LO, 

RETURNED IN ADRLO AND ADRHI. 

0B70 06 

CSA 




OR KEYBOARD INTERRUPT 



LOCAL 


0B71 D420 

ANI 

020 




OBDE C2E9 

FNDLBL 

LD 

TEMP2(P2) 

; POINT PI AT START OF TEXT 


JNZ 

♦LOOP 




OBEO 35 


XPAH 

PI 
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0BE1 C2E8 


LD 

TEMP3<P2) 


0C72 


JUMP 

NEW1 

0BE3 31 


XPAL 

PI 


0C74 

DFAULT: 

DO 

LIT1 

0BE4 Cl00 

*1 

LD 

(PI) 

.HAVE WE HIT END OF TEXT? 

0C76. 

NEW 1 

DO 

DONE, POPAE,NUPAGE,FNDPGE, NEWPGM, 

0BE6 E4FF 


XRI 

OFF 






0BE8 9412 


JP 

*2 

> YES - STOP LOOKING 

0C82 

STMT 

TST 

LET, 'LE'. 'J' 

OBEA 03 


SCL 


* NO - COMPARE LINE NUMBERS 

0C87 

LET: 

TSTV 

AT 

OBEB Cl01 


LD 

1 (PI ) 

; BY SUBTRACTING 

0C8B 


TST 

SYNTAX. 

OBED FAEF 


CAD 

L0(P2> 


0C8E 


CALL 

RELEXP 

OBEF Cl00 


LD 

0(P1 ) 


0C90 


DO 

STORE, DONE,NXT 

OBF1 FAEE 


CAD 

HI(P2) 

;IS TEXT LINE tt >= LINE #? 

OC96 

AT 

TST 

IF, 

0BF3 9407 


JP 

*2 

iYES - STOP LOOKING 

0C99 


CALL 

FACTOR 

0BF5 Cl02 


LD 

2(P1) 

,NO - TRY NEXT LINE IN TEXT 

0C9B 


TST 

SYNTAX. 

OBF7 01 


XAE 



0C9E 


CALL 

RELEXP 

0BF8 C580 


LD 

@EREG< PI) 

i SKIP LENGTH OF LINE 

OCAO 


DO 

MOVE, DONE, NXT 

OBFA 90E8 


JMP 

*1 






OBFC 31 

*2 

XPAL 

PI 

.SAVE ADDRESS OF FOUND LINE 

0CA6 

IF 

TST 

UNT, ' I 'F' 

OBFD CAF3 


ST 

LABLL0(P2> 

i IN LABLHI AND LABLLO 

OCA A 


CALL 

RELEXP 

OBFF 31 


XPAL 

PI 


OCAC 


TST 

IF1, 'THE', 'N' 

0C00 35 


XPAH 

PI 


0CB2 

IF1 

DO 

POPAE, CMPR 

0C01 CAF2 


ST 

LABLHI(P2) 


0CB6 


JUMP 

STMT 

0C03 35 


XPAH 

PI 


0CB8 

UNT 

TST 

DO, 'UNTI', 'L' 

0C04 C2EF 


LD 

L0(P2) 

,WAS THERE AN EXACT MATCH? 

OCBF 


DO 

CKMODE 

0C06 E101 


XOR 

1 (PI) 


0CC1 


CALL 

RELEXP 

0C08 9C07 


JNZ 

*3 


0CC3 


DO 

DONE, POPAE, UNTIL. DETPGE, NXT 

OCOA C2EE 


LD 

HI(P2> 






OCOC El00 


XOR 

0<P1 ) 


OCCD 

DO 

TST 

GOTO, 'D'i '0' 

OCOE 9C01 


JNZ 

*3 

iNO - FLAG THE ADDRESS 

0CD1 


DO 

CKMODE, DONE, SAVEDO, NXT 

0C10 3F 


XPPC 

P3 

,YES - RETURN NORMALLY 





0C11 C2F2 

*3 

LD 

LABLHI<P2> 

> SET SIGN BIT OF HIGH PART 

0CD9 

GOTO 

TST 

RETURN, 'O'. '0' 

0C13 DC80 


OR I 

080 

i OF ADDRESS TO INDICATE 

OCDD 


TST 

GOSUB. T', '0' 

0C15 CAF2 


ST 

LABLHI(P2) 

i INEXACT MATCH OF LINE tt'S 

0CE1 


CALL 

RELEXP 

OC17 3F 


XPPC 

P3 


0CE3 


DO 

DONE 



PAGE 

' I L MACROS 


0CE5 


JUMP 

G01 






0CE7 

GOSUB 

TST 

SYNTAX, 'SU', 'B' 





*»••• 

OCEC 


CALL 

RELEXP 


i * 

I 

L. MACROS 

• 

OCEE 


DO 

DONE, SAV 


■ ******* 



»•••• 

0CF2 

G01: 

DO 

FNDPGE, POPAE,FNDLBL, XFER. NXT 



LOCAL 



OCFC 

RETURN 

TST 

NEXT, 'RETUR', 'N' 






0D04 


DO 

DONE,RSTR,DETPGE, NXT 

2000 

• TSTBIT 

= 

TSTBIT *256 






8000 

•CALBIT 

= 

CALBIT*256 


ODOC 

NEXT 

TST 

FOR, 'NEX', 'J' 

4000 

•JMPBIT 

* 

JMPBIT *256 


0D12 


DO 

CKMODE 






0D14 


TSTV 

SYNTAX 



MACRO 

TST. FAIL, A. B 


0D18 


DO 

DONE, NEXTV 



DBYTE 

♦TSTBIT!FAIL 


0D1C 


CALL 

GTROP 



IF 

tt=2 


0D1E 


DO 

POPAE, NEXTV1, DETPGE, NXT 



BYTE 

A ‘080 








ELSE 



OD26 

FOR 

TST 

STAT, 'FO', 'R' 



ASCII 

'A 


0D2B 


DO 

CKMODE 



BYTE 

B 1 080 


0D2D 


TSTV 

SYNTAX 



ENDIF 



0D31 


TST 

SYNTAX, 



ENDM 



0D34 


CALL 

RELEXP 






0D36 


TST 

SYNTAX, 'T'. '0' 



MACRO 

TSTCR.FAIL 


0D3A 


CALL 

RELEXP 



DBYTE 

•TSTBIT!FAIL 


0D3C 


TST 

FORI. 'STE', 'P' 



BYTE 

OD!080 


0D42 


CALL 

RELEXP 



ENDM 



0D44 


JUMP 

F0R2 






OD46 

FORI 

DO 

LIT1 



MACRO 

TSTV,FAIL 


0D48 

F0R2 

DO 

DONE, SAVFOR, STORE, NXT 



ADDR 

TSTVAR 








DBYTE 

FAIL 


0D50 

STAT 

TST 

PGE, STA', 'T' 



ENDM 



0D56 


TST 

SYNTAX, 






0D59 


CALL 

RELEXP 



MACRO 

TSTN,FAIL 


0D5B 


DO 

POPAE, MOVE SR 



ADDR 

TSTNUM 


0D5F 


DO 

DONE,NXT 



DBYTE 

FAIL 








ENDM 



0D63 

PGE 

TST 

DOLLAR, 'PAG', 'E' 






0D69 


TST 

SYNTAX. 



MACRO 

JUMP, ADR 


0D6C 


CALL 

RELEXP 



DBYTE 

•JMPBIT 1 ADR 


0D6E 


DO 

DONE, POPAE, NUPAGE, FNDPGE,CHPAGE, 



ENDM 












0D7A 

DOLLAR 

TST 

PRINT,'•' 



MACRO 

CALL,ADR 


0D7D 


CALL 

FACTOR 



DBYTE 

•CALBIT!ADR 


0D7F 


TST 

SYNTAX, 



ENDM 



0D82 


TST 

DOLR1, 






0D85 


DO 

POPAE,PUTSTR 



MACRO 

DO 


0D89 


JUMP 

DOLR2 



MLOC 

I 


0D8B 

D0LR1 

TST 

SYNTAX,'•' 



SET 

I. 1 


0D8E 


CALL 

FACTOR 



DO 

tt 


0D90 


DO 

XCHGP1, MOVSTR, XCHGP1 



ADDR 

• I 


0D96 

DOLR2 

DO 

DONE, NXT 



SET 

I, 1*1 








ENDDO 



0D9A 

PRINT 

TST 

INPUT,'P','R' 



ENDM 



0D9E 


TST 

PR1,'IN', 'T' 






0DA3 

PR1 

TST 

PR2,'“' 



PAGE 

' I L. TABLE' 


0DA6 


DO 

PRS 






0DA8 


JUMP 

COMMA 






ODAA 

PR2 

TST 

PR3, '•' 


i * 


I L TABLE 

• 

ODAD 


CALL 

FACTOR 






ODAF 


DO 

XCHGP1. POPAE, PSTRNG, XCHGP1 






0DB7 


JUMP 

COMMA 

OC 18 

START 

DO 

NLINE 


0DB9 

PR3: 

CALL 

RELEXP 

OC 1A 

PROMPT 

DO 

GETL 


ODBB 


CALL 

PRNUM 

0C1C 


TSTCR 

PRMPT1 


ODBD 

COMMA 

TST 

PR4, ', ' 

0C1F 


JUMP 

PROMPT 


ODCO 


JUMP 

PR 1 

0C-21 

PRMPT1 

TSTN 

LIST 


0DC2 

PR4 

TST 

PR5, 'j ' 

0C25 


DO 

FNDPGE.XCHGP1, 

POPAE- FNDLBL, INSRT 

0DC5 


JUMP 

PR6 

0C2F 


JUMP 

PROMPT 


0DC7 

PR5 

DO 

NLINE 






0DC9 

PR6 

DO 

DONE,NXT 

0C31 

LIST 

TST 

RUN. 'LIS'. 'T' 






0C37 


DO 

FNDPGE 


ODCD 

INPUT 

TST 

END,'INPU','T' 

0C39 


TSTN 

LIST1 


0DD4 


DO 

CKMODE 

0C3D 


DO 

POPAE, FNDLBL 


0DD6 


TSTV 

IN2 

0C41 


JUMP 

LIST2 


ODDA 


DO 

XCH0P1, GETL 

0C43 

LIST 1 

DO 

CHPAGE 


ODDE 

INI 

CALL 

RELEXP 

0C45 

LIST2 

DO 

LST 


ODEO 


DO 

STORE,XCHGP1 

0C47 

LIST3: 

CALL 

PRNUM 


0DE4 


TST 

IN3, ', ' 

0C49 


DO 

LST3 


0DE7 


TSTV 

SYNTAX 

0C4B 


JUMP 

START 


ODEB 


DO 

XCHGP1 






ODED 


TST 

SYNTAX, ', ' 

0C4D 

RUN 

TST 

CLR, RU', N' 


ODFO 


JUMP 

INI 

0C52 


DO 

DONE 


0DF2 

IN2 

TST 

SYNTAX,'*' 

0C54 

BEGIN 

DO 

FNDPGE, CHPAGE. 

STRT,NXT 

0DF5 


CALL 

FACTOR 






0DF7 


DO 

XCHGP1, GETL. POPAE, ISTRNG, XCHGP1 

0C5C 

CLR 

TST 

NEW,CLEA', R' 


0E01 

IN3 

DO 

DONE, NXT 

0C63 


DO 

DONE, CLEAR, NXT 










0E05 

END 

TST 

ML,-EN','D' 

0C69 

NEW 

TST 

STMT, NE' , W' 


OEOA 


DO 

DONE, BREAK 

0C6E 


TSTN 

DFAULT 
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OEOE 

0E14 

0E16 

OE22 

OE27 

0E2B 

OE2D 

0E2F 


0E31 

0E33 

0E36 

0E38 

0E3A 

0E3D 

0E40 

0E42 

0E44 

0E47 

0E49 

0E4B 

0E4D 

0E4F 

0E52 

0E55 

OE57 

0E59 

0E5B 

0E5D 

0E60 

0E62 

0E64 

0E66 

0E69 

0E6B 

0E6E 

0E70 

OE72 

0E74 

0E77 

0E79 

0E7B 

OE7D 

0E81 

0E83 

0E85 

0E87 

0E89 

0E8B 

0E8E 

0E90 

0E92 

0E94 

0E97 

0E99 

0E9B 

0E9D 

0EA2 

OEA4 

0EA6 

0EA8 
OEAC 
OEBO 
0EB4 
0EB6 
0EB9 
OEBD 
OECO 
OEC2 
0EC5 
0EC7 
OECA 
OECC 
OEDO 
0ED5 
0ED7 
OEDB 
OEE1 
0EE5 
OEEA 
OEFO 
0EF5 
OEF7 
OEFD 
0F02 
0F04 
OF 12 
OF 18 

OF 1C 
OF IF 
OF21 
OF24 
0F26 
0F29 

OF2B 

0F2F 


0F37 
OF 3D 
OF 41 
OF45 


ML TST REM. ''LIN". 'K' 

CALL RELEXP 

DO DONE, XCHGP1,POPAE,CALLML,XCHGP1, NXT 


REM TST 
DO 

SYNTAX DO 
ERRNUM CALL 
DO 


SYNTAX, 'RE'. 'M' 

IGNORE. NXT 

ERR 

PRNUM 

FIN 


( NOTE EACH RELATIONAL OPERATOR (EQ. LEQ. ETC. ) DOES AN 
; AUTOMATIC 'RTN' (THIS SAVES VALUABE BYTES!) 


RELEXP CALL 
TST 
CALL 
DO 

REL1: TST 

TST 
CALL 
DO 

REL2 TST 

CALL 
DO 

REL3: CALL 

DO 

REL4 TST 

TST 
CALL 
DO 

REL5 CALL 

GTROP DO 

EXPR: TST 

CALL 
DO 

JUMP 

EX 1: TST 

EX2: CALL 

EX3: TST 

CALL 
DO 

JUMP 

EX4 TST 

CALL 
DO 

JUMP 

EX5 TST 

CALL 
DO 

JUMP 

RETEXP DO 


EXPR 

REL1. 

EXPR 

EQ 

REL4, '<' 

REL2. 

EXPR 

LEQ 

REL3, '>' 

EXPR 

NEQ 

EXPR 

LSS 

RETEXP, '>' 
REL5, 

EXPR 

GEQ 

EXPR 

GTR 

EX1. 

TERM 

NEG 

EX3 

EX2. 

TERM 

EX4, 

TERM 

ADD 

EX3 

EX5, 

TERM 

SUB 

EX3 

RETEXP. 'O'. 'R 

TERM 

OROP 

EX3 

RTN 


TERM CALL 

T1 TST 

CALL 
DO 

JUMP 

T2 TST 

CALL 
DO 
JUMP 

T3 TST 

CALL 
DO 

JUMP 


FACTOR 
T2. '*' 

FACTOR 
MUL 
T1 

T3. '/' 

FACTOR 

DIV 

T1 

RETEXP. AN'.'D 
FACTOR 
ANDOP 
T1 


FACTOR TSTV 
DO 

FI TSTN 

DO 

F2 TST 

DO 

F3 TST 

CALL 
TST 
DO 

F4 TST 

CALL 
DO 

F5 TST 

CALL 
DO 

F6 TST 

DO 

F7 TST 

DO 

F8 TST 

CALL 
DO 

F9: TST 

CALL 
DO 

FIO: TST 

DO 


FI 

IND. RTN 
F2 
RTN 
F3.'#' 

HEX, RTN 
F4. ' ( ' 

RELEXP 

SYNTAX, 

RTN 
F5,'«' 

FACTOR 
EVAL. RTN 
F6. 'NO'. 'T' 

FACTOR 
NOTOP, RTN 
F7, 'STA'. 'T' 

STATUS. RTN 
F8, 'TO', 'P' 

FNDPGE, TOP, RTN 
F9, MO'. *D' 

DOUBLE 

DIV,MODULO. RTN 
FIO. 'RN'. 'D 
DOUBLE 

RANDOM,SUB,ADD, DIV. MODULO, ADD. RTN 
SYNTAX, 'PAG', '£' 

PUTPGE, RTN 


DOUBLE 


TST 

CALL 

TST 

CALL 

TST 

DO 


SYNTAX,'(' 
RELEXP 
SYNTAX. '. ' 
RELEXP 
SYNTAX,')' 
RTN 


PRNUM DO XCHGP1, PRN 

PRNUM1 DO DIV,PRN1, XCHGP1. RTN 


r'AGE ERROR MESSAGES' 


ERROR MESSAGES 


MACRO MESSAGE. A, B 
ASCII A' 

BYTE B'!080 
ENDM 


MESGS MESSAGE ERRO'.'R' . l 

MESSAGE ARE','A' ; 2 

MESSAGE 'STM'.'T' ; 3 

MESSAGE CHA', R' ,4 


0F49 



MESSAGE 'SNT'»'X' 

; 5 

0F4D 



MESSAGE 'VAL'. 'U' 

( 6 

0F51 



MESSAGE 'END','"' 

i 7 

0F55 



MESSAGE 'NOG', '0' 

I 8 

0F59 



MESSAGE 'RTR','N' 

i 9 

0F5D 



MESSAGE 'NES'.'T' 

i 10 

0F61 



MESSAGE 'NEX'.'T' 

i 11 

OF65 



MESSAGE 'FO','R' 

i 12 

OF68 



MESSAGE 'DIV'.'0' 

( 13 

0F6C 



MESSAGE BR', 'K' 

i 14 

0F6F 



MESSAGE 'UNT'.'L' 

i 15 




PAGE ' TELETYPE ROUTINES' 





f******** 



f * 

GET CHARACTER AND ECHO 

IT * 



j •••#« 






LOCAL 


0F73 

C408 

GECO 

LDI 8 

i SET COUNT - 8 

0F75 

CAEB 


ST NUM < P2) 


0F77 

06 


CSA 

( SET READER RELAY 

0F78 

DC02 


OR I 2 


0F7A 

07 


CAS 


0F7B 

06 

• 1: 

CSA 

; WAIT FOR START BIT 

0F7C 

D420 


ANI 020 


0F7E 

9CFB 


JNZ 41 


OF80 

C457 


LDI 87 

i DELAY 1/2 BIT TIME 

0F82 

8F04 


DLY 4 


0F84 

06 


CSA 

iIS START BIT STILL THERE? 




ANI 020 


0F87 

9CF2 


JNZ 41 

i NO 

0F89 

06 


CSA 

( SEND START BIT 


D4FD 


ANI 7.2 

; RESET READER RELAY 

0F8C 

DC01 


OR I 1 


0F8E 

07 


CAS 


0F8F 

C485 

*2: 

LDI 133 

(DELAY 1 BIT TIME 

0F91 

8F08 


DLY 8 


0F93 

06 


CSA 

;GET BIT (SENSEB) 

0F94 

D420 


ANI 020 


0F96 

9804 


JZ 43 


0F98 

C401 


LDI 1 


0F9A 

9004 


JMP 44 


0F9C 

C400 

*3 

LDI 0 


0F9E 

9C00 


JNZ 44 


OF AO 

CAEA 

• 4 

ST TEMP(P2) 

i SAVE BIT VALUE (0 OR 1) 


IF 


RRL 

(ROTATE INTO LINK 

0FA3 

01 


XAE 


0FA4 

ID 


SRL 

(SHIFT INTO CHARACTER 

OFA5 



XAE 

(RETURN CHAR TO E 

0FA6 

06 


CSA 

(ECHO BIT TO OUTPUT 

0FA7 

DC01 


OR I 1 


0FA9 

E2EA 


XQR TEMP(P2) 


OFAB 

07 


CAS 


OF AC 

BAEB 


DLD NUM(P2) 

(DECREMENT BIT COUNT 

OFAE 

9CDF 


JNZ 42 

-LOOP UNTIL 0 

OFBO 

06 


CSA 

(SET STOP BIT 

0FB1 

D4FE 


ANI OFE 


0FB3 

07 


CAS 


0FB4 

8F08 


DLY 8 

(DELAY APPROX 2 BIT TIMES 




LDE 

(AC HAS INPUT CHARACTER 


D47F 


ANI 07F 


0FB9 

01 


XAE 


OF BA 

40 


LDE 


OFBB 

3F 


XPPC P3 

RETURN 

OFBC 

90B5 


JMP GECO 




i * 

PRINT CHARACTER AT TTY 

• 

OFBE 

01 

PUTC: 

XAE 


OFBF 

C4FF 


LDI 255 


0FC1 

8F17 


DLY 23 


0FC3 

06 


CSA 

(SET OUTPUT BIT TO LOGIC 0 

0FC4 

DC01 


OR I 1 

( FOR START BIT (NOTE INVERS 

0FC6 

07 


CAS 


0FC7 

C409 


LDI 9 

i INITIALIZE BIT COUNT 

0FC9 

CAE8 


ST TEMP3 < P2) 


OFCB 

C48A 

PUTC1 

LDI 138 

(DELAY 1 BIT TIME 

OFCD 

8F08 


DLY 8 


OFCF 

BAE8 


DLD TEMP3(P2) 

(DECREMENT BIT COUNT 

0FD1 

9810 


JZ PUTC2 


0FD3 

40 


LDE 

(PREPARE NEXT BIT 

0FD4 

D401 


ANI 1 


0FD6 

CAE9 


ST TEMP2 < P2) 


0FD8 

01 


XAE 

(SHIFT DATA RIGHT 1 BIT 

0FD9 

1C 


SR 


OF DA 

01 


XAE 


OFDB 

06 


CSA 

(SET UP OUTPUT BIT 

OF DC 

DC01 


OR I 1 


OFDE 

E2E9 


XOR TEMP2 < P2) 


OFEO 

07 


CAS 

(PUT BIT TO TTY 

0FE1 

90E8 


JMP PUTC1 


0FE3 

06 

PUTC2: 

CSA 

(SET STOP BIT 

0FE4 

D4FE 


ANI OFE 


0FE6 

07 


CAS 


0FE7 

3F 


XPPC P3 

j RETURN 

0FE8 

90D4 


JMP PUTC 



0000 


END 0 



ADD 

BEGIN 

CHEAT 

CK1 

CLR 

CMPR 

DIV 

D0LR2 

DOPTR 

EOA 

E12 

E15 

E18 

E4 

E8 

END 

ERR1 

EX 1 

EX5 

FIO 

F5 

F9 


0335 

0C54 

007C 

0649 

0C5C 

05D9 

0410 

0D96 

FFFF 

010D 

086D 

097C 

0AA7 

02DF 

064B 

OE05 

0225 

0E66 

0E7D 

0F12 

OEDO 

OEFD 


AESTk 1050 
BREAK 0288 
CHEAT1 009B 
CKMODE 0644 
CMP 0562 
COMMA ODBD 
DO OCCD 
DONE 0135 
DOSTAK 107A 
El 0195 
E12A 08E1 


E16 

E19 

E5 

E8A 

EQ 

ERR2 

EX2 


09CC 

0B04 

030C 

06E5 

054C 

0227 

0E69 


EXECIL 0076 
F2 0EB6 
F6 OEDB 
FACTOR 0EA8 


ANDOP 

CALBIT 

CHPAGE 

CLEAR 

CMP1 

DETPOE 

DOLLAR 

DONE 1 

DOUBLE 

E10 

E13 

E16A 

E2 

E6 

E8B 

EREG 

ERRNUM 

EX3 

EXPR 

F3 

F7 

FAIL 


05F0 
0080 
OBBA 
0051 
05C2 
OBC1 
0D7A 
0143 
0F1C 
07C6 
0910 
0A2E 
01CC 
0378 
06B2 
FF80 
0E2D 
0E6B 
0E5D 
OEBD 
0EE5 
05E1 


AT 

CALLML 

CHRNUM 

CLEAR1 

CMP2 

DFAULT 

D0LR1 

DONE 2 

EO 

Ell 

E14 

E17 

E3A 

E6A 

E9 

ERR 

EVAL 

EX4 

FI 

F4 

F8 

FAILHI 


0C96 

0963 

FFE7 

0056 

05CA 

0C74 

0D8B 

0144 

0150 

081E 

0950 

0A4A 

028A 

03D2 

074F 

0223 

07E6 

0E74 

OEBO 

0EC7 

OEFO 

FFEC 
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FAILLO 

FFED 

FALSE 

05C8 

FIN 

02B2 

FNDLBL 

OBDE 

FNDPGE 

0B94 

FOR 

0D26 

FORI 

0D46 

F0R2 

0D48 

FORPTR 

FFFE 

FORSTK 

108A 

GECO 

0F73 

GEQ 

0560 

GEQ1 

05 BE 

GETL 

0753 

G01 

0CF2 

GOSUB 

0CE7 

GOTO 

0CD9 

GTR 

055C 

GTR1 

05B3 

GTROP 

0E5B 

HEX 

0654 

HI 

FFEE 

HILINE 

FFF7 

IF 

0CA6 

IF1 

OCB2 

IGNORE 

09B5 

ILC1 

OOAA 

ILCALL 

OOAO 

INI 

ODDE 

IN2 

0DF2 

IN3 

0E01 

IND 

0534 

INPUT 

ODCD 

INSRT 

0820 

ISTRNG 

0B22 

JMPBIT 

0040 

LABLHI 

FFF2 

LABLLO 

FFF3 

LBUF 

10D6 

LEO 

0558 

LEQ1 

05AA 

LET 

0C87 

LIST 

0C31 

LIST1 

0C43 

LIST2 

0C45 

LIST3 

0C47 

LISTNG 

FFF5 

LIT1 

0A30 

L0 

FFEF 

LOLINE 

FFF8 

LSS 

0554 

LSS1 

05A2 

LST 

02E1 

LST2 

02FF 

LST3 

030E 

LST4 

0314 

LST5 

0324 

LSTK 

FFFD 

MESGS 

0F37 

ML 

OEOE 

MODULO 

09BC 

MOVE 

0804 

MOVESR 

0949 

MOVSTR 

0B52 

MOL 

037A 

NEG 

0363 

NEQ 

0550 

NEQ1 

0599 

NEW 

0C69 

NEW1 

0C76 

NEWPGM 

OBCD 

NEXT 

ODOC 

NEXTV 

0A85 

NEXTV1 

OAEA 

NLINE 

0215 

NOJUMP 

009D 

NOTOP 

05F8 

NUM 

FFEB 

NUPAGE 

0B89 

NXT 

028C 

NXT1 

02A9 

OROP 

05F4 

PI 

0001 

P1HIGH 

FFFO 

PI LOW 

FFF1 

P2 

0002 

P3 

0003 

PAGE 

FFF6 

PCHIGH 

FFFA 

PCLOW 

FFFB 

PCSTAK 

10A6 

PCSTK 

FFF9 

PGE 

0D63 

PGM 

1120 

POPAE 

0912 

PR1 

0DA3 

PR2 

ODAA 

PR3 

0DB9 

PR 4 

0DC2 

PRS 

0DC7 

PR6 

0DC9 

PRINT 

0D9A 

PRMPT1 

0C21 

PRN 

0197 

PRN1 

01CE 

PRNUM 

0F2B 

PRNUM1 

0F2F 

PROMPT 

0C1A 

PRS 

017E 

PRS1 

0193 

PSTRNG 

0B06 

PUTC 

OF BE 

PUTC1 

OFCB 

PUTC2 

0FE3 

PUTPGE 

0B77 

PUTSTR 

0B32 

RANDOM 

09CE 

REL1 

0E3A 

REL2 

0E44 

REL3 

0E4B 

REL4 

0E4F 

REL5 

0E59 

RELEXP 

0E31 

REM 

0E22 

RETEXP 

0E87 

RETURN 

OCFC 

RNDF 

FFE6 

RNDX 

FFE5 

RNDY 

FFE4 

RSTR 

0148 

RSTR1 

0152 

RSTR2 

0167 

RTN 

OOFB 

RUN 

0C4D 

RUNMOD 

FFF4 

SAV 

010F 

SAV1 

012B 

SAV2 

0131 

SAVEDO 

0974 

SAVFOR 

0A42 

SBRPTR 

FFFC 

SBRSTK 

106A 

SETZ 

058D 

START 

0C18 

STAT 

0D50 

STATUS 

0952 

STMT 

0C82 

STORE 

04C9 

STRT 

02C8 

SUB 

034C 

SYNTAX 

0E2B 

T1 

0E8B 

T2 

OE94 

T3 

0E9D 

TEMP 

FFEA 

TEMP2 

FFE9 

TEMP3 

FFE8 

TERM 

0E89 

TOP 

0990 

TST 

00C5 

TSTBIT 

0020 

TSTNUM 

06B4 

TSTVAR 

04E9 

UNT 

0CB8 

UNTIL 

0924 
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6502 STRING OUTPUT, REVISITED 


Dear Mr. Warren, Oct. 6, 1976 

In DDJ, Vol. 1, No. 8 (p. 33), Mr. Espinosa proposed the 
exchange of “handy” subroutines to save bytes in space- 
limited systems. He also presented an example, an ASCII 
string output subroutine for the 6502 microprocessor. I 
would like to submit a revised version of Mr. Espinosa’s sub¬ 
routine. I have done extensive work on 6502’s with OSI’s 
Model 400 microcomputer. During this time I have learned 
several byte saving programming “tricks” which I would like 
to pass on by illustration. Through a few simple changes I 
was able to reduce the length from 40 to 2B (hex) bytes. 
The result is a subroutine which works the same and saves 
a few more bytes. The program demonstrates a few simple 
“tricks”: 

— Preservation of the Y index register on the stack (3 
bytes saved) 

— Replace JMP instruction (with ranges less than 128 bt 
bytes) with forced relative branches. This permits 
easier relocation of a generalized subroutine so it 
may be used elsewhere in memory. 

— Make use of TYA instruction rather than saving the Y 
index in a memory location and then adding it in later 
(5 bytes saved). 

— Test the carry flag condition and increment the high 
order byte if set rather than adding 00 (2 bytes saved). 

— Try to avoid dead space inside programs, and non-sero 
page data storage (i.e. locations 0433 to 043F) (12 
bytes saved). 

Sincerely, 

Marcel Meier 8850 S. Spring Valley Dr. 

Chagrin Falls, OH 44022 
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IN-GROUP HUMOR FOR DINOSAUR USERS 


We recently heard of some new instructions proposed for 
some of the maxi computers of industry and business: 

BRANCH & BOMB 
BRANCH & HANG 
PUNCH OPERATOR 
BACKSPACE & EJECT DISC 
BACKSPACE & PUNCH DISC 

Oh well; we said it was in-group humor. 


TSC LIVES! THEY DO HAVE A PHONE 
NUMBER 

Technical Systems Consultants, Box 2574, West Lafayette, 
IN 47906, peddles some interesting, low-cost micro software. 
Several people have asked us if TSC is OK to deal with, stat¬ 
ing that they were unable to locate a phone number or street 
address. We wish to emphatically state that they are real; 
they are reputable; and they do have a phone: (317) 742- 
7509. 
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UPGRADED CP/M FLOPPY DISC OPERATING 
SYSTEM NOW AVAILABLE 

CP/M is a disk operating system designed for diskette-based 
computer systems which use the Intel 8080 microcomputer. 
The CP/M software package is now being offered to the small 
computer user community. 

Previously available only to OEM’s, CP/M has been in exist¬ 
ence for over two years in various manufacturers’ products, 
and thus has had extensive field testing. CP/M functions in¬ 
clude file management, with console interaction, batch pro¬ 
cessing, and program loading facilities. The overall operation 
of CP/M closely resembles the standard features of the DEC 
System-10. In particular, CP/M components include: 

BDOS — the CP/M Basic Disk Operating System supports a named 
file system, with up to 64 distinct files on each diskette. Files storage 
is dynamically allocated and released as necessary, with algorithms for 
optimal read/write head movement. Any file can contain as few as 
zero bytes, and up to 250K bytes, depending upon the requirements of 
the user program. Sequential and random access are supported. 

CCP — the Console Command Processor interacts with the program¬ 
mer’s console, providing the basic commands: 

Dl R selectively search the disk directory for files 
TYPE type the contents of a file at the console 
REN rename a specific file to a different name 
ERA erase a given file or set of files from the disk 
SAVE save memory on the disk for later reload or test 
The CCP also supports automatic program load and execution of CP/M 
system programs as well as user programs. 

PIP — the CP/M Peripheral Interchange Program allows transfer of 
files between various devices and disk files, as well as concatenation of 
files on the diskettes. 

SUBMIT — the batch processing features of CP/M allow the operator 
to prepare command files with parametric substitution, which can be 
subsequently automatically executed if typed by the operator. 

ED — the CP/M editor allows preparation of programs and text 
using powerful context editing and display commands. 

ASM — the CP/M assembler is compatible with both the standard 
Intel assembler and Processor Technology assembly language. 

DDT — the CP/M Debugging Tool is a monitor which allows 
symbolic program tracing, debugging, and testing. 

LOAD — the loader prepared a "memory image" file from an 
Intel format "hex" file, ready for direct execution under CP/M. 

DUMP — the dump utility prints the contents of a CP/M file 
in hexadecimal at the user's console. 

SYSGEN — the system generation utility prints the contents of a 
CP/M system diskettes from existing diskettes for back-up purposes. 

The CP/M operating system is distributed for an Intel MDS 
microcomputer development system, but can be easily altered 
to operate with a wide variety of customized hardware envi¬ 
ronments. Basic requirements are: 

a) Intel 8080 — based microcomputer mainframe 

b) At least 16K of read/write main memory 

c) One or two IBM-compatible disk drives and controller 

Given these facilities, the CP/M disk system is “patched” by 

the user to communicate with the specialized hardware. The 
exact steps to follow in programming and patching the CP/M 
system are given in the manual CP/M System Alteration Guide. 
In fact, several popular mainframe and controller manufactur¬ 
ers currently support their own CP/M patch. 

The CP/M system is distributed on an IBM-compatible dis¬ 
kette in machine-code form only (source programs are avail¬ 
able for internal use, or distribution with custom hardware at 
additional cost), along with complete documentation required 
for operating CP/M and programming in the CP/M environ¬ 
ment. The software is licensed for use by the individual who 
purchases CP/M, and is registered and serialized to prevent 
unauthorized copying and distribution. In particular, the 
licensing agreement specifically disallows copying CP/M for 
use by any individual other than the registered owner. The 
registered owner of a CP/M system receives notices of updates 
and becomes a member of the CP/M User’s Library. System 
documentation includes: 

CP/M Features and Facilities — this manual presents the organiza¬ 
tion of the CP/M system, along with the forms for file name references. 


built-in commands and transient commands, including operation of 
the editor, assembler, debugger, peripheral interchange program, and 
batch processor. 

CP/M Editor , CP/M Assembler and CP/M Debugger Manuals — 
these three manuals provide the operating details for CP/M's principal 
subsystems for program composition (ED), assembly (ASM), and test¬ 
ing (DDT). Manuals can be purchased separately. 

CP/M Interface Guide — this manual gives the exact details for pro¬ 
gramming in the CP/M environment. In particular, all system calls are 
specified, along with details of CP/M file organization which is necessary 
for programs which operate upon CP/M files. 

CP/M System Alteration Guide — the alteration guide gives the step- 
by-step process which you must follow in order to alter the CP/M sys¬ 
tem to run with non-standard hardware. I/O drivers for commonly 
available hardware systems are given. 

Individual manuals are $5. A package consisting of all six 
manuals is $25. An initialized, “loaded” floppy disc is $50. 

A disc and all documentation — “the works” — is $70. And, 
of course, Californians get to add 6% tax. 

Digital Research, Box 579, Pacific Grove, CA 93950, (408) 
173-3403. _ ' 

PRAISE FOR DIGITAL SYSTEMS’ FLOPPY 
UNITS & DIGITAL RESEARCH’S CP/M 

Dear Dr. Dobb, Nov. 1, 1976 

I have seen the articles on the CP/M floppy disc operating system 
available from Digital Systems. I am writing because I am a satisfied 
customer. I have had a system from Digital Systems running for 
nearly a year now and have had no trouble with it. The hardware is 
reliable and well designed. I do not know of anything presently on 
the market that compares favorably to it. The software is also fan¬ 
tastic and reliable. It is easy to interface with the DOS to read and 
write files, and do I/O. The software developed by Digital Research 
is well designed and is implemented much like the Monitor on the 
DEC System 10. The assembler, editor and debugger supported by 
the system are excellent. In addition to that the documentation that 
comes with the system is first class. I am enthusiastically pleased 
with the performance of the system. 

I have dealt with Digital Systems and can unqualifiedly say that 
they are honest, decent and responsive. Dr. Torode was exceptionally 
helpful in getting the system up and supporting me afterwards. I have 
not encountered a more honest and responsive vendor. 

The software written by Digital Research is excellent in design and 
documentation and to me it would be worth five times the price. 

Altogether the combination of hardware and software which is 
provided turns an 8080 system into a true software development 
system which is flexible, easy to use, easy to learn, and reliable. 
Sincerely, 

Robert Swartz 195 | v y Lane 

Highland Park, IL 60035 _ 

A SUPER. TURNKEY DUAL FLOPPY SYSTEM 

Dear Jim, Sept. 17, 1976 

You guys are usually way ahead on new products and 
things but have you seem the DTC Micro File? 

It’s a WOW! 

• 8080A Super System 

• Has an extremely high quality, compact, dual floppy 

• Has superb system software including fantastic text editor 

• Uses MITS BASIC (they bought it) plus numerous improve¬ 

ments 

• Speeds to 9600 baud through two RS323 ports 

It might appear as a commercial system to you folks 
(it is!)—you should check it against IMSAI’s dual disk system. 

It runs rings around them on price and is far superior. Price - 
$4295. 

If you haven’t seen It you should take a look. 

Keep up the excellent work with DDJ. 

Sincerely, 

A. C. Delmas ADVANCE SYSTEMS 

P. O. Box 531 
Saratoga, CA 95070 

[We heard identical remarks from another friend whose 
judgment has been impeccable. DTC is located at 1190 Dell 
Ave., Bldg. L, Campbell, CA 95008, (408) 378-1 1 12.-Editor] 
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ARITHMETIC EXPRESSION EVALUATOR MOD 


Gentlemen: Sept. 13, 1976 

Enclosed you will find a modification of Bill Thomp¬ 
son’s arithmetic expression evaluator published in your June/ 
July 1976 edition. As another uninitiated person on the 
subject of interpreters, I found his BASIC program to 
be enlightening. 

However, after trying out his program, I did find that 
his stack operations could be handled much more efficiently 
by moving pointers to the stack tops, rather than the entire 
stacks. Also, I tried to make the flow a little more readable 
by limiting the use of GOTO statements to within the same 
subroutine and by starting the fine numbers of the subrou¬ 
tines in increments of 500. Since my mod was implemented 
on a PDP-11, there are some minor differences in the string 
functions. 

Thanks, 

Jim Abshire 508 - 4th St. 

Laurel, MD 28810 
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COMPONENTS FOR SPECIFYING PROGRAM¬ 
MING LANGUAGES AND MODS TO THE TINY 
HI LANGUAGE DESIGN 


Dear DDJ, Nov. 17, 1976 

Enclosed are about a dozen changes in TINY HI, an 
updated language summary, and a brief description of HI. 
None of the changes significantly effect the scope of TINY, 
but I believe they make it an even nicer language. I am 
shelving TINY LISP, TINY SNOBOL, and the extensible 
language I mentioned; my system is up and I want to imple¬ 
ment TINY. I renege on the promise to describe FORTH 
as Interface has had a good article on it. 

1 will act as a clearinghouse to standardize TINY HI 
implementations. A complete language standard (as detailed 
below) should be out by 15 January. Implementors please 
send $3 to cover copying costs and first class postage. This 
will be the last revision in DDJ, but I believe I’ve finalized 
what the user sees. DDJ will get a free copy of those 
standards for existing; otherwise I would have to invent it 
and couldn’t do nearly as well. I hope to be HI in 77. 

Laissez faire, 

Martin Buchanan 2040 Lord Fairfax Rd. 

(703) 893-7978 Vienna, VA 22180 


making structure as clear as possible, else many unnecessary 
IFs and DOs would make programs more confusing. 

Continuation lines: a plus sign (“+”) as the first nonblank 
character indicates a continuation line. A line may be con¬ 
tinued indefinitely and even when comments intervene or 
there is a comment field. Continuation lines can be used to 
make output lists or complex predicates clearer by arranging 
them on several lines to show structure, and they also reduce 
the use of temporary variables. 

Control structures: The “UNTIL” structure is now: 

DO 

code 

END IF p 

The “WHILE” structure is now: 

DO IF p 
code 

END 

The compound structure is also allowed: 

DO IF p 
code 

END IF q 


ELEMENTS OF PROGRAMMING LANGUAGE 

STANDARDS 

1. A complete semantic and syntactic description (mostly 
accomplished). This includes little things like the sig¬ 
nificance of blanks, levels of nesting, algorithms used 
for real or mixed arithmetic (in languages with real 
numbers), and identification of lexical tokens; 

2. Storage formats for source programs, object programs, and 
data, both in main memory or on mass storage units; 

3. Conventions for the naming and semantics of global func¬ 
tions or variables which handle hardware differences (.DE¬ 
VICE, .MAINSIZE, etc.); 

4. Standard names and algorithms for common library func¬ 
tions; 

5. All error messages, when they are invoked, and their 
meaning; 

6. Text-editing functions during data entry; 

7. Interfacing with machine language programs; 

8. Linking loader design; 

9. Dynamic storage allocation and file retrieval design. 


CHANGES TO TINY HI 

Comments: a semicolon (“;”) in column one reserves only 
the line on which it appears for comments. A semicolon in 
any other column reserves that column and all to the right 
of it for comments until is again encountered in the com¬ 
ment field. This replaces the “/*” and “*/” delimiters pre¬ 
viously specified. The change makes commenting easier to 
learn and use, and increases flexibility. 

Vectors: Vectors may have lengths up to 232—1. Other¬ 
wise it would be almost impossible to handle data structures 
with more than 256 elements. This also allows any positive 
integer as a subscript. 

Logical operators:AND, OR, NOT ; NOT is evaluated 
first. AND and OR have equal precedence. All three must 
be set off by blanks or )( as in: 

NOT A=B or (A> MIN)AND(A < MAX) 


Noise may no longer be added to END statements. 

Professor Howard Tompkins of Indiana University of 
Pennsylvania caused my reexamination of my control struc¬ 
tures, for which I am grateful, though we still disagree as to 
the best iterative structure. He pointed out that “UNTIL” 
should be “WHILE NOT” from the English meanings of 
the words, and also that UNTIL in COBOL has a meaning 
different from the one used by I and IBM. The new con¬ 
struct locates each predicate where it is actually examined, 
allows a new structure, reduces my vocabulary, eliminates 
a source of possible confusion, and allows for future inte¬ 
gration with an iterative form: 

DO I=J TO K BY L IF A(I) <A(I+1) 

Input: ? alone will get a literal from the keyboard with 
the prompt “?♦•”. ? followed by a variable will generate a 
prompt of the form: “<variable> 

Subvectors: In a sequence of numbers or characters, one 
often wants to indicate a subvector that is a continuous 
sequence, often a very long one. Other programming lan¬ 
guages use pseudovariables (PL/I’s SUBSTR function), “in¬ 
dex generation” (APL), or novel subscripting forms (A [5 ;8] 
in HP BASIC 3000). My subscripting form for indicating 
subvectors should be familiar to any user of English. I call 
it “ellipsis”. It is formed by three consecutive periods be¬ 
tween the initial and final subscript, but separated by blanks 
from them (to avoid ambiguities when I introduce real num¬ 
bers in HI): 

A [4 ... 11 ] is the same as A [4 567891011], 

but both in conception and the generation of object code, 
the first is preferable. 

Global indication: the prefix can be omitted from 
calls of external functions unless the function name is dup¬ 
licated by a local fucntion. My theory is that data is usual¬ 
ly local and functions are usually global. 

Subscripting: is an operation and may apply to expres¬ 
sions: 


Being able to express complex predicates is important in (A+B)[2 3 5] -MORE- 
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TINY HI, cont. 

Arithmetic: append **, exponentiation. HI has it, and I 
want the differences between the two levels to be few and ma¬ 
jor. Exponentiation is also easy to implement in integer arith¬ 
metic. I prefer ** to the up arrow. Exponentiation derives 
from multiplication just as multiplication from addition, so 
the symbol is logical in some sense, and also common. I 
want to reserve the up arrow for a (presently undefined) 
sorting or ordering operation. 

REVISED TINY LANGUAGE SUMMARY 

Vocabulary: BEGIN END IF ELSE DO 
Comments: ; 

Continuation: + 

Infix arithmetic: + — */** 

Prefix arithmetic: — 

Concatenation: blank 
Length operator: # “number” 

Relational ops: < <= > >= <> 

Logical ops: AND OR NOT 
Assignment: «• 

Input: ? 

Global: . 

Nesting: () 

Subscripting: [ ] 

Substring: . . . “ellipsis” 

Data types: INTEGER STRING 
Data structure: the vector 


WHAT HI ADDS TO TINY HI 

1. Data types REAL and LOGICAL, and the corresponding 
literals; 

2. Multidimensional arrays; 

3. Data declarations; 

4. For program correctness, the attributes INITIAL, RANGE, 
and TYPE, and the ability to test an expression’s type; 

5. For output: the attribute FORMAT; 

functions SKIP, X, T; 
globals .COL, .LINES, .SPACE; 

6. The iterative DO TO { BY } 

POSTSCRIPT: Nov. 23, 1976 

1. Negation of —215 will produce an overflow. 

2. Concatenation has a lower priority than # or negation, 
but still greater than the infix arithmetic operators. 

The example given for “number” should be “#(5 73 -1)”. 

3. Functions may have no argument, as in “CPTIME( )”. 

4. After “END WHILE” in GCF there should be the line 
“GCF * Y”. 

I want to thank those who wrote about TINY HI, especi¬ 
ally Gregg Townsend. 

n m si n a m is a a a a a is a a a aaasa 

RCA 1802 PLEA 

To: Jim Warren Nov. 2, 1976 

I’ve not seen anything yet on the 1802. Is it too new for 
the hobbyist, or what? Could you publish a short request for 
responses from any 1802 users? [Yup!] 

Sincerely, 

Harley Shanko 15025 Vanowen St., No. 209 

Van Nuys.CA 91405 


TINY HI SUGGESTIONS 


Dear Mr. Buchanan: 


I would like to offer some suggestions regarding your TINY HI 
language as defined in the October, 1976, Dr. Dobb’s Journal 
First of all, let me say that I LI KE IT! It seems to be quite 
powerful in its simplicity. 

I like the one-statement-per line format; PL/I addicts look down 
their noses at FORTRAN for this but readable programs require it. 

I like being able to easily put comments on the same lines as state¬ 
ments; this is what often makes the comments of assembly-language 
programs better than those of so-called higher level languages. "?" 
for input is great, and I admire the simplicity of the vector scheme. 
Now for the comments: (this is more or less random order) 

1. Negation of —215 w i|| probably produce overflow; so perhaps 
there is a case where negation can produce an error. 

2. Rather than bracketing loops with WHI LE END, how about 

using LOOP and REPEAT? UNTIL 

a. WHILE and UNTIL do not imply iteration except to a program¬ 
mer who's seen them before. 

b. WHI LE cond terminates when cond goes false, and UNTIL 
cond terminates when it goes true; but it's very hard to see 
why one of these implies a test at the front of the loop and 
the other at the back. 

This isn't original — see Knuth in Computing Surveys Vol. 4 
No. 6 (Dec. 1974), pp. 278-280. 


LOOP IF cond 


LOOP 


code 


code 


REPEAT REPEAT IF cond 

(test at top) (test at bottom) 


3. How about providing a means for the n + Viloop problem? Again 
stealing from Knuth: 

LOOP LOOP 

"ENTER A" ?A "ENTER A" ?A 

WHI LE A >47 for IF A >47 EXITLOOP 


"TOO BIG" "TOO BIG" 

REPEAT REPEAT 


4. I finally figured out why the example "No. 5 73-1" looks strange 
to me: because I can't get used to a unary operator with a higher 
precedence than a binary operator ($). All unary operators 
(#?-) should be higher than the binary operators. Under the cur¬ 
rent rules, (-5 7 9)= (-5) (-7) (-9)1 

5. What determines whether input is taken as string or integer? How 
can 123 be input as a string? 

6. What sets the value of a function? Should the example have an 
additional line .GCF ♦Y? 

7. The current syntax disallows null arguments such as .CPTIME0. 

Is this intentional? 

8. Deletion of the /* or */ line has the potential for causing a lot of 
trouble when editing a program. I would favor a scheme such as 
it is used by some assemblers where ; means that everything else 
on the line is a comment. 

9. Since a string is really a vector of characters, and you allow vectors 
of strings, will you allow vectors of vectors (of vectors . . . )? 

10.1 agree with *-for assignment but please choose the character to 
be used with ASCii keyboards before every implementor picks a 
different one. 

I guess that's all that comes to mind now. I'm sending a copy of 

this to DDJ. Keep up the good work! 

Yours, 

Gregg Townsend 

450 N. Mathilda, No. J20 
Sunnyvale, CA 94086 
Nov. 15, 1976 


NEW COMPUTER MART 

The Computer Mart of New Hampshire is currently located 
on Daniel Webster Hwy N, Merrimack, NH 03054, (603) 
424-2981. On January 1st, it will move to 170 Main St., 
Nashua, NH 03060. [information from Ron Cordova, 76-12-4] 
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6800 MONITOR RELATIONS 


GLITCH: TINY BASIC & MEK SYSTEMS 


Dear Editor, Nov. 10,1976 

Motorola makes several monitor roms (Mikbug*, Minibug*, Minibug 
II* and Exbug*) for their M6800 systems. Most systems in hobbyist 
hands are currently using Mikbug*. Minibug II* now seems to be avail¬ 
able from Mini Micro-Mart and it has several additional and enhanced 
features over Mikbug*. These features are serial I/O to an ACIA for 
the control interface, binary load, binary dump, S9 on last record of 
punch, user control of "SWI" vector, upward and downward move¬ 
ment during address changes and memory test commands. Documenta¬ 
tion on the commands is supplied, but no listing or hardward imple¬ 
mentation guides. We are using Minibug II* in a SWTP 6800and are 
pleased with its operation. The following notes are supplied for those 
who might wish to try this rom. 

Dennis Sutherland David Kyllingstad RonTonneson 

2835 - 25th Ave. 840 Hillview Dr. Fairfax, IA 

Marion, IA Marion, IA 

‘Trademark of Motorola 

MINIBUG II SOFTWARE EQUIVALENCE 

Minibug II is not to be confused with Minibug which is 
located in the upper half of Mikbug and is probably not 
worth finding at this point in time. The following entry 
points have been tested and appear to work in programs 
that reference them. 



MIKBUG 

MINIBUG II 

ROUTINE 

ADDRESS 

ADDRESS 

OUTCH 

E1D1 

El 08 

INCH 

El AC 

El 1F 

OUTHL 

E067 

E0FA 

OUTHR 

E06B 

E0FE 

OUTS 

E0CC 

El 80 

PDATA1 

E07E 

El 30 

CONTRL 

E0E3 

E040 

INHEX 

E0AA 

E070 

BADDR 

E047 

E0D9 

OUT4HS 

E0C8 

E17C 

OUT2HS 

E0CA 

E17E 


MINIBUG II HARDWARE CHANGES REQUIRED 
General 

Since Minibug II is a IK rom, A must be made active instead of 
being grounded. CS„ and CS^ areractive low instead of active high 
as was Mikbug. This u requires inverting the logic pins 10 and 11. 

SWTPc 

Isolate IC2 pin 1 5 (A ) from the large ground buss by making a 
cut around the plated through that now connects pin 15 to ground. 

Do not drill out the through. Use a miniature circular saw, a minia¬ 
ture fly cutter or an Exacto knife. Now connect the isolated pad 
(IC2-15) to the pad immediately to the right which comes from IC-13. 

If a semi permanent change is anticipated, cut the lines coming from 
IC2-10 and 11 just past the first bend. Connect a jumper from IC16-8 
to IC2-10 (CSq). Connect a jumper from IC13-4 to IC2-11 (CS^. 

If plug-in interchangeability is desired, don't make the last two cuts 
but add two inverters. 

The inverters may be made and installed between a 24 pin 1C plug 
and a 24 pin socket (available from James Electronics). See schematic 
below. 

Mount the socket piggyback on the plug and solder all other pins one 
to one. (Pins 1-9 and 12-24 are straight through, pins 10 and 11 are 
now inverted). 

‘Any plastic NPN switching transistor (2N5210, MPS3646, etc.) 


Dear DDJ, Oct. 26, 1976 

I was referred a copy of what appears to be a column in 
the CHG-NT newsletter, which briefly mentions a failure of 
Tiny BASIC 6800 in Mot Eval kits. 

It is true that I have had a number of calls from owners 
of MEK systems in which Tiny BASIC failed to run. It 
seems that the Motorola kit comes with no memory (except 
for the Mikbug private RAM), and very little else. When 
the user adds a 4K memory board care should be taken 
that all of the address and data lines are properly buffered 
in the expanded system, since buffers are not provided in 
the basic kit. 

What happens is that Mikbug is able to load and display 
the memory with no problem, but the program will not run. 
This is due to the excessive capacitance in the address lines 
(the 6800 is spec’ed at 130pf, which is good for about 8-10 
MOS devices; a 4K static RAM board alone has 32 MOS de¬ 
vices on some of the address lines). This causes the access 
lines to be slowed considerably. Mikbug does all its memory 
access using the Indexed addressing mode, which leaves the 
address stable for two full memory cycles (2 ps min) before 
attempting a read or write, thus permitting an actual access 
time of over 2.5 y s; program permitting an actual access 
time of over 2.5 ys; program execution on the other hand is 
not so forgiving, and the memory must respond in 575ns. 
The unbuffered system can’t hack the speed. That this is 
indeed the problem may be verified by stretching 02 to 2 
or 3 ys. 

I have no record of Mr. Mikel’s having attempted to com¬ 
municate his problem to me, and I do know of over 100 
properly buffered MEK systems on which Tiny runs fine. 

Tom Pittman PO Box 23189 

Itty Bitty Computers San Jose, CA 95123 

cc: Roger Mikel 

Computer Hobbyist Group-NT 


A SPECIAL PURPOSE EDITOR FOR MANUSCRIPT 
PREPARATION? 

Dear Jim, Nov. 6, 1976 

About reinventing the wheel . . . am I going to have to write my own 
program for word processing — in the sense of manuscript preparation? 
Text editors are fine for programmers but they aren't of much help for 
authors. What is available for an 8080 or Z-80 in the public domain? 
F.J. Greeb's "Classy 8080 Text Editor," DDJ No. 6, looks like a good 
step in the right direction. Everything is done on the video screen ex¬ 
cept the final hardcopy output. But a manuscript processor needs to 
be sentence and paragraph oriented, not line oriented, and needs to 
have the capability of juggling stuff among tape units or floppy disk 
files. (I always seem to be moving paragraphs from the end of the 
text to the beginning or some other spot several pages away.) Then 
there are nice things like automatic page numbering, single or double 
spacing from the same source file, and the ability to not mess up 
special formats such as tables or lists while at the same time properly 
adjusting lines and paragraphs as words or sentences are added or 
deleted. I would be pleased to hear from anyone with interests along 
these lines. 

Yours truly. 

Dr. Charles F. Douds 381 Poplar St. 

Winnetka, IL 60093 


10 



iZ 


Page 56 


Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box E, Menlo Park, CA 94025 


Nov./Dec., 1976 


353 



A 16-BIT FLOATING POINT PROPOSAL 

In past weeks, I have talked to several members of the 
CACHE about “tiny languages.” I keep hearing, “I’d use it 
if it only had floating point.” Having written three languages 
myself, I can understand this. Nobody seems to realize that 
32 bits are a lot more than twice as hard to work with as 16. 

As a compromise I propose 16 bit floating point. The 
format I have worked out gives 3 significant digits with an 
exponent of -15 to +15 (decimal). Proposed format: 

is i> 

Md I I 11 I 111 M'l 11 I I 

1 W *1-V-' 

EXPONENT MANTISSIA 

(AS = aaantissia SIGN 
ES= EXPONENT SIGN 

I don’t have the time or ambition to write this now, 
but I would be happy to swap ideas with anyone interested. 
Bob Van Valzah (312) 852-0472 (Home) 

1140 Hickory Trl. (312) 971 -2010 Ext. 231 

Downers Grove, IL 60519 (Work) 


6800 MOTOROLA FOR SIMULTANEOUS 
NUMBER CRUNCHING AND ANTENNA 
POINTING 

Dear Sir, 17 Nov. 1976 

Two of us here in the Northern Virginia area are interested 
in using a micro for some number crunching (with a peri¬ 
pheral calculator chip) and antenna pointing for satellite 
work (simultaneously). The 6800 Motorola line of chips 
looks like it will fill the bill due to the superior I/O con¬ 
figuration possible. The 8080 kinda misses the boat. So I 
am interested in all kinds of homebrew hardware for 6800 
line compatible with SWTP line. 

Sincerely, 

Ellis Marshall, W4JK Rt. 1, Box 158 

Front Royal, VA 22630 


FREDDIE’S FOLLY 
by Jim Day 

Frugal Freddie bought a video board kit from a local com¬ 
puter store a couple of months ago. He saved a few bucks by not 
busying sockets for the ICs. “Who needs’em?” he said. “I’Ujust 
solder everything.” The board worked fine for a few weeks, 
then developed a hardware glitch that Freddie hasn’t been able to 
track down. He took it back to the computer store and asked 
them what it would cost to fix. 

“Well now,” said the repairman, “If this thing had sockets, 
I’d probably find the trouble in a few minutes by random sub¬ 
stitution. But with everything soldered down to the board, 
there’s no telling how long it might take. Why, it could end up 
costing you more than the price of the kit!” 

One can avoid duplicating Freddie’s folly by socketing 
everything. - ■' ; .; ■ 

. ; ’.^^Socket it to ’em, Freddy ! /5'7?y 


HAMATIC NOTE IN B YTE 

According to a letter in the (excellent) November issue of Byte, 
hams who are also interested in computer phreaquery should tune to 
3.865 MHz (LSB) on Thursdays at 2300 GMT "for a good time." 


ERRATA FOR RANKIN’S 6502 
FLOATING POINT ROUTINES 

Dear Jim, Sept. 22, 1976 

Subsequent to the publication of “Floating Point Rou¬ 
tines for the 6502” (Vol. 1, No. 7) an error which I made in 
the LOG routine came to light which causes improper results 
if the argument is less than 1. The following changes will 
correct the error. 

1. After: CONT JSR SWAP (1D07) 

Add: A2 00 LDX=0 LOAD X FOR HIGH BYTE OF 
EXPONENT 

2. After: STA Ml+1 (1D12) 

Delete: LDA = 0 

STA Ml 

Add: 10 01 BPL *+3 IS EXPONENT NEGATIVE 
CA DEX YES, SET X TO $FF 
86 09STX Ml SET UPPER BYTE OF 
EXPONENT 

3. Changes 1 and 2 shift the code by 3 bytes so add 3 to the 
addresses of the constants LN10 through MHLF wherever 
they are referenced. For example the address of LN10 changes 
from 1DCD to 1DD0. Note also that the entry point for 
LOG 10 becomes 1DBF. The routine stays within the page 
and hence the following routines (EXP etc.) are not affected. 

Yours truly, 

Roy Rankin Dept, of Mech. Eng. 

Stanford University 


COMPLETE 8080A FLOATING POINT PKG FOR 
$7.50 AND NEW CASSETTE DATA FORMAT 
STANDARD TO BE PROPOSED 

Dear Editor: Sept. 21, 1976 

In response to Paul Holbrook’s letter in the September 
issue, regarding the need for a cassette data format stan¬ 
dard, I would like to inform you that a standard with 
software has been developed; the Mohler standard will be 
published in an upcoming issue of Interface. 

The standard allows for various types of data formats 
and is expandable, so new ones can be added. It is also 
universal enough for the format to be independent of 
^ cassette interface hardware and processor type. We hope 
to make the Mohler cassette format a standard in the 
computer hobbyist industry. 

I would also like to inform readers that I have devel - 
oped a single-precision floating point software package for 
the 8080A (6-7 digits of precision). The package includes 
add, subtract, multiply, divide, and utility programs to 
convert from ASCII BCD to binary and binary to packed 
BCD. It takes up about 1200 bytes and is relatively 
fast, e.g., 2.5 msec worst case time for multiply. 

Also nearing completion is a scientific function package 
which includes square root, sine, cosine, exponential, 
natural logarithm, log base ten, arc tangent, hyperbolic 
sine, and hyperbolic cosine. This package is to be used 
with the floating point package and takes up less than 
IK bytes. It also has six digits of accuracy. 

The floating point package is now available for $7.50. 
Included are manual, paper tape, and complete annotated 
source listing. The scientific package will also be $7.50. 
Both packages may be ordered for a reduced price of 
$10.00. To obtain one or both, send your name, address, 
and the appropriate amount to: 

Burt Hashizume 
P.O. 172 

Placentia, CA 92670 


Nov./Dec., 1976 Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, Box E, Menlo Park, CA 94025 


Page 57 


354 


CHASE: =0 

A One or Two Player Video Game 


Start it running & just try to pry your kids away 
from your computer 

-Marvin R. Winzenread 

Try to catch the bouncing dot or convert the program 
to a two person chase game. It requires 256 bytes of mem¬ 
ory and a Processor Technology VDM or similar video dis¬ 
play. 


To convert to a two person chase game change 
addresses 0051-0056 to: 

0051 DB FF IN 0FFH 

0053 IF RAR 

0054 IF RAR Second player moves 

0055 IF RAR using left four sense 

005 6 00 NOP SW,tcheS - 

For an interesting variation in the original program 
change 0051 to 7B ; MOV A,E 


* x ( i 

S U. 

U. XXI 

*"• O vO CD * O 

> o <t <t X <t aS 


s X 

co X cq X ^ n 

•* U, CO % •* 

£ co <t o o x ro 


2 2 O CL Z > U O O. 2 [d <* O Z « O > UJ 
s <t CC J D 

22 0 2 00000000000000 °oooooino 

( r )o-cMro-?o-c\if05jO'o-*(Mn-70'o--c\jn<7inino 

'Or-r-i^r*»t^cococococococooococococoS8SSSSS3 


•If your VDM is not addressed as 8C = Port Address 
and 8800 — 8BFF as memory, you need to change these 
statements. 
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WHIPPLE & ARNOLD DEVELOP A 
SUPER DUPER BASIC INTERPRETER ($25) 

Binary Systems Corp. has intrduced a new interpreter for 
8080-based microcomputers. Called BASIC ETC, the new 
interpreter was co-developed by John Arnold and Dick 
Whipple of Tyler, TX, authors of the first implementation 
of Tiny BASIC. It includes floating point (6 to 72 digits) 
and variable-length integers. 

“Our goal was to develop a variant of BASIC designed 
specificically for the hobbyist and small business user, keeping 
in mind that the most important priorities — from the user’s 
standpoint — were ease of program development and straight¬ 
forward, one-step program execution.” 

“We feel we’ve accomplished that goal, and with a memory 
efficient program, too.” said Arnold. 

BASIC ETC uses the lower 8K of memory plus at least IK 
of RAM for scratchpad. Since BASIC ETC is for games and 
business applications, the less frequently used scientific 
functions of Dartmough BASIC are not available. 

According to Arnold, BASIC ETC is readily software 
adapted to the individual’s system, and “the best answer today 
for the 8080-based microcomputer owner shopping for an 
easy to use high level language.” 

The BASIC ETC kit, which includes the program — on 
either audio cassette tape or paper tape — and a 32-page, 
detailed user’s manual, sells for $25.00. The manual sells 
for $6.00 separately. 

Kits may be ordered from the Micro Store, 634 S. Central 
Expressway, Richardson TX 75080. The Micro Store is the 
retail affiliate of Richardson-based Binary Systems, Inc. 

Orders should include a check or money order for the price 
of the item. For cassette tape, the purchaser must indicate 
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his choice of either the Kansas City or Suding/Digital Group 
recording technique. 

Features of BASIC ETC are listed below: 

* Immediate delivery 

* Readily software adapted to user's system 

* Resides in only 8K of memory 

* Supplied on either cassette tape (Kansas City or Suding/Digital 
Group format), or on paper tape. f 

* Thorough explanatory manual. 

* Full string capability — up to 255 characters string variable 

* N-dimensional arrays 

* Variable precision arithmetic 

* Easily handles assembly language routines 

* Direct memory and I/O addressing 

* 27 error codes 

* Both character and line erasure editing 

* Subroutine nesting permitted 

* 31 commands and statements 

* 8 functions plus user defined functions 

* Null control: 0 to 25 seconds 

* Formatted output statements 
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LIFE’S LIKE THAT 

LIFE ON AN 8080 WITH A VDM 

The game of life seems to be a natural for the VDM. So 
much has been written about it. 

Here is a short version that requires toggling only 116 
bytes. An earlier version ( PCC Vol. 4 No. 2) required 218 
bytes. This program does however RAM equal to the VDM 
memory to store the next generation. If you are really 
strapped for memory, use half of the VDM for each genera¬ 
tion. 

1) Before loading the program, first initialize the screen. 
On Processor Technology’s VDM this is done by sending a 
zero out to the VDM output port. 

2) Load the program and run it. This should clear the 
screen of random characters within 10 seconds. 

3) Use the front panel to load your original population 
directly into memory (*=2A in hex). 

4) Run the program. Every 2Vi seconds a new genera¬ 
tion will appear. 

— Marvin R. Winzenread 
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KIM-1 OWNERS: PLEASE, THINK SMALL 

Now that you have your KIM-1 attached to the power 
supply and have successfully added 2 + 3 and gotten 5, 
would you like something else to do? Would you like to 
use the KIM-1 as: 

— a TIMER accurate to a millisecond 

— a CLOCK displaying hours, minutes and seconds 

— an ADDING MACHINE with six digit add/subtract for 
the old checkbook 

— a DECIMAL-HEX/HEX-DECIMAL Converter 

— a DRUNK TEST 

— a simple GUESS-THE-NUMBER game for the kiddies 

— the MASTERMIND game for you 

— the SHOOTING STARS puzzle 

— a series of REACTION TIME tests 

— a MOVING MESSAGES DISPLAY with Alphabetic 
Characters 

— plus other demos, tests and games?? 

Would you appreciate having all of these capabilities in an 
integrated software package that includes a “high level lan¬ 
guage” which will let you create your own programs??? 

MicroCosmos announces PLEASE, a package which con¬ 
tains all of the above features and runs on the basic KIM-1 
— no additional memory, TTY, or peripherals required. 
PLEASE is distributed as a CASSETTE TAPE, plus com¬ 
plete SOURCE LISTINGS, full OPERATING INSTRUC¬ 
TIONS, and instructions for writing your own programs in 
PLEASE. The total cost: $10.00. MicroCosmos, 210 
Daniel Webster Highway, S., S. Nashua, NH 03060, (617) 
256-3649. 
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4K AND 8K BASIC FROM SWTPC FOR UNDER 
$5—$10 


Tiny BASIC Game Contest 


Southwest Technical Products Corporation has just released its 4K 
and 8K BASIC software. Both feature fixed and floating point math with 
a full 1 .OE-99 to 9.9999999999E+99 number range. In addition to the 
line number mode a direct (no line number) mode of execution is pro¬ 
vided on most statements to create a calculator like mode of entry for 
short programs. Provisions have been made in both packages for saving 
and loading BASIC programs to and from either cassette or paper tape. 

A USER function is even provided for jumping to machine language sub¬ 
routines. 

Both packages have been written for the SWTPC 6800 Computer 
System. The 4K BASIC© requires a minimumof 6K of memory with 
8K recommended, while the 8K BASIC © requires a minimun of 8K 
of memory with 12K recommended. The 4K BASIC © tape and 
manual sell for $4.95 on "Kansas City" cassette tape and $10.00 on 
paper tape. The 8K © tape and manual sell for $9.95 on "Kansas City" 
cassette tape and $20.00 for paper tape. All prices are postpaid in the 
U.S; SWTPC, 219 W. Rhapsody, San Antonio, TX 78216, (512) 344-9778 
SWTPC Has copyrighted 4K and 8K BASIC. Version 1.0 program 
material and manual may be copied for personal use only. No dupli¬ 
cation or modification for commercial use of any kind is authorized. 


COMMANDS 


STATEMENTS 


LIST 

REM 

END 


RUN 

DIM 

GOTO* 

STOP 

NEW 

DATA 

ON ...GOTO* 

GOSUB* 

SAVE 

READ 

ON . ..GOSUB* 

PATCH* 

LOAD 

RESTORE IF...THEN* 

RETURN 

PATCH 

LET* 

INPUT 

tDES 


FOR 

PRINT* 

tPEEK 

FUNCTIONS 


NEXT 

tPOKE 

ABS tVAL 

tSIN 



INT tEXTS 

tcos 



RND tLENS 

tTAN 

*Direct Mode statements 

SGN tLEFTS 

tEXP 

t 8K Version only 

CHR tMIDS 

tLOG 



USER tRIGHTS 

tSQR 



TAB 




MATH OPERATORS 


RELATIONAL OPERATORS 

- (unary) Negate 


= Equal 


* Multiplication 


<> Not Equal 


/ Division 


< Less Than 


+ Addition 


> Greater Than 


— Subtraction 


<= Less Than or Equal 

Exponent 


>= Greater Than or Equal 


OPPORTUNITY TO WIN A MICROCOMPUTER 
ASSOCIATES VIDEO TERMINAL, ETC. 

1st Prize: VT-200 terminal with resident TINY BASIC and 
JOLT assembler 
2nd Prize: VT-100 terminal 
3rd Prize: JOLT 4K system kit 
4th - 10th Prizes: JOLT CPU kits 

CONTEST RULES: 

1. All entries must be postmarked by April 1, 1977. 

2. All entries must be submitted as follows: 

a. JOLT TINY BASIC source program as paper tape with CR, LF 
and four (4) rubout characters terminating each source state¬ 
ment. 

b. Running instructions, game description and at least one exam¬ 
ple of game play-all in typewritten form on B'A" x 11" white 
bond suitable for printing. 

3. All entries must run on an MAI VT-200 equipped with 4,096 
bytes of RAM storage, OR on a JOLT 4K system equipped with 
TINY BASIC. 

4. All entries must run correctly and be sufficiently well documented 
to enable a non-technical person to enter, run and play the game 
as directed by the running instructions. Entries which for any 
reason do not run or are not sufficiently well documented to 
enable easy entry and play will be DISQUALIFIED. 

5. All decisions by MAI with respect to acceptance, disqualification, 
and winners will be final. 

6. MAI employees and their families are not eligible to enter. 

7. This contest void where prohibited by law. 

8. All entries become the property of MAI and will not be returned. 

9. Contest winners will be notified by registered mail no later than 
60 days from contest closing date of April 1, 1977. Contest Win¬ 
ners will also be published in the Microcomputer Digest and the 
JOLT Users Newsletter. Contest Winners may also be obtained 
directly by sending a stamped self addressed envelope to MAI no 
earlier than May 1, 1977 and no later than July 1, 1977. 

10. The JOLT TINY BASIC language summary is available at partici¬ 

pating computer stores. The language summary may also be ob¬ 
tained by sending $1.00 cash, check, or money order for postage 
and handling to MAI TINY BASIC CONTEST, P.O. Box 1167, 
Cupertino, CA 95014. A paper tape form of JOLT TINY BASIC 
complete with documentation is available by sending $5.00 cash, 
check or money order to ITTY BITTY Computers, P.O. Box 
23189, San Jose, CA 95123. _ 


GOOD POINTERS ON 6800 SYSTEMS SOFTWARE 


A $5 WUMPUS 


Dear Dr. Dobb’s, Sept. 22, 1976 

Your readers who are interested in the article by Tom 
Pittman on the 6800 Resident Assembler and Editor might 
like to know that true annotated assembly listings of the 
I/O routines are available in the 6800 users group library. 

Program No. 10 is a listing of the I/O routines used 
with EXBUG. While this listing does not describe the 
routines in EXBUG itself, the comments do provide an 
insight into the operation of the flags. 

Of more interest is Program No. 11 which is the 
MIKBUG version of the I/O routines. When this is com¬ 
bined with the listing of MIKBUG in Engineering Note 100 
on the MCM 6830L7 ROM one will have a listing of a 
complete I/O system. This can be used as a model to 
develop suitable I/O routines to interface the Assembler and 
Editor with any system. 

The price Motorola charges for the Assembler and 
Editor is a little high for home use though. 

Sincerely, 

John P. Byrns 1953 Governors Ln. 

Hoffman Estates, IL 60195 


Hi- 

I have written a machine language version of “Wumpus” 
by Greg Yob. It’s a great game. The 8080 program is under 
3K and is self-contained. It requires no user PROM sub¬ 
routines, etc. Anyway, if anyone wants a listing, just send 
your name, address and $5.00 to: 

Ron Santore 1957 Huasna Dr. 

San Luis Obispo, CA 94301 


MUMPS IS SPREADING 

Oct. 18, 1976 

The MUMPS computer language is used for medical and business 
applications. The number of institutions that use MUMPS is growing 
by about 80% per year. A concise pocket guide to MUMPS has been 
written to facilitate use of this text-handling and data management 
language. The guide includes descriptions of all the commands, opera¬ 
tors, functions, and all other capabilities of Standard MUMPS, and 
gives many examples of their use. The Standard was developed from a 
dozen MUMPS dialects, under the sponsorship of the National Bureau 
of Standards and the Department of Health, Education and Welfare. 
Single copies of the guide are available at no charge from Dr. Joan 
Zimmerman, MUMPS Users' Group, 700 S. Euclid Ave., St. Louis, 

MO 63110. 
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ERRATA FOR PREVIOUS CCC INFORMATION: 

The CCC Program Repository currently furnishes programs 
on roll paper tape; not on fan-fold, as was previously 
announced. 

The Community Computer Center (CCC) will act as a reposi¬ 
tory for program tapes; both source tapes and binary tapes. Every¬ 
one wishing to contribute programs to the public domain may do 
so by forwarding appropriate paper tapes to CCC. In particular, 
if you are hesitant about submitting a program for publication in 
Dr. Dobb's Journal because you don't want to hassle with its dis¬ 
tribution, you are encouraged to forward the tapes to CCC and 
the documentation to the Journal for publication. 

The CCC will thus serve as a desirable alternative and supple¬ 
ment to the User Groups that are controlled and operated by many 
of the processor manufacturers, some of whom charge up to $100 
for "membership" and access to the programs that their customers 
developed and offered to the User Group, without compensation. 

There is no membership fee for access to the tapes from the 
Community Computer Center. Instead, one pays only for the 
duplication and mailing costs: 

Duplication charge: $1/ounce or fraction thereof, for tapes 
(weighed after punching on roll paper tape) 

(Add 6% tax for orders mailed to a California address) 

Postage and handling: $0.50 on orders of $5 and less 
$1 on orders exceeding $5 

Payment must accompany all orders. Orders will be mailed 
First Class, within 3 days of receipt. 

Lists of available tapes will be published, periodically, in Dr. 
Dobb's Journal, as well as being available from CCC: 

Community Computer Center 
1919 Menalto Avenue 
Menlo Park, CA 94025 
(415) 326-4444 

The following source tapes are currently available. They are 
programs written for the version of BASIC that is implemented 
for the HP 2000F minicomputers, and are discussed in What To 
Do After You Hit Return (available from the PCC Bookstore, 
$6.95). 


Tiny BASIC for Altairs & IMSAIs: 

Palo Alto Tiny BASIC 2 

Star Trek in Palo Alto Tiny BASIC 2 

Palo Alto Tiny BASIC for HP2100 XASYM 2 

Numbers Guessing Games $12 


Number 

Abase 

Trap 

Stars 

Clocks 

Bagels 

Quadgt 

Button 


Word Games 

$10 

Letter 

2 

Aba gel 

3 

Hangmn 

3 

Madlib 

6 

Word 

2 

"Nimlike" Games 

$11 

23Mtch 

2 

Batnum 

3 

Nim 

4 

Chomp 

3 

Zot 

5 

Hide-n-Seek in 2D 

$ 4 

Hurkle 

2 

Mugwmp 

2 

Snark 

2 

Pattern Games 

$11 

Dangle 

2 

Sunsgn 

3 

Biosin 

3 

Mandal 

3 

Life 

3 

Amaze 

3 

Board Games 

$11 

Qubic5 

5 

Gomoku 

4 

Teaser 

3 

Rover 

5 

Welcome to the Caves 

$ 9 

Cavesl 

5 

Wumpus 

4 

Caves2 

5 

Business & Social Science 

$22 

Hamrbi 

3 

King 

5 

Civil2 

7 

Market 

5 

Stock 

5 

Policy 

4 

Polut 

4 

Science Fiction Games 

$12 

Trader 

10 

Sttrl 

9 

Last Chapter 

$10 

Crash 

4 

Lunar 

3 

Revers 

2 

Zeros 

3 

Taxman 

3 


The following games are in Dartmouth BASIC 


Motie 

Rescue 

Pouncel 


Dodgem 

Sinners 


Kingdom for TSS/8 BASIC: 
English Version 
Spanish Version 


SAN FRANCISCO’S SETH IS BECOMING THE 
BOOTSTRAP COMPUTER STORE 

A computer mob known as SETH, 4001 - 24th 
St., San Francisco, CA 94114, is working on opening a 
storefront computer operation that will include walk-in, 
play-a-computer-game facilities. They have miscellaneous 
peripheral gear and would like to trade some of it for 
other goodies. They will also sell gear on a consignment 
basis. They can be contacted at the above address or 
at 3981 - 24th St. By phone, call (415) 282-8000 or 
282-3550 (11 a.m. - 7 p.m.), and ask for Bob, George or 
Don. 


BUSINESS SOFTWARE . . . FOR $3,000 


Aircom, Inc. (Rt. 1 6B, Union, NH 03887, 603/473-2323) has three 
software or business packages for business users. All are assembler 
coded for a Computer Automation Alpha LSI-2 and are teletype-ori¬ 
ented, both for I/O and for "record storage" (i.e., on paper tapel). 

Their general ledger accounting program system is $3,000 for the 
software, alone, ot $9,950 for the software and a computer with 1 6K 
words. Their payroll package — with 38 character variables — requires 
6K and is available for $3K for the software, or $8250 including an 
8K machine. They also have a line-oriented forms package for $7,950 
with an 8K machine or $2,700 for the software, alone. 

They have no documentation that they could provide for our exami¬ 
nation, and plan on customer training at their site in New Hampshire. 
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DIFFERENT ! 


No Ads 
No Frills 
All Content 



People’s Computers is a magazine for anybody and everybody who wants to know more about 
computers, how they work, and how to use them. We aren’t padded with color advertisements; 
we’re filled cover to cover with articles, listings, reviews, games, letters, and interviews. 
People’s Computers is published by a non-profit educational company, devoted to presenting 
new ideas, facts, and possibilities in a clear, usable, and lively way. 

Our contents include: Programming: tutorials in easy-to-leam languages like Tiny BASIC and 
PILOT introduce the novice to elementary programming. More advanced material includes 
assembly language programming. Education: anyone who wants to write fun, easy-to-use educa¬ 
tional programs will find lots of tips and sample programs. Blue Sky Stuff: Tiny BASIC first 
originated as an idea that was realized on our pages. We are now designing a tiny language suitable 
for use by kids and those who work with them. Computers in the World: People’s Computers 
explores the impact of computers on our lives including such topics as conferencing and network¬ 
ing, easier human-computer interfacing, women and computers. Fantasy and Fun: Space games 
and wumpus hunts are just some of the games listings found on our pages. And how can you 
miss the swashbuckling adventures of Fortran Man, as he battles file decrementers and parity 
snatchers in the never ending battle for truth, logic and sequential files? 

And there’s lots more, all for just $8 a year. To subscribe, use the facing postage-free card, or 
write us at People’s Computers, Dept. V, 1263 El Camino Real, Box E, Menlo Park, CA 94025. 


people’s computers 






Dr. Dobb’s Journal 


of COMPUTER CALISTENICS & ORTHODONTIA 


Volume One 

Send_copies of DDJ Volume One for just S13 

each plus SI .50 shipping and handling and bill me. 
In California add 78 cents for sales tax. 

NAME_ 

ADDRESS_ 


CITY/STATE_ZIP__ 

□ THIS IS A RENEWAL □ PAYMENT ENCLOSED 

(PLEASE ENCLOSE LABEL) 


Subscription 

Please start my subscription to 
Dr. Dobb’s Journal (10 issues a year) 
and bill me for: 

P] ONE YEAR for SI 2 

(Save $3 off single issue price) 

I - ] TWO YEARS for $22 

(Save $8 off single issue price) 

In Canada: 

add $4/year for postage 
European & Japanese rates available 
on request. 


Dr. Dobb’s Journal of computer calistenics & orthodontia 

Volume One 


Subscription 

Send_copies of DDJ Volume One for just $13 

[ each plus SI .50 shipping and handling and bill me. 

J In California add 78 cents for sales tax. 


Please start my subscription to 

Dr. Dobb’s Journal (10 issues a year) 
and bill me for: 

NAMF 


ONE YEAR for $12 

(Save $3 off single issue price) 

ri TWO YEARS for $22 

(Save $8 off single issue price) 

1 Annrcpcs 




! riTY/STATF 7IP 


In Canada: 

add $4/year for postage 

European & Japanese rates available 
on request. 

□ THIS IS A RENEWAL □ PAYMENT ENCLOSED 

(PLEASE ENCLOSE LABEL) 

V 


people's computers 


Please start my one year subscription to People’s Computers 
(published bi-monthly) and bill me. 

NAME_ 

ADDRESS__ 


□ ONE YEAR for J8 

□ TWO YEARS for $15 


CITY/STATE 


ZIP 


V 


In Canada add $4/year for postage. 
Foreign rates available on request. 



□ PAYMENT ENCLOSED 
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The Computer Music Journal is devoted to the development of computer systems which are capable of 
making high fidelity music. The following topics are covered: 

★ design of real time playable instruments with controllers like organ keyboards, pressure sensitive 
surfaces, joysticks, and new designs; 

★ production of natural sounding quality of tone or timbre by Fourier series like synthesis (with 
periodic or nonperiodic sine wave summation) or FM synthesis and new methods; 

★ circuit design of digital oscillators (any waveshape — up to 256 ultra low distortion sine waves 
with independent control of amplitude, frequency or period, and phase - all from one digital 
oscillator) controlled by a small computer; 

★ high speed, high resolution multiplication (16 bit X 16 bit •* 16 to 32 bit product in less than 
200 nanoseconds); 

★ schematic diagrams; 

★ review of hardware components; 

★ cost of hardware / quality of sound tradeoffs; 

★ control of analog synthesizers with a small computer; 

★ envelope generators (not just exponential or linear attack, sustain, and decay, but any shape); 

★ digital filtering; 

★ high resolution, high speed digital to analog converters; 

★ digital reverberation and movement of spacial location with Doppler shifting; 

★ choral effects; 

★ analysis of acoustic instruments; 

★ psychoacoustics; 

★ music theory; 

★ generation of different musical scales including meantone, just, and equal tempered (with 5, 7, 
12, 19, 22, 29, 31, or 43 notes in each octave) tunings; 

★ reviews of books about computer music, acoustics of musical instruments, psychoacoustics, 
music theory and composition, computer design, and electronics. 


The Computer Music Journal is published every other month. A one year subscription costs $14. 
If interested, use the postage-free order card opposite, or write us at PCC, 1263 El Camino Real, 
Menlo Park, California 94025. 
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A Reference 

, Book 
for 

Home 

Computer 

Users 


Ever try to find the address of, say, a particular floppy disc manufacturer when you don’t even 
know what state they’re in? Looking for articles on a certain kind of hardware? Frustrating, isn’t it? 
Well, People’s Computer Company has just published a valuable reference directory that goes a long 
way towards ending that frustration. 


Here’s just some of the useful information you’ll find in PCC’s Reference Book 

☆ Hundreds of companies and computer stores selling hardware, software, peripherals 
and offering all sorts of services are listed with their addresses. 

Nuts-and-bolts and survey articles on software, hardware, applications, robots, and 
the future, just to name a few, for the experienced and the not-so-experienced user 
of microcomputers. 

☆ The complete, documented source and object code for a 2K Tiny BASIC. 

☆ A massive index of the articles from the major hobbyist magazines, plus information 
on the magazines in the field, hobbyist clubs, newsletters and professional societies. 

☆ Bibliographies on different areas so you can investigate them further, including a 
special computer music bibliography. 

It’s a book you’ll want to keep handy because you’ll use it a lot. And even when you aren’t looking 
up addresses or other information, you’ll be referring back to one of the many helpful articles. 

PCC’s Reference Book is available for $5.95 plus 95$ for shipping and handling in the U.S. 
(California residents add 35 cents sales tax). Use one of the order cards just inside this cover, or 
write to us at 1263 El Camino Real, Box E, Menlo Park, CA 94025. 


ISBN 0-918790-01-8 $13.00 





